Question : Tableau d'arrangement de problème (3).columns.first comme gamme

Salut l'experts
I ne peut pas établir comment choisir les Tableaux (3).columns.first.range comme range.

See mon code ci-dessous. Fondamentalement ce que je veux effectivement est :

au lieu de ceci : Le
obscurcissent le myRange comme myRange réglé de Range
= ActiveDocument.Tables (3).Range

Make il ceci : Faible myRange du
comme myRange réglé de Range
= ActiveDocument.Tables (3).Columns (1).Range

But il ne me laissera pas faire cela. Je veux que le myRange.find regarde dans la première colonne du tableau 3 only.

Help, aide, AIDE ! !
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de
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 " de l'id= " codeSnippet798749 de
           
class= de

Réponse : Tableau d'arrangement de problème (3).columns.first comme gamme

Généralement je conseille using un objet de gamme au lieu de l'objet de choix si possible. Également il est plus facile de voir que ce qu'êtes vous essayent de faire (et par conséquent plus facile à maintenir) si vous spécifiez où vous voulez être en termes d'objets, par opposition à MoveDown et à MoveRight, etc.

Cependant vous pouvez choisir et rechercher une colonne simple.

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 secondaire privé ()
   Le 'faible texta, textb, textc, textd, le texte, textf comme corde 'ceci obscurcit tous excepté la dernière variable comme variante

    Faible texta comme corde, textb comme corde, textc comme corde, textd comme corde, texte comme corde, textf comme corde
     Faible tbl comme Tableau
    Le faible RW comme rangée
    Faible Cl comme cellule
    Faible c comme nombre entier
    Faible iStartCol comme nombre entier
    
    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
   Placer le tbl = l'ActiveDocument.Tables (1)

        Si ActiveDocument.CustomDocumentProperties.Item (« xNew ») = « Y » puis
            Placer le RW = le tbl. Rows.Add
        ElseIf NewVersion = rectifient alors
            Placer le RW = le tbl. Rows.Add
        ElseIf NewVersion = faux puis
                tbl. Colonnes (iStartCol). Choisi
                Avec Selection.Find
                    .ClearFormatting
                    .MatchWholeWord = rectifient
                    .MatchCase = rectifient
                    Si. Exécuter (FindText : =texta) puis
                        Placer le Cl = Selection.Cells (1)
                        Placer le RW = le tbl. Rangées (cl.RowIndex)
                     Finir si
                Finir avec
         Finir si
         c = iStartCol
         le RW. Cellules (c). Range.Text = texta
         c = c + 1
         le RW. Cellules (c). Range.Text = textb
         c = c + 1
         le RW. Cellules (c). Range.Text = textc
         c = c + 1
         le RW. Cellules (c). Range.Text = textd
         c = c + 1
         le RW. Cellules (c). Range.Text = texte
         c = c + 1
         le RW. Cellules (c). Range.Text = textf
    ActiveDocument.CustomDocumentProperties.Item (« xRevisionNoOld »). Valeur = ActiveDocument.CustomDocumentProperties.Item (« xRevisionNo »). Valeur

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us