Vraag : Microsoft Word - hoe te om dossiers te gebruiken Automark

Ik heb code die tot een dossier Automark leidt. Hoe gebruik ik het?

Below is de code die ik in de redacteur VB van Word.

When installeerde ik een nieuwe zin inga die een woord bevat dat eerder werd geïndexeerd en deze code in werking stel, wijst de index aan het eind van het document niet op het woord in de nieuwe zin met de eerder-geïndexeerdes hulp word.

Please dit MsWord toevallige user.

Thanks!

Lenny
" 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:
expliciete Option Sub CreateAutoMarkFile () Schemerige fld als Gebied Schemerige strText als Koord Schemerige rw als Rij Schemerige tbl als Lijst Schemerige bFound zoals Van Boole Schemerig doc. als Word.Document Schemerige DocA als Document Vastgestelde DocA = ActiveDocument Vastgesteld doc. = Documents.Add Reeks tbl = doc. Tables.Add (doc. Waaier, 1, 2) Voor Elke fld in DocA.Fields Als fld. Type = wdFieldIndexEntry toen strText = GetIndexText (fld) bFound = Vals Voor Elke rw in tbl. Rijen Als GetCellText (rw. Cellen (1)) = strText toen bFound = Waar Uitgang voor Eind als Volgende rw Als niet bFound toen Als Len (tbl. Rows.Last.Range) = 6 toen Vastgesteld rw = tbl. Rows.Last Anders Vastgesteld rw = tbl. Rows.Add Eind als rw. Cellen (1). Range.Text = strText rw. Cellen (2). Range.Text = strText Eind als Eind als Volgende fld Sub van het eind

Antwoord : Microsoft Word - hoe te om dossiers te gebruiken Automark

Eigenlijk had Lenny, teylyn reeds verklaard hoe te om het werk manueel te doen. Misschien roept haar gebruik als het term „overeenstemmings“ dossier, beetje het verwarrend, maar soms Microsoft was het dat eveneens.

Alle ik was deed wat automatisering voor het deel fiddly te verstrekken.

Ik heb nu één of andere code toegevoegd om het gebruik van het dossier en zijn verwezenlijking eveneens te automatiseren.
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:

expliciete ption


Sub CreateAutoMarkFile ()
Schemerige fld als Gebied
Schemerige strText als Koord
Schemerige rw als Rij
Schemerige tbl als Lijst
Schemerige bFound zoals Van Boole
Schemerig doc. als Word.Document
Schemerige DocA als Document

Vastgestelde DocA = ActiveDocument
Vastgesteld doc. = Documents.Add
Reeks tbl = doc. Tables.Add (doc. Waaier, 1, 2)
Voor Elke fld in DocA.Fields
    Als fld. Type = wdFieldIndexEntry toen
        strText = GetIndexText (fld)
        bFound = Vals
        Voor Elke rw in tbl. Rijen
            Als GetCellText (rw. Cellen (1)) = strText toen
                bFound = Waar
                Uitgang voor
            Eind als
        Volgende rw
        Als niet bFound toen
            Als Len (tbl. Rows.Last.Range) = 6 toen
                Vastgesteld rw = tbl. Rows.Last
            Anders
                Vastgesteld rw = tbl. Rows.Add
            Eind als
            rw. Cellen (1). Range.Text = strText
            rw. Cellen (2). Range.Text = strText
        Eind als
    Eind als
Volgende fld

doc.SaveAs „C:\MyFolder\MyAutoMark.doc“
doc. Dichte wdDoNotSaveChanges
DocA.Indexes.AutoMarkEntries „C:\MyFolder\MyAutoMark.doc“

Sub van het eind

Functie GetCellText (cl als Word.Cell) als Koord
    Schemerige rng als Waaier
    Reeks rng = cl. Waaier
    rng.MoveEnd wdCharacter, -1
    GetCellText = rng. Tekst
De Functie van het eind

Functie GetIndexText (fld als Word.Field) als Koord
    Schemerig p als Geheel
    Schemerig q als Geheel
    Schemerige strText als Koord
    
    strText = fld. Code.Text
    p = InStr (strText, """")
    q = InStrRev (strText, """")
    GetIndexText = Mid$ (strText, p + 1, q - p - 1)
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us