☰

OpenOffice 宏 - 如何将文本附加到“作者”字段

tag-icon • tag-icon microsoft-word macros openoffice
OpenOffice 宏 - 如何将文本附加到“作者”字段

目前我有一个 OO 宏，它处理一个文档，然后使用以下命令设置“作者”：

oDoc.getDocumentProperties().Author = cAuthor

但是，这会替换该字段中的任何现有文本，我希望能够将新文本附加到“作者”字段，而不是覆盖现有文本。

答案1

将当前作者值保存到字符串变量中。然后将您想要的内容添加到字符串变量的末尾。最后，保存新的作者属性。这是一个 VBA 示例：

Sub AppendAuthor()
    Dim cAuthor As String
    cAuthor = ActiveDocument.BuiltInDocumentProperties(Word.wdPropertyAuthor) & chr(32) & "New Author"
    ActiveDocument.BuiltInDocumentProperties(Word.wdPropertyAuthor) = cAuthor
    Debug.Print ActiveDocument.BuiltInDocumentProperties(Word.wdPropertyAuthor)
End Sub

相关内容