LibreOffice6.1 Writer 横線を引くマクロ

LibreOffice6.1 Writer 横線を引くマクロ

　

OS LinuxMint19 Cinnamon 64bit

LibreOffice 6.1.0.3

　

メニューバー　→　挿入　→　横線

をマクロの記録で取得した。

横線は旧バージョンの水平線ぽい？

sub H_line
'カーソル位置に横線を引く
'
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Template"
args1(0).Value = "横線"
args1(1).Name = "FamilyName"
args1(1).Value = "ParagraphStyles"
args1(2).Name = "Style"
args1(2).Value = "Horizontal Line"

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


end sub

横線の上に小さな文字を書ける

横線は必ず左端から

横線の上で右クリック　段落スタイル：横線のプロパティ

設定項目はたくさん有るのですがやり方がよく分かりません。