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