Skip to content

Instantly share code, notes, and snippets.

@tijme
Created September 30, 2020 07:13
Show Gist options
  • Save tijme/220cc0efd79ad269c3a90b29740fe54e to your computer and use it in GitHub Desktop.
Save tijme/220cc0efd79ad269c3a90b29740fe54e to your computer and use it in GitHub Desktop.
Macro to change the language of an entire PowerPoint presentation (including speaker notes)
Option Explicit
Public Sub ChangeSpellCheckingLanguage()
Dim j As Integer, k As Integer, scount As Integer, fcount As Integer
scount = ActivePresentation.Slides.Count
For j = 1 To scount
fcount = ActivePresentation.Slides(j).Shapes.Count
For k = 1 To fcount
If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
ActivePresentation.Slides(j).Shapes(k).TextFrame2.TextRange.LanguageID = msoLanguageIDEnglishUS
End If
Next k
fcount = ActivePresentation.Slides(j).NotesPage.Shapes.Count
For k = 1 To fcount
If ActivePresentation.Slides(j).NotesPage.Shapes(k).HasTextFrame Then
ActivePresentation.Slides(j).NotesPage.Shapes(k).TextFrame2.TextRange.LanguageID = msoLanguageIDEnglishUS
End If
Next k
Next j
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment