LibreOffice Write Basic 表を挿入するマクロの実験

LibreOffice Write Basic 表を挿入するマクロの実験

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

参考にしたサイト　　ttp://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOoBasic%2FWriter%2Ftable

 

Sub insert_table2()
'writer　表の挿入
'
    Dim oRows ,oColumuns As Integer
   
    'oRows 行数　oColmuns 列数
    oRows=6
    oColumns=3

    oText = ThisComponent.getText()
    oTable = ThisComponent.createInstance("com.sun.star.text.TextTable")
    oTable.setName("NewTable")
   
    oTable.initialize(oRows,oColumns)
 
    ThisComponent.getText().insertTextContent(oText.getEnd(), oTable, True)
 
End Sub