Powerpoint Update all Fonts

Update all Slides' single Font - to improve readability via video projector

REVERTs multiple fonts to the SINGLE font (Arial) chosen on line 3

Sub FarEastFontsToArial()
 Dim oSh As Shape, oSl As Slide, strFont as String
strFont = "Arial" 'or Calibri or your choice

For Each oSl In ActivePresentation.Slides
 For Each oSh In oSl.Shapes
 If oSh.HasTextFrame Then
 oSh.TextFrame.TextRange.Font.NameFarEast = strFont
 End If
 Next
 Next

For Each oSh In ActivePresentation.SlideMaster.Shapes
 If oSh.HasTextFrame Then
 oSh.TextFrame.TextRange.Font.NameFarEast = strFont
 End If
 Next

If ActivePresentation.HasTitleMaster Then
 For Each oSh In ActivePresentation.TitleMaster.Shapes
 If oSh.HasTextFrame Then
 oSh.TextFrame.TextRange.Font.NameFarEast = strFont 
End If 
Next Osh
End If 
End Sub

'Must turn on macros in File | Options

Powerpoint breaks Asian Wordwrap

Powerpoint breaks Asian Wordwrap

'this macro solves  "orphan letters" being seperated from words by converting each slide's "LineBreakLevel" to  strict

 

Sub strict_asian_punct()

' exampleThis example sets line break control to use level one kinsoku characters. There are three levels designated by PowerPoint HELP
'ppFarEastLineBreakLevelCustom
'ppFarEastLineBreakLevelNormal
'ppFarEastLineBreakLevelStrict


 For Each oSl In ActivePresentation.Slides
 ActivePresentation.FarEastLineBreakLevel = ppFarEastLineBreakLevelStrict
 Next oSl

End Sub