Frage : Microsoft Word - wie man Automark Akten benutzt

Ich habe Code, der eine Automark Akte herstellt. Wie verwende ich ihn?

Below ist der Code, den ich in den VB Herausgeber von Word.

When anbrachte, das, ich einen neuen Satz eintrage, der ein Wort, das vorher registriert und diesen Code laufen lässt wurde, der Index am Ende des Dokuments reflektiert nicht das Wort im neuen Satz mit der vorhergehend-indexierten word.

Please Hilfe dieser MsWord beiläufiges user.

Thanks enthält!

Lenny 
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:
6:

Option ausdrücklich

VorCreateAutoMarkFile ()
Schwaches fld als Feld
Schwaches strText als Schnur
Schwaches RW als Reihe
Schwaches tbl als Tabelle
Schwaches bFound, wie Boolesch
Schwaches Doc. als Word.Document
Schwaches DocA als Dokument

DocA = ActiveDocument einstellen
Einstellen Doc. = Documents.Add
Tbl = Doc. Tables.Add einstellen (Doc. Strecke, 1, 2)
Für jedes fld in DocA.Fields
    Wenn fld. Art = wdFieldIndexEntry dann
        strText = GetIndexText (fld)
        bFound = falsch
        Für jedes RW im tbl. Reihen
            Wenn GetCellText (RW. Zellen (1)) = strText dann
                bFound = richten aus
                Für herausnehmen
            Beenden wenn
        Folgendes RW
        Wenn nicht bFound dann
            Wenn Len (tbl. Rows.Last.Range) = 6 dann
                Einstellen RW = tbl. Rows.Last
            Sonst
                Einstellen RW = tbl. Rows.Add
            Beenden wenn
            RW. Zellen (1).Range.Text = strText
            RW. Zellen (2).Range.Text = strText
        Beenden wenn
    Beenden wenn
Folgendes fld
Enden-Unterseeboot

Antwort : Microsoft Word - wie man Automark Akten benutzt

Wirklich Lenny, teylyn hatte bereits erklärt, wie man die Arbeit manuell erledigt. Möglicherweise benennt ihr Gebrauch, wenn die Ausdruck„Übereinstimmung“ Akte, ein bisschen verwirrte, aber Microsoft sie manchmal, die außerdem.

Alles, das ich tat, war, etwas Automatisierung für das fiddly Fach zur Verfügung zu stellen.

Ich habe jetzt irgendeinen Code addiert, um den Gebrauch von der Akte und seiner Kreation außerdem zu automatisieren.
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:
6:
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 ausdrücklich


VorCreateAutoMarkFile ()
Schwaches fld als Feld
Schwaches strText als Schnur
Schwaches RW als Reihe
Schwaches tbl als Tabelle
Schwaches bFound, wie Boolesch
Schwaches Doc. als Word.Document
Schwaches DocA als Dokument

DocA = ActiveDocument einstellen
Einstellen Doc. = Documents.Add
Tbl = Doc. Tables.Add einstellen (Doc. Strecke, 1, 2)
Für jedes fld in DocA.Fields
    Wenn fld. Art = wdFieldIndexEntry dann
        strText = GetIndexText (fld)
        bFound = falsch
        Für jedes RW im tbl. Reihen
            Wenn GetCellText (RW. Zellen (1)) = strText dann
                bFound = richten aus
                Für herausnehmen
            Beenden wenn
        Folgendes RW
        Wenn nicht bFound dann
            Wenn Len (tbl. Rows.Last.Range) = 6 dann
                Einstellen RW = tbl. Rows.Last
            Sonst
                Einstellen RW = tbl. Rows.Add
            Beenden wenn
            RW. Zellen (1).Range.Text = strText
            RW. Zellen (2).Range.Text = strText
        Beenden wenn
    Beenden wenn
Folgendes fld

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

Enden-Unterseeboot

Funktion GetCellText (Cl als Word.Cell) als Schnur
    Schwaches rng als Strecke
    Rng = Cl einstellen. Strecke
    rng.MoveEnd wdCharacter, -1
    GetCellText = rng. Text
Enden-Funktion

Funktion GetIndexText (fld als Word.Field) als Schnur
    Schwaches p als ganze Zahl
    Schwaches q als ganze Zahl
    Schwaches strText als Schnur
    
    strText = fld. Code.Text
    p = InStr (strText, """")
    q = InStrRev (strText, """")
    GetIndexText = Mid$ (strText, p + 1, q - p - 1)
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us