I have a powerpoint presentation that I inherited that is causing some drama because of a few fonts, namely Times (not to be confused with Times New Roman) and Noto Sans Symbols that are showing up as "unsupported" for some of our users. These fonts need to be replaced throughout the presentation, wherever they may exist, but Replace > Replace Fonts is not working for these. There are a few things I have tried:
Sub ReplaceFontToArial()
Dim objSingleWord As Range
Dim objDoc As Presentation
Set objDoc = ActivePresentation
With objDoc
For Each objSingleWord In .Words
If objSingleWord.Font.Name = "Times" Then
objSingleWord.Font.Name = "Arial"
End If
Next
End With
End Sub
But, it errors out highlighting `ObjSingleWord As Range` and stating, `Compile error: User-defined type not defined`.
Then, upon a suggestion from the Microsoft VBA reference docs, I tried:
Sub ReplaceFontToArial()
Application.ActivePresentation.Fonts.Replace Original:="Times", Replacement:="Arial"
End Sub
But this errors out with a `Run-time error '424': Object required`.
I'm completely out of thoughts to fix this problem. Any help on how I can change out these crazy fonts and what I'm doing wrong would be amazing!!