LibreOffice macro to start/stop small caps character formatting

smallCapsOnOff.bas

sub SmallCapsStart
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "CaseMap"
args1(0).Value = 4

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


end sub


sub SmallCapsStop
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "CaseMap"
args1(0).Value = 0

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


end sub

Hi! I found this macro on an OpenOffice.org forum, which toggles between Small Caps and no formating of the characters. Found it useful, thought I'd share it here:

sub ToggleSmallCaps
rem Read the case state of the current selection.
rem If it's SmallCaps (see http://api.openoffice.org/docs/common/ref/com/sun/star/style/CaseMap.html)
rem then set CaseMap=0, which is not necessarily lower case
rem but whatever the underlying text was without any caps effects
If ThisComponent.CurrentSelection.getByIndex(0).CharCaseMap = 4 then
ThisComponent.CurrentSelection.getByIndex(0).CharCaseMap = 0

Else
rem If it was not SmallCaps, then set it
ThisComponent.CurrentSelection.getByIndex(0).CharCaseMap = 4
End if

End sub