So-net無料ブログ作成
検索選択

LibreOffice Writer Basic 文末に文字列を挿入するマクロの実験 [LibreOffice Writer Basic]

LibreOffice Writer Basic 文末に文字列を挿入するマクロの実験

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

LibreOffice Writer_gotoEnd.png

 

Sub bunnmatu2()
'writer 文末に文字列挿入
    Dim oCur As Object
    Dim oTxt As String
   
    '挿入文字列
        oTxt=chr(10) & date & "         編集 編集者名"
       
    'TextCursor
        oCur = ThisComponent.getText().createTextCursor
       
    ' 文末へ
        oCur.gotoEnd(false)
    '文字列挿入
        oCur.setString(oTxt)
       
End Sub

 

文頭なら oCur.gotoStartOfParagraph(false)


nice!(3)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 3

コメント 0

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この記事のトラックバックURL:
※言及リンクのないトラックバックは受信されません。