change_fonts.py

# LibreOffice macro script
import uno

def changeFontsWithin(object_list, to_font, to_weight=None):
    for i in range(object_list.getCount()):
        shape = object_list.getByIndex(i)
        the_type =  shape.getShapeType()
        assert(shape.supportsService(the_type))
        if shape.supportsService('com.sun.star.drawing.TextProperties'):
            if to_font:
                shape.CharFontName = to_font
            if to_weight != None:
                shape.CharWeight = to_weight
        if shape.supportsService('com.sun.star.drawing.XShapes') or shape.supportsService('com.sun.star.drawing.GroupShape'):
            changeFontsWithin(shape, to_font, to_weight)
        if shape.supportsService('com.sun.star.text.XText') or shape.supportsService('com.sun.star.drawing.Text'):
            cursor = shape.createTextCursor()
            cursor.gotoStart(False)
            cursor.gotoEnd(True)
            if to_font:
                cursor.CharFontName = to_font
            if to_weight != None:
                cursor.CharWeight = to_weight

def changeFontsToFreeSans(ctx = None):
    selection = XSCRIPTCONTEXT.getDocument().getCurrentSelection()

    changeFontsWithin(selection, 'FreeSans')

def changeFontsToFreeSansNormal(ctx = None):
    selection = XSCRIPTCONTEXT.getDocument().getCurrentSelection()

    changeFontsWithin(selection, 'FreeSans', 100.0)
 
def changeFontsToFreeSansBold(ctx = None):
    selection = XSCRIPTCONTEXT.getDocument().getCurrentSelection()

    changeFontsWithin(selection, 'FreeSans', 150.0)

g_exportedScripts = changeFontsToFreeSans, changeFontsToFreeSansNormal, changeFontsToFreeSansBold,