LibreOffice Writer 今日の日付挿入マクロを実行するとシリアル値が入力される

LibreOffice Writer 今日の日付挿入マクロを実行するとシリアル値が入力される。

前記事　2017-3-27 でマクロの記録でフィールドCTRL　＋　F２　で日付を挿入する手順をマクロの記録で記録し実行するとシリアル値が挿入されることが今日わかった。

対策をどうしょうか考え中
writerのbasicマクロに慣れていないので、もっとなれが必要！

 

 

Sub writer_insert_Date()
'今日の日付を挿入
'
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 0
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = "0"
args1(4).Name = "Format"
args1(4).Value = 10080
args1(5).Name = "Separator"
args1(5).Value = " "

dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())


End Sub