☰

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

関連情報