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

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

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

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

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

 

 

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

ThisComponent.CurrentController.getViewCursor.setString(Date)

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

End Sub

 

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