Replace font in Normal Style

[w64bit]

I tried to change this code to replace the Normal Style font when it's Arial to Calibri, but I cannot make it work.
I am using it with Batch Process Documents 4.9 (Graham Mayor).
Can you please give me a little help?
Thank you

Function ChangeFont(oDoc As Document) As Boolean
Dim oStory As Range
    On Error GoTo err_Handler
    For Each oStory In oDoc.StoryRanges
        oStory.Font.Name = "Arial"
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                oStory.Font.Name = "Calibri"
            Wend
        End If
    Next oStory
    Set oStory = Nothing
    ChangeFont = True
lbl_Exit:
    Exit Function
err_Handler:
    ChangeFont = False
    Resume lbl_Exit
End Function