I have this piece of script that can mass change fonts, their properties and size:
Code: Select all
Sub Spacing()
doc = ThisComponent
sNames = Array(“Spacing”)
values = Array(0)
changeFormulaProperties doc, sNames, values
End Sub
Code: Select all
**Attribute Type Example**
CustomFontNameFixed string "Liberation Mono"
CustomFontNameSans string "Liberation Sans"
CustomFontNameSerif string "Liberation Serif"
FontFixedIsBold boolean False
FontFixedIsItalic boolean False
FontFunctionsIsBold boolean False
FontFunctionsIsItalic boolean False
FontMathIsBold boolean False
FontMathIsItalic boolean False
FontNameFunctions string "Liberation Serif"
FontNameMath string "OpenSymbol"
FontNameNumbers string "Liberation Serif"
FontNameText string "Liberation Serif"
FontNameVariables string "Liberation Serif"
FontNumbersIsBold boolean False
FontNumbersIsItalic boolean False
FontSansIsBold boolean False
FontSansIsItalic boolean False
FontSerifIsBold boolean False
FontSerifIsItalic boolean False
FontTextIsBold boolean False
FontTextIsItalic boolean False
FontVariablesIsBold boolean False
FontVariablesIsItalic boolean True
Thank you in advance.