I use this macro a lot when I’m adjusting the hyphenation:
sub Condense
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Spacing"
args1(0).Value = -3
dispatcher.executeDispatch(document, ".uno:Spacing", "", 0, args1())
end sub
Hit Alt+F11 to open OOo Basic, hit Edit on a module in My Macros (not in the document section), paste it and assign a shortcut in the customization preferences (I use Ctrl + C).
