LibreOffice Writer Basic 表の挿入と文字列挿入

LibreOffice Writer Basic 表の挿入と文字列挿入

参考サイト
ttp://openoffice3.web.fc2.com/OOoBasic_Writer_No2.html#OOoWT1b

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

 

 

Sub writer_table_test_1()
'表を作成して、表題を挿入する
Dim oText,oTable,oCurs

    oText = ThisComponent.getText()
   
    '表作成    .initialize(行数, 列数)
        oTable = ThisComponent.createInstance("com.sun.star.text.TextTable")
        oTable.initialize(3, 3)
        oCurs = ThisComponent.getCurrentController().getViewCursor()
       
    '表挿入
        oText.insertTextContent(oCurs, oTable, False)
       
    ' 文字入力    Array("","","")は行数分必要
          oTable.setDataArray(Array(Array("氏名","TEL","E-mail"),Array("","",""), Array("","","")))
End Sub