Frage : Problemeinstellung Tabelle (3).columns.first als Strecke

Hallo kann experts
I nicht ausarbeiten, wie man Tabellen vorwählt (3).columns.first.range als range.

See mein Code unten. Im Allgemeinen, was ich effektiv wünsche, ist:

anstelle von diesem:
verdunkeln myRange, wie Range
gesetztes myRange = ActiveDocument.Tables (3).Range

Make es dieses:
schwaches myRange als Range
gesetztes myRange = ActiveDocument.Tables (3).Columns (1).Range

But lässt es mich nicht den tun. Ich wünsche das myRange.find in der ersten Spalte der Tabelle 3 only.

Help schauen, helfe, HELFE!! 
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:
6:
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 VorDocControlAdd ()


    Schwaches texta, textb, textc, textd, texte, textf als Schnur
    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

        Wenn ActiveDocument.CustomDocumentProperties.Item („xNew“) = „Y“ dann
            Selection.Tables (1).Rows (1).Cells (1).Select
            Selection.Tables (1).Rows.Add
            Selection.MoveDown Maßeinheit: =wdLine, Zählimpuls: =1
        
        ElseIf NewVersion = richten dann aus
        
            Selection.Tables (1).Rows.Last.Select
            Selection.Tables (1).Rows.Add
            Selection.MoveDown Maßeinheit: =wdLine, Zählimpuls: =1
            
        ElseIf NewVersion = falsch dann
                         
                Schwaches myRange als Strecke
                myRange = ActiveDocument.Tables einstellen (3).Range
                
                Mit myRange.Find
                .ClearFormatting
                .MatchWholeWord = richten aus
                .MatchCase = richten aus
                . FindText durchführen: =texta
                Ende mit
                         
                Wenn myRange.Find.Found = dann ausrichten
                    myRange.Cells (1).Select
                Beenden wenn
           
            
         Beenden wenn
         
          Selection.TypeText texta
            
            Selection.MoveRight Maßeinheit: =wdCell
            Selection.TypeText textb
            
            Selection.MoveRight Maßeinheit: =wdCell
            Selection.TypeText textc
            
            Selection.MoveRight Maßeinheit: =wdCell
            Selection.TypeText textd
            
            Selection.MoveRight Maßeinheit: =wdCell
            Selection.TypeText texte
            
            Selection.MoveRight Maßeinheit: =wdCell
            Selection.TypeText textf
    ActiveDocument.CustomDocumentProperties.Item („xRevisionNoOld“). Wert = ActiveDocument.CustomDocumentProperties.Item („xRevisionNo“). Wert

Enden-Unterseeboot

Antwort : Problemeinstellung Tabelle (3).columns.first als Strecke

Im Allgemeinen rate ich using einen Streckengegenstand anstelle vom Vorwählergegenstand wo möglich. Auch es ist einfacher, zu sehen, dass was sind Sie, versuchen zu tun (und folglich einfacher beizubehalten) wenn Sie spezifizieren, wo Sie in den Gegenständen ausgedrückt, im Vergleich mit MoveDown und MoveRight sein möchten, etc.

Jedoch können Sie ein Einspalten vorwählen und suchen. 

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Privates VorDocControlAdd ()
   'Schwaches texta, textb, textc, textd, texte, textf als Schnur 'dieses verdunkelt alle ausgenommen die letzte Variable als Variante

    Schwaches texta als Schnur, textb als Schnur, textc als Schnur, textd als Schnur, texte als Schnur, textf als Schnur
     Schwaches tbl als Tabelle
    Schwaches RW als Reihe
    Schwaches Cl als Zelle
    Schwaches c als ganze Zahl
    Schwaches iStartCol als ganze Zahl
    
    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 einstellen (1)

        Wenn ActiveDocument.CustomDocumentProperties.Item („xNew“) = „Y“ dann
            Einstellen RW = tbl. Rows.Add
        ElseIf NewVersion = ausrichten dann nn
            Einstellen RW = tbl. Rows.Add
        ElseIf NewVersion = falsch dann
                tbl. Spalten (iStartCol). Auserwählt
                Mit Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = ausrichten en
                    .MatchCase = ausrichten en
                    Wenn. Durchführen (FindText: =texta) dann
                        Cl = Selection.Cells einstellen (1)
                        Einstellen RW = tbl. Reihen (cl.RowIndex)
                     Beenden wenn
                Mit beenden
         Beenden wenn
         c = iStartCol
         RW. Zellen (c). Range.Text = texta
         c = c + 1
         RW. Zellen (c). Range.Text = textb
         c = c + 1
         RW. Zellen (c). Range.Text = textc
         c = c + 1
         RW. Zellen (c). Range.Text = textd
         c = c + 1
         RW. Zellen (c). Range.Text = texte
         c = c + 1
         RW. Zellen (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item („xRevisionNoOld“). Wert = ActiveDocument.CustomDocumentProperties.Item („xRevisionNo“). Wert

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us