☰

在 Word 文档中寻找一个将数字增加 1 的宏

tag-icon • tag-icon microsoft-word vba microsoft-word-2010
在 Word 文档中寻找一个将数字增加 1 的宏

我有一个 Word 文档，其他用户可以访问和更改（在同一台计算机上）。

该文档顶部有一行“版本# XXX”。

我想要的是能够运行一个宏，将 XXX 增加 1 并保存文档。

这可能吗？怎么做？

答案1

您可以创建一个名为“Revision”的文档属性。然后，您应该能够在字段中显示它，并且您的代码可以通过以下方式对其进行读取和写入：

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

它满足了我所寻找的功能。

相关内容