Questione : Microsoft Word - come usare le lime di Automark

Ho codice che genera una lima di Automark. Come lo uso? il

Below è il codice che ho installato nel redattore di VB di Word.

When che entro in una nuova frase che contiene una parola che precedentemente è stata spostata ad incrementi e fa funzionare questo codice, l'indice all'estremità del documento non riflette la parola nella nuova frase con l'aiuto precedente-spostato ad incrementi di word.

Please questo MsWord user.

Thanks!

Lenny class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty " del class= " del id= " codeSnippet936935 del
class= del

Risposta : Microsoft Word - come usare le lime di Automark

Realmente Lenny, teylyn già aveva spiegato come fare manualmente il lavoro. Forse il suo uso se la lima “della concordanza„ di termine, un po'stesse confondendo, ma Microsoft a volte la denomina che pure.

Tutto che facessi era di fornire una certa automazione per il divisorio fiddly.

Ora ho aggiunto un certo codice per automatizzare l'uso della lima pure e della relativa creazione.
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 esplicito


CreateAutoMarkFile secondario ()
Fld fioco come campo
strText fioco come stringa
Il RW fioco come fila
Tbl fioco come Tabella
bFound fioco come booleano
Documento fioco come Word.Document
DocA fioco come documento

Regolare DocA = ActiveDocument
Regolar documento = Documents.Add
Regolare il tbl = il documento. Tables.Add (documento. Gamma, 1, 2)
Per ogni fld in DocA.Fields
    Se fld. Tipo = wdFieldIndexEntry allora
        strText = GetIndexText (fld)
        bFound = falso
        Per l'ogni RW nel tbl. File
            Se GetCellText (RW. Cellule (1)) = strText allora
                il bFound = allinea
                Uscire per
            Concluder se
        Il RW seguente
        Se non bFound allora
            Se Len (tbl. Rows.Last.Range) = 6 allora
                Regolar il RW = tbl. Rows.Last
            Altrimenti
                Regolar il RW = tbl. Rows.Add
            Concluder se
            il RW. Cellule (1).Range.Text = strText
            il RW. Cellule (2).Range.Text = strText
        Concluder se
    Concluder se
Fld seguente

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

Sommergibile dell'estremità

Funzione GetCellText (Cl come Word.Cell) come stringa
    Rng fioco come gamma
    Regolare il rng = il Cl. Gamma
    wdCharacter di rng.MoveEnd, -1
    GetCellText = rng. Testo
Funzione di conclusione

Funzione GetIndexText (fld come Word.Field) come stringa
    P fioca come numero intero
    Q fioca come numero intero
    strText fioco come stringa
    
    strText = fld. Code.Text
    p = InStr (strText, """")
    q = InStrRev (strText, """")
    GetIndexText = Mid$ (strText, p + 1, q - p - 1)
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us