☰

Macro de OpenOffice: cómo agregar texto al campo "Autor"

tag-icon • tag-icon microsoft-word macros openoffice
Macro de OpenOffice: cómo agregar texto al campo "Autor"

Actualmente tengo una macro OO que procesa un documento y luego establece el "Autor" usando:

oDoc.getDocumentProperties().Author = cAuthor

Sin embargo, eso reemplaza cualquier texto existente en ese campo, me gustaría poder simplemente agregar el nuevo texto al campo "Autor" en lugar de sobrescribir el existente.

Respuesta1

Guarde el valor del autor actual en una variable de cadena. Luego agregue lo que desee al final de la variable de cadena. Finalmente, guarde la nueva propiedad del autor. Aquí hay un ejemplo de 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

información relacionada