sub BlueSans
rem ----------------------------------------------------------------------
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:ChangeCaseRotateCase", "", 0, Array())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:ChangeCaseRotateCase", "", 0, Array())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:ChangeCaseRotateCase", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(2) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Underline.LineStyle"
args4(0).Value = 1
args4(1).Name = "Underline.HasColor"
args4(1).Value = false
args4(2).Name = "Underline.Color"
args4(2).Value = -1

dispatcher.executeDispatch(document, ".uno:Underline", "", 0, args4())

rem ----------------------------------------------------------------------
rem dim args5(0) as new com.sun.star.beans.PropertyValue
rem args5(0).Name = "Color"
rem args5(0).Value = document.

rem dispatcher.executeDispatch(document, ".uno:Color", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(4) as new com.sun.star.beans.PropertyValue
args6(0).Name = "CharFontName.StyleName"
args6(0).Value = ""
args6(1).Name = "CharFontName.Pitch"
args6(1).Value = 2
args6(2).Name = "CharFontName.CharSet"
args6(2).Value = 0
args6(3).Name = "CharFontName.Family"
args6(3).Value = 4
args6(4).Name = "CharFontName.FamilyName"
args6(4).Value = "Comic Sans MS"

dispatcher.executeDispatch(document, ".uno:CharFontName", "", 0, args6())


end sub