I have a document that has a custom style, but when I opened it, it isn't following the style. Everything should be in Arial, but I'm finding some in Calibri and Times New Roman. I have tried using the following macro:

Sub RemoveAutoUpdate()
Dim s As Style
For Each s In ActiveDocument.Styles
If s.Type = wdStyleTypeParagraph Then
s.AutomaticallyUpdate = False
End If
Next s
End Sub

But when I change everything to the correct fonts and styles, save and exit, I am finding that it goes back to Calibri and Times New Roman when I reopen. Is there a way I can get it to stop updating the style?