Pytanie : Problemowy położenie Stół (3).columns.first pasmo

Cześć experts
I móc dlaczego Stół (3).columns.first.range jako range.

See mój kod mój. Podstawowy podstawowy I efektywnie chcieć być:

Zamiast to:
Ćmić myRange Jako Range
Ustalony myRange = ActiveDocument.Tables (3).Range

Make ono to:
Ciemnawy myRange Jako Range
Ustalony myRange = ActiveDocument.Tables (3).Columns (1).Range

But ono pozwalać to. I chcieć the myRange.find w the pierwszy kolumna stół 3 only.

Help, Pomagać, POMAGAĆ!! 
(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 Okręt podwodny DocControlAdd ()


    Ciemnawy texta, textb, textc, textd, texte, textf Sznurek
    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

        Jeżeli ActiveDocument.CustomDocumentProperties.Item ("xNew") = "Y" Wtedy
            Selection.Tables (1).Rows (1).Cells (1).Select
            Selection.Tables (1).Rows.Add
            Selection.MoveDown Jednostka: =wdLine, Obliczenie: =1
        
        ElseIf NewVersion = Prawdziwy Wtedy
        
            Selection.Tables (1).Rows.Last.Select
            Selection.Tables (1).Rows.Add
            Selection.MoveDown Jednostka: =wdLine, Obliczenie: =1
            
        ElseIf NewVersion = Fałszywy Wtedy
                         
                Ciemnawy myRange Pasmo
                Ustalony myRange = ActiveDocument.Tables (3).Range
                
                Z myRange.Find
                .ClearFormatting
                .MatchWholeWord = Prawdziwy
                .MatchCase = Prawdziwy
                . Wykonywać FindText: =texta
                Końcówka Z
                         
                Jeżeli myRange.Find.Found = Prawdziwy Wtedy
                    myRange.Cells (1).Select
                Kończyć Jeżeli
           
            
         Kończyć Jeżeli
         
          Selection.TypeText texta
            
            Selection.MoveRight Jednostka: =wdCell
            Selection.TypeText textb
            
            Selection.MoveRight Jednostka: =wdCell
            Selection.TypeText textc
            
            Selection.MoveRight Jednostka: =wdCell
            Selection.TypeText textd
            
            Selection.MoveRight Jednostka: =wdCell
            Selection.TypeText texte
            
            Selection.MoveRight Jednostka: =wdCell
            Selection.TypeText textf
    ActiveDocument.CustomDocumentProperties.Item ("xRevisionNoOld"). Wartość = ActiveDocument.CustomDocumentProperties.Item ("xRevisionNo"). Wartość

Końcówka Okręt podwodny

Odpowiedź : Problemowy położenie Stół (3).columns.first pasmo

Ogólnie, I radzić using Pasmo przedmiot zamiast the Wybór przedmiot dokąd ewentualny. Także ono być łatwy co ty być próbować (i hence łatwy) jeżeli ty precyzować dokąd ty chcieć pod względem the przedmiot, w przeciwieństwie do MoveDown i MoveRight, Etc.

Ty móc I pojedynczy kolumna. 

(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:

Intymny Okręt podwodny DocControlAdd ()
   'Ciemnawy texta, textb, textc, textd, texte, textf Równie Sznurek 'textf Ćmić textf oprócz the ostatni zmienna wariant

    Ciemnawy texta Jako Sznurek, textb Sznurek, textc Jako Sznurek, textd Sznurek, texte Jako Sznurek, textf Sznurek
     Ciemnawy tbl Stół
    Ciemnawy rw Rząd
    Ciemnawy cl Jako Komórka
    Ciemnawy c Jako Integer
    Ciemnawy iStartCol Jako Integer
    
    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)
   Ustalony tbl = ActiveDocument.Tables (1)

        Jeżeli ActiveDocument.CustomDocumentProperties.Item ("xNew") = "Y" Wtedy
            Set rw = tbl. Rows.Add
        ElseIf NewVersion = Prawdziwy Wtedy
            Set rw = tbl. Rows.Add
        ElseIf NewVersion = Fałszywy Wtedy
                tbl. Kolumna (iStartCol). Wybiórka
                Z Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = Prawdziwy
                    .MatchCase = Prawdziwy
                    Jeżeli. Wykonywać (FindText: =texta) Wtedy
                        Ustalony cl = Selection.Cells (1)
                        Set rw = tbl. Rząd (cl.RowIndex)
                     Kończyć Jeżeli
                Kończyć Z
         Kończyć Jeżeli
         c = iStartCol
         rw. Komórka (c). Range.Text = texta
         c = c + (1)
         rw. Komórka (c). Range.Text = textb
         c = c + (1)
         rw. Komórka (c). Range.Text = textc
         c = c + (1)
         rw. Komórka (c). Range.Text = textd
         c = c + (1)
         rw. Komórka (c). Range.Text = texte
         c = c + (1)
         rw. Komórka (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item ("xRevisionNoOld"). Wartość = ActiveDocument.CustomDocumentProperties.Item ("xRevisionNo"). Wartość

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us