Cuestión : Tabla del ajuste del problema (3).columns.first como gama

Hola el experts
I no puede resolverse cómo seleccionar las tablas (3).columns.first.range como range.

See mi código abajo. Qué quiero con eficacia está básicamente:

en vez de esto: El
amortigua el myRange como myRange determinado de Range
= ActiveDocument.Tables (3).Range

Make él esto: myRange dévil del
como el myRange determinado = ActiveDocument.Tables (3).Columns (1).Range

But de Range
no me dejará hacer eso. ¡Quisiera que el myRange.find mirara en la primera columna del cuadro 3 only.

Help, ayudo, AYUDO!!
class= > " claro " 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 secundario " del class= " del id= " codeSnippet798749 del
class= del

Respuesta : Tabla del ajuste del problema (3).columns.first como gama

Aconsejo generalmente usar un objeto de la gama en vez del objeto de la selección en lo posible. También es más fácil ver que cuáles usted es están intentando hacer (y por lo tanto más fácil mantener) si usted especifica donde usted quiere estar en términos de objetos, en comparación con MoveDown y MoveRight, etc.

Sin embargo usted puede seleccionar y buscar una sola columna. 

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 secundario privado ()
   El 'texta dévil, textb, textc, textd, texte, textf como secuencia 'esto amortigua todos excepto la variable pasada como variante

    Texta dévil como secuencia, textb como secuencia, textc como secuencia, textd como secuencia, texte como secuencia, textf como secuencia
     Tbl dévil como tabla
    RW dévil como fila
    Cl dévil como célula
    C dévil como número entero
    iStartCol dévil como número entero
    
    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
   Fijar el tbl = ActiveDocument.Tables (1)

        Si ActiveDocument.CustomDocumentProperties.Item (“xNew”) = “Y” entonces
            Fijar RW = el tbl. Rows.Add
        ElseIf NewVersion = entonces verdad
            Fijar RW = el tbl. Rows.Add
        ElseIf NewVersion = falso entonces
                tbl. Columnas (iStartCol). Selecto
                Con Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = verdad
                    .MatchCase = verdad
                    Si. Ejecutar (FindText: =texta) entonces
                        Fijar el cl = Selection.Cells (1)
                        Fijar RW = tbl. Filas (cl.RowIndex)
                     Terminar si
                Terminar con
         Terminar si
         c = iStartCol
         RW. Células (c). Range.Text = texta
         c = c + 1
         RW. Células (c). Range.Text = textb
         c = c + 1
         RW. Células (c). Range.Text = textc
         c = c + 1
         RW. Células (c). Range.Text = textd
         c = c + 1
         RW. Células (c). Range.Text = texte
         c = c + 1
         RW. Células (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item (“xRevisionNoOld”). Valor = ActiveDocument.CustomDocumentProperties.Item (“xRevisionNo”). Valor

Submarino del extremo
Otras soluciones  
 
programming4us programming4us