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

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

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

 

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)

コメント 1

Viagra Italia Online https://viacialisns.com/ - cialis canada Ordering Isotretinoin <a href=https://viacialisns.com/#>buy cialis daily online</a> Best Buy On Cialus
by Bupsfutty (2020-06-11 03:00)