☰

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

相關內容