☰

尋找一個在Word文檔中將數字加1的宏

tag-icon • tag-icon microsoft-word vba microsoft-word-2010
尋找一個在Word文檔中將數字加1的宏

我有一個其他使用者可以存取和更改的 Word 文件（在同一台電腦上）。

該文件的頂部有一行「版本# XXX」。

我想要的是能夠運行一個宏，將 XXX 加 1 並保存文件。

那可能嗎？如何？

答案1

您可以建立一個名為（例如）修訂版的文件屬性。然後，您應該能夠將其顯示在字段中，並且您的程式碼可以透過以下方式讀取和寫入它：

myDocument.CustomDocumentProperties("Revision").Value

答案2

如果有人有興趣，這是我找到的答案。

1/ 插入一個欄位 (CTRL+F9) 作為“{ DOCVARIABLE VNUM }”

2/ 使用以下程式碼建立巨集：

    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

它非常適合我正在尋找的東西。

相關內容