Vraag : .columns.first het plaatsen van het probleem van de Lijst (3) als waaier

Hallo experts
I niet uitwerken hoe te om Lijsten (3) .columns.first.range als range.

See te selecteren mijn hieronder code. Fundamenteel is wat ik effectief wil:

in plaats van dit: /> Schemerige Geplaatste myRange
myRange = ActiveDocument.Tables (3). Range

Make het dit: /> Schemerige Geplaatste myRange
myRange = ActiveDocument.Tables (3). Columns (1). Range

But zal het me niet dat laten doen. Ik wil myRange.find in de eerste kolom van lijst 3 only.

Help kijken, help, HELP!!
" codeBody "
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 SubDocControlAdd ()


    Schemerige texta, textb, textc, textd, texte, textf als Koord
    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“)



    ActiveDocument.Tables (3). Range.Select

        Als ActiveDocument.CustomDocumentProperties.Item („xNew“) = „Y“ toen
            Selection.Tables (1). Rijen (1). Cellen (1). Selecteer
            Selection.Tables (1). Rows.Add
            Selection.MoveDown Eenheid: =wdLine, Telling: =1
        
        ElseIf NewVersion = Waar toen
        
            Selection.Tables (1). Rows.Last.Select
            Selection.Tables (1). Rows.Add
            Selection.MoveDown Eenheid: =wdLine, Telling: =1
            
        ElseIf NewVersion = Vals toen
                         
                Schemerige myRange als Waaier
                Reeks myRange = ActiveDocument.Tables (3). Waaier
                
                Met myRange.Find
                .ClearFormatting
                .MatchWholeWord = Waar
                .MatchCase = Waar
                . Voer FindText uit: =texta
                Eind met
                         
                Als myRange.Find.Found = Waar toen
                    myRange.Cells (1). Selecteer
                Beëindig als
           
            
         Beëindig als
         
          Texta van Selection.TypeText
            
            Selection.MoveRight Eenheid: =wdCell
            Selection.TypeText textb
            
            Selection.MoveRight Eenheid: =wdCell
            Selection.TypeText textc
            
            Selection.MoveRight Eenheid: =wdCell
            Selection.TypeText textd
            
            Selection.MoveRight Eenheid: =wdCell
            Selection.TypeText texte
            
            Selection.MoveRight Eenheid: =wdCell
            Selection.TypeText textf
    ActiveDocument.CustomDocumentProperties.Item („xRevisionNoOld“). Waarde = ActiveDocument.CustomDocumentProperties.Item („xRevisionNo“). Waarde

Sub van het eind

Antwoord : .columns.first het plaatsen van het probleem van de Lijst (3) als waaier

In het algemeen, adviseer ik gebruikend een voorwerp van de Waaier in plaats van het voorwerp van de Selectie waar mogelijk. Ook is het gemakkelijker om te zien wat bent u proberen te doen (en vandaar gemakkelijker te handhaven) als u waar u in termen van de voorwerpen, in tegenstelling tot MoveDown en MoveRight, enz. wilt zijn specificeert.

Nochtans kunt u één enkele kolom selecteren en zoeken.

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:
Privé SubDocControlAdd ()
   'Schemerige texta, textb, textc, textd, texte, textf als Koord 'dit verduistert allen behalve de laatste variabele als variant

    Schemerige texta als Koord, textb als Koord, textc als Koord, textd als Koord, texte als Koord, textf als Koord
     Schemerige tbl als Lijst
    Schemerige rw als Rij
    Schemerig cl als Cel
    Schemerig c als Geheel
    Schemerige iStartCol als Geheel
    
    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
   Reeks tbl = ActiveDocument.Tables (1)

        Als ActiveDocument.CustomDocumentProperties.Item („xNew“) = „Y“ toen
            Vastgesteld rw = tbl. Rows.Add
        ElseIf NewVersion = Waar toen
            Vastgesteld rw = tbl. Rows.Add
        ElseIf NewVersion = Vals toen
                tbl. Kolommen (iStartCol). Selecteer
                Met Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = Waar
                    .MatchCase = Waar
                    Als. Voer uit (FindText: =texta) toen
                        Vastgesteld cl = Selection.Cells (1)
                        Vastgesteld rw = tbl. Rijen (cl.RowIndex)
                     Eind als
                Eind met
         Eind als
         c = iStartCol
         rw. Cellen (c). Range.Text = texta
         c = c + 1
         rw. Cellen (c). Range.Text = textb
         c = c + 1
         rw. Cellen (c). Range.Text = textc
         c = c + 1
         rw. Cellen (c). Range.Text = textd
         c = c + 1
         rw. Cellen (c). Range.Text = texte
         c = c + 1
         rw. Cellen (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item („xRevisionNoOld“). Waarde = ActiveDocument.CustomDocumentProperties.Item („xRevisionNo“). Waarde

Sub van het eind
Andere oplossingen  
 
programming4us programming4us