Microsoft Office Forums - View Single Post

gmayor · 06-08-2019, 02:45 AM

You have to create the macro as shown on the web site and in the Help file. The Boolean options are there to provide the logging and error reporting. Based on your original macro it would need to be something like

Code:

Function QuickFormat(oDoc As Document) As Boolean
Dim orng As Range
    Set orng = ActiveDocument.Range
    On Error GoTo err_Handler
    With orng.ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
    orng.LanguageID = wdEnglishAUS
    QuickFormat = True
lbl_Exit:
    Exit Function
err_Handler:
    QuickFormat = False
    Resume lbl_Exit
End Function