☰

Макрос 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

Связанный контент