![在 Word 文档中寻找一个将数字增加 1 的宏](https://linux22.com/image/1554768/%E5%9C%A8%20Word%20%E6%96%87%E6%A1%A3%E4%B8%AD%E5%AF%BB%E6%89%BE%E4%B8%80%E4%B8%AA%E5%B0%86%E6%95%B0%E5%AD%97%E5%A2%9E%E5%8A%A0%201%20%E7%9A%84%E5%AE%8F.png)
我有一个 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
它满足了我所寻找的功能。