☰

OpenOffice-Makro - So fügen Sie Text zum Feld „Autor“ hinzu

tag-icon • tag-icon microsoft-word macros openoffice
OpenOffice-Makro - So fügen Sie Text zum Feld „Autor“ hinzu

derzeit habe ich ein OO-Makro, das ein Dokument verarbeitet und dann den „Autor“ mithilfe von Folgendem festlegt:

oDoc.getDocumentProperties().Author = cAuthor

Dadurch wird jedoch der vorhandene Text in diesem Feld ersetzt. Ich möchte den neuen Text einfach an das Feld „Autor“ anhängen können, anstatt den vorhandenen zu überschreiben.

Antwort1

Speichern Sie den aktuellen Autorenwert in einer Zeichenfolgenvariable. Fügen Sie dann am Ende der Zeichenfolgenvariable das Gewünschte hinzu. Speichern Sie abschließend die neue Autoreneigenschaft. Hier ist ein VBA-Beispiel:

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

verwandte Informationen