You selected a single-byte font to replace a double-byte font – SOLVED & Macro

Method 1: Manually replace the font

To work around this issue, you can locate each text object that uses the font that you want to replace, and then select the text. Then, on the Home tab, in the Font group, on the Font drop-down list, select the font that you want to replace the old font with.

Method 2: Replace the font on a computer that has the font installed

To work around this issue, you can either install the font that you want to replace, or you can replace the font in the presentation on a computer that has the font already installed.

Method 3: Macro

Sub FixFonts()

Dim x As Long
On Error Resume Next

With ActivePresentation
With .Fonts
For x = 1 To .Count
With .Item(x)
Debug.Print .Name
ActivePresentation.Fonts.Replace _
Original:=.Name, Replacement:=”Arial”
End With
Next
End With
End With

End Sub

powerpoint2013icon