Вопрос : Таблица установки проблемы (3).columns.first как ряд

Hi experts
I не может разработать как выбрать таблицы (3).columns.first.range как range.

See мое Кодий ниже. Основно я эффективно хочу является следующим:

вместо этого:
затемняет myRange по мере того как myRange Range
установленное = ActiveDocument.Tables (3).Range

Make оно это: myRange
тусклое как myRange Range
установленное = ActiveDocument.Tables (3).Columns (1).Range

But оно не будет препятствовать мне сделать то. Я хочу myRange.find смотреть в первой колонке таблицы 3 only.

Help, помогаю, ПОМОГАЮ!!
class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
>Private Sub DocControlAdd " class= " id= " codeSnippet798749
class=

Ответ : Таблица установки проблемы (3).columns.first как ряд

Вообще, я советую using предмет ряда вместо предмета выбора где по возможности. Также легке увидеть вы пытайтесь сделать (и следовательно легко для поддержания) если вы определяете, то где вы хотите быть оперируя понятиями предметов, в отличие от MoveDown и MoveRight, etc.

Однако вы можете выбрать и поискать одностоечное. 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Приватное Sub DocControlAdd ()
   'Тусклое texta, textb, textc, textd, texte, textf как шнур 'это затемняет все за исключением последней перемеююого как вариант

    Тусклое texta как шнур, textb как шнур, textc как шнур, textd как шнур, texte как шнур, textf как шнур
     Тусклое tbl как таблица
    Тусклый rw как рядок
    Тусклый cl как клетка
    Тусклый c как интежер
    Тусклое iStartCol как интежер
    
    texta = ActiveDocument.CustomDocumentProperties.Item («xRevisionNo»)
    textb = ActiveDocument.CustomDocumentProperties.Item («xRevisionDate»)
    textc = ActiveDocument.CustomDocumentProperties.Item («xDetails»)
    textd = ActiveDocument.CustomDocumentProperties.Item («xPreparedby»)
    texte = ActiveDocument.CustomDocumentProperties.Item («xReviewedby»)
    textf = ActiveDocument.CustomDocumentProperties.Item («xApprovedby»)
    iStartCol = 1
   Установите tbl = ActiveDocument.Tables (1)

        Если ActiveDocument.CustomDocumentProperties.Item («xNew») = «y» после этого
            Установите rw = tbl. Rows.Add
        ElseIf NewVersion = True после этого
            Установите rw = tbl. Rows.Add
        ElseIf NewVersion = ложно после этого
                tbl. Колонки (iStartCol). Отборно
                С Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = True
                    .MatchCase = True
                    Если. Исполните (FindText: =texta) после этого
                        Установите cl = Selection.Cells (1)
                        Установите rw = tbl. Рядки (cl.RowIndex)
                     Закончитесь если
                Закончитесь с
         Закончитесь если
         c = iStartCol
         rw. Клетки (c). Range.Text = texta
         c = c + 1
         rw. Клетки (c). Range.Text = textb
         c = c + 1
         rw. Клетки (c). Range.Text = textc
         c = c + 1
         rw. Клетки (c). Range.Text = textd
         c = c + 1
         rw. Клетки (c). Range.Text = texte
         c = c + 1
         rw. Клетки (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item («xRevisionNoOld»). Значение = ActiveDocument.CustomDocumentProperties.Item («xRevisionNo»). Значение

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us