Cuestión : Microsoft Word - cómo utilizar los archivos de Automark

Tengo código que cree un archivo de Automark. ¿Cómo lo utilizo? ¡el

Below es el código que instalé en el redactor de VB de Word.

When que incorporo una nueva oración que contenga una palabra que fue puesta en un índice y funcione con previamente este código, el índice en el extremo del documento no refleje la palabra en la nueva oración con la ayuda anterior-puesta en un índice de word.

Please este MsWord user.

Thanks!

Lenny class= > " claro " 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

Respuesta : Microsoft Word - cómo utilizar los archivos de Automark

Realmente Lenny, teylyn había explicado ya cómo hacer el trabajo manualmente. Quizás su uso si el archivo de la “concordancia” del término, un poco confundía, solamente Microsoft lo llama a veces que también.

Todo lo que lo hice era proporcionar una cierta automatización para la partición fiddly.

Ahora he agregado un cierto código para automatizar el uso del archivo también y de su creación.
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 explícito


CreateAutoMarkFile secundario ()
Fld dévil como campo
strText dévil como secuencia
RW dévil como fila
Tbl dévil como tabla
bFound dévil como boleano
Doc. dévil como Word.Document
DocA dévil como documento

Fijar DocA = ActiveDocument
Fijar doc. = Documents.Add
Fijar el tbl = doc. Tables.Add (doc. Gama, 1, 2)
Para cada fld en DocA.Fields
    Si fld. Tipo = wdFieldIndexEntry entonces
        strText = GetIndexText (fld)
        bFound = falso
        Para cada RW en tbl. Filas
            Si GetCellText (RW. Células (1)) = strText entonces
                el bFound = verdad
                Salir para
            Terminar si
        RW siguiente
        Si no bFound entonces
            Si Len (tbl. Rows.Last.Range) = 6 entonces
                Fijar RW = el tbl. Rows.Last
            
                Fijar RW = el tbl. Rows.Add
            Terminar si
            RW. Células (1).Range.Text = strText
            RW. Células (2).Range.Text = strText
        Terminar si
    Terminar si
Fld siguiente

doc.SaveAs “C:\MyFolder\MyAutoMark.doc”
doc. wdDoNotSaveChanges cercanos
DocA.Indexes.AutoMarkEntries “C:\MyFolder\MyAutoMark.doc”

Submarino del extremo

Función GetCellText (cl como Word.Cell) como secuencia
    Rng dévil como gama
    Fijar el rng = el cl. Gama
    wdCharacter de rng.MoveEnd, -1
    GetCellText = rng. Texto
Función del final

Función GetIndexText (fld como Word.Field) como secuencia
    P dévil como número entero
    Q dévil como número entero
    strText dévil como secuencia
    
    strText = fld. Code.Text
    p = InStr (strText, """")
    q = InStrRev (strText, """")
    GetIndexText = Mid$ (strText, p + 1, q - p - 1)
Función del final
Otras soluciones  
 
programming4us programming4us