Fråga : Probleminställningen bordlägger (3) .columns.first som spänner

Hi experts
I kan inte fungera ut hur man väljer bordlägger (3) .columns.first.range som min range.

See kodifierar nedanfört. I stort vad jag önskar effektivt, är:

i stället för denna: Dunkel myRange för
som Range
fastställd myRange = ActiveDocument.Tables (3). Range

Make det detta: Dunkel myRange för
som Range
fastställd myRange = ActiveDocument.Tables (3). Columns (1). Range

But som den ska inte låtet mig för att göra det. Jag önskar att myRange.finden ska se i den första kolonnen av bordlägger 3 only.

Help, hjälper, HJÄLPER!!
> för 
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:
" codeBody " " >Private underDocControlAdd för class= " för
" klar "

Svar : Probleminställningen bordlägger (3) .columns.first som spänner

I allmänhet jag råder using en spänna anmärker i stället för valet anmärker var möjligheten. Också det är lättare att se att vad du är, var pröva att göra (och hence lättare att underhålla) om du specificerar var du önskar att vara in benämner av anmärker, som motsatt till MoveDown och MoveRight, Etc.

Emellertid du kan välja och söka en singelkolonn. 

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:

Privata underDocControlAdd ()
   'Alla den dunkla textaen, textb, textc, textd, texte, textf som stränger 'detta fördunklar undantar den sist variabeln som en variant

    Dunkel texta som stränger, textb som stränger, textc som stränger, textd som stränger, texte som stränger, textf som stränger
     Dunkel tbl som bordlägger
    Dunkel rw som ror
    Dunkel cl som cellen
    Dunkelt c som heltal
    Dunkel iStartCol som heltal
    
    texta = ActiveDocument.CustomDocumentProperties.Item (”xRevisionNoen”)
    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
   Fastställd tbl = ActiveDocument.Tables (1)

        Om ActiveDocument.CustomDocumentProperties.Item (”xNew”) = ”Y” därefter
            Uppsättning rw = tbl. Rows.Add
        ElseIf NewVersion = True därefter
            Uppsättning rw = tbl. Rows.Add
        ElseIf NewVersion = falskt därefter
                tbl. Kolonner (iStartCol). Valt
                Med Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = True
                    .MatchCase = True
                    Om. Utför (FindText: =texta) därefter
                        Fastställd cl = Selection.Cells (1)
                        Uppsättning rw = tbl. Ror (cl.RowIndex)
                     Avsluta om
                Avsluta med
         Avsluta om
         c = iStartCol
         rw. Celler (c). Range.Text = texta
         c = c + 1
         rw. Celler (c). Range.Text = textb
         c = c + 1
         rw. Celler (c). Range.Text = textc
         c = c + 1
         rw. Celler (c). Range.Text = textd
         c = c + 1
         rw. Celler (c). Range.Text = texte
         c = c + 1
         rw. Celler (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item (”xRevisionNoOld”). Värdera = ActiveDocument.CustomDocumentProperties.Item (”xRevisionNo”). Värdera

Avsluta suben
Andra lösningar  
 
programming4us programming4us