☰

Suche nach einem Makro, um eine Zahl in einem Word-Dokument um 1 zu erhöhen

tag-icon • tag-icon microsoft-word vba microsoft-word-2010
Suche nach einem Makro, um eine Zahl in einem Word-Dokument um 1 zu erhöhen

Ich habe ein Word-Dokument, auf das andere Benutzer (auf demselben Computer) zugreifen und es ändern können.

Oben in diesem Dokument steht eine Zeile mit dem Text „Version Nr. XXX“.

Ich möchte die Möglichkeit haben, ein Makro auszuführen, das XXX um 1 erhöht und das Dokument speichert.

Ist das möglich? Wie?

Antwort1

Sie könnten eine Dokumenteigenschaft namens (sagen wir) Revision erstellen. Sie sollten diese dann in einem Feld anzeigen können und Ihr Code kann sie über Folgendes lesen und beschreiben:

myDocument.CustomDocumentProperties("Revision").Value

Antwort2

Falls es jemals jemanden interessiert, hier ist die Antwort, die ich gefunden habe.

1/ Fügen Sie ein Feld (STRG+F9) als "{ DOCVARIABLE VNUM }" ein.

2/ Erstellen Sie ein Makro mit dem folgenden Code:

    Sub IncrementVersion()

    On Error Resume Next
    With ActiveDocument
        .Variables.Add ("VNUM")
        On Error GoTo 0
        If IsNumeric(.Variables("VNUM")) = False Then
            .Variables("VNUM") = 1
        Else
            If .Saved = False Then
                .Variables("VNUM") = .Variables("VNUM") + 1
                Else
                    If MsgBox("No changes", vbOKCancel) = vbCancel Then
                    Exit Sub
                    Else
                    'nothing
                End If
            End If
        End If
        .Fields.Update
        .Save
        .Close
    End With
    End Sub

Für das, was ich gesucht habe, funktioniert es gut.

verwandte Informationen