So-net無料ブログ作成
LibreOffice Writer Basic ブログトップ
前の5件 | -

LibreOffice Writer Basic 表の挿入と項目設定するマクロの実験 [LibreOffice Writer Basic]

LibreOffice Writer Basic 表の挿入と項目設定するマクロの実験

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

無題 1 - LibreOffice Writer_tableCell.png

Sub WriterTableTXT()
'write 3列20行の表を作成、項目テキスト挿入

      Dim oTable As object
      Dim oCurs As object
      Dim oText As object
      Dim oVCurs As object
      Dim oCell  As object
     
        'oText 
            oText = ThisComponent.getText()
          ' 表作成
              oTable = ThisComponent.createInstance("com.sun.star.text.TextTable")
          '20行、3列
              oTable.initialize(20, 3)
         
              oCurs =ThisComponent.getCurrentController().getViewCursor()
              oText.insertTextContent(oCurs, oTable, False)
     
          ' Table 選択
              ThisComponent.getCurrentController().select(oTable)
              oVCurs = ThisComponent.getCurrentController().getViewCursor()
          '
          ' Cursor位置移動,文字列挿入 calc風 列、行
     
            oCell1 = oTable.getCellByPosition(0,0)
            oCell1.string="氏名"
            oCell1 = oTable.getCellByPosition(1,0)
            oCell1.string="TEL"
                oCell1 = oTable.getCellByPosition(2,0)
            oCell1.string="E-mail"
           
End Sub

 


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)


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

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

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

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

 LibreOffice Writer_tableTXT.png

 

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

 


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

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

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

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

LibreOffice Writer_txtTable.png

 

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

 


LibreOffice Writer basic カーソルのあるページ番号を調べるマクロの実験 [LibreOffice Writer Basic]

LibreOffice Writer basic カーソルのあるページ番号を調べるマクロの実験

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

 

LibreOffice Writer_page.png

あまり使い道のないマクロ

 .getViewCursor.Page

 

Sub pageNo()
'writer カーソルのあるページ番号

Dim PageNo As Integer

    PageNo= ThisComponent.CurrentController.getViewCursor.page
   
    msgbox PageNo & " ページ"

End Sub

 


前の5件 | - LibreOffice Writer Basic ブログトップ