Question : Microsoft Word - comment employer des dossiers d'Automark

J'ai le code qui crée un dossier d'Automark. Comment est-ce que je l'emploie ? le

Below est le code que j'ai installé dans le rédacteur de VB de Word.

When que j'écris une nouvelle phrase qui contient un mot qui a été précédemment indexé et court ce code, l'index à la fin du document ne reflète pas le mot dans la nouvelle phrase avec l'aide précédent-répertoriée de word.

Please ce MsWord user.

Thanks !

Lenny 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 :
>Option " de l'id= " codeSnippet936935 de
class= de

Réponse : Microsoft Word - comment employer des dossiers d'Automark

En fait Lenny, teylyn avait déjà expliqué comment réaliser le travail manuellement. Peut-être son utilisation si le dossier de « concordance » de terme, un peu confondait, mais Microsoft l'appelle parfois qui aussi bien.

Tout que j'ai fait était de fournir de l'automation pour la cloison fiddly.

J'ai maintenant ajouté un certain code pour automatiser l'utilisation du dossier aussi bien et de sa création.
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 :

ption explicite


CreateAutoMarkFile secondaire ()
Faible fld comme champ
Faible strText comme corde
Le faible RW comme rangée
Faible tbl comme Tableau
Faible bFound comme booléen
Faible Doc. comme Word.Document
Faible DocA comme document

Placer DocA = ActiveDocument
Placer Doc. = Documents.Add
Placer le tbl = le Doc. Tables.Add (Doc. Gamme, 1, 2)
Pour chaque fld dans DocA.Fields
    Si fld. Type = wdFieldIndexEntry puis
        strText = GetIndexText (fld)
        bFound = faux
        Pour le chaque RW dans le tbl. Rangées
            Si GetCellText (RW. Cellules (1)) = strText alors
                le bFound = rectifient
                Sortir pour
            Finir si
        Le prochain RW
        Sinon bFound alors
            Si Len (tbl. Rows.Last.Range) = 6 puis
                Placer le RW = le tbl. Rows.Last
            Autrement
                Placer le RW = le tbl. Rows.Add
            Finir si
            le RW. Cellules (1).Range.Text = strText
            le RW. Cellules (2).Range.Text = strText
        Finir si
    Finir si
Prochain fld

doc.SaveAs « C:\MyFolder\MyAutoMark.doc »
Doc. wdDoNotSaveChanges étroits
DocA.Indexes.AutoMarkEntries « C:\MyFolder\MyAutoMark.doc »

Sous-marin d'extrémité

Fonction GetCellText (Cl comme Word.Cell) comme corde
    Faible rng comme gamme
    Placer le rng = le Cl. Gamme
    wdCharacter de rng.MoveEnd, -1
    GetCellText = rng. Texte
Fonction de fin

Fonction GetIndexText (fld comme Word.Field) comme corde
    Faible p comme nombre entier
    Faible q comme nombre entier
    Faible strText comme corde
    
    strText = fld. Code.Text
    p = InStr (strText, """")
    q = InStrRev (strText, """")
    GetIndexText = Mid$ (strText, p + 1, q - p - 1)
Fonction de fin
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