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

LibreOffice Writer 現在のカーソル位置に今日の日付を挿入するマクロの実験 [LibreOffice Writer Basic]

LibreOffice Writer 現在のカーソル位置に今日の日付を挿入するマクロの実験

以前の記事では日付挿入をマクロの記録で実行したマクロだったが、今回は別の方法で試した。

下のマクロのように3つのパターンを実行すると、現在のカーソル位置で上書きされる。

下の画像はカーソル位置を変えて実行した。

 LibreOffice Writer_date.png

 

Sub writer_date()
'writer 現在のカーソル位置に今日の日付を挿入する。

ThisComponent.CurrentController.getViewCursor.setString(Date)

'ThisComponent.CurrentController.getViewCursor.setString(Date & " " & Time)
'ThisComponent.CurrentController.getViewCursor.setString(now)

End Sub

 

LibreOffice Writer_dateFormat.png

Sub writer_date()
'writer 現在のカーソル位置に今日の日付を挿入する。
ThisComponent.CurrentController.getViewCursor.setString(format(Date,"GGGE年M月D日(AAA)")
End Sub