Questione : Tabella della regolazione di problema (3).columns.first come gamma

Ciao il experts
I non può risolvere come selezionare le Tabelle (3).columns.first.range come range.

See il mio codice qui sotto. Che cosa voglio efficace è basicamente:

anziché questo: Il
oscura il myRange come myRange stabilito di Range
= ActiveDocument.Tables (3).Range

Make esso questo: myRange fioco del
come il myRange stabilito di Range
= ActiveDocument.Tables (3).Columns (1).Range

But non lo lascerà fare quello. Voglio il myRange.find osservare nella prima colonna della tabella 3 only.

Help, aiuto, AIUTO!!
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty DocControlAdd secondario " del class= " del id= " codeSnippet798749 del
class= del

Risposta : Tabella della regolazione di problema (3).columns.first come gamma

Raccomando generalmente using un oggetto della gamma anziché l'oggetto di selezione nel possibile. Inoltre è più facile da vedere che che cosa siete stanno provando a fare (e quindi più facile effettuare) se specificate dove volete essere in termini di oggetti, in contrasto con MoveDown e MoveRight, ecc.

Tuttavia potete selezionare e cercare una singola colonna. 

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:

DocControlAdd secondario riservato ()
   'Il texta fioco, il textb, il textc, il textd, il texte, textf come stringa 'questo oscura tutti tranne l'ultima variabile come variante

    Texta fioco come stringa, textb come stringa, textc come stringa, textd come stringa, texte come stringa, textf come stringa
     Tbl fioco come Tabella
    Il RW fioco come fila
    Cl fioco come cellula
    C fioca come numero intero
    iStartCol fioco come numero intero
    
    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
   Regolare il tbl = ActiveDocument.Tables (1)

        Se ActiveDocument.CustomDocumentProperties.Item (“xNew„) = “Y„ allora
            Regolar il RW = tbl. Rows.Add
        ElseIf NewVersion = allora allinea
            Regolar il RW = tbl. Rows.Add
        ElseIf NewVersion = falso allora
                tbl. Colonne (iStartCol). Prescelto
                Con Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = allineano
                    .MatchCase = allineano
                    Se. Eseguire (FindText: =texta) allora
                        Regolare il Cl = Selection.Cells (1)
                        Regolar il RW = tbl. File (cl.RowIndex)
                     Concluder se
                Concluder con
         Concluder se
         c = iStartCol
         il RW. Cellule (c). Range.Text = texta
         c = c + 1
         il RW. Cellule (c). Range.Text = textb
         c = c + 1
         il RW. Cellule (c). Range.Text = textc
         c = c + 1
         il RW. Cellule (c). Range.Text = textd
         c = c + 1
         il RW. Cellule (c). Range.Text = texte
         c = c + 1
         il RW. Cellule (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item (“xRevisionNoOld„). Valore = ActiveDocument.CustomDocumentProperties.Item (“xRevisionNo„). Valore

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us