Easy way to switch languages? Macro maybe? (2000)

Topic

New Reply

One of the drawbacks of working in a multilingual organization is that we end up with material created in different languages, then translated into English. Now, there’s nothing wrong with the translation, but for some reason the proofing is either in the orginal language or set to “no proofing.” The squiggly underlines drive me nuts as nearly every word is marked as misspelled. I can’t ignore ’em because I depend on the dictionary for my spel checking. 😉

I can’t find a way to tell PowerPoint “Set everything in this file as English, please!” Nor have I had any luck in creating a macro to do the obvious: select all text and set it to English (it just doesn’t work).

Is this a lost cause? Am I destined to set the language manually for every file?

Reply | Quote

Replies

This macro will set the language for all of the words in the presentation to English (Canadian). HTH –Sam

Sub english()
    ActivePresentation.Slides.Range.Shapes.Range.TextFrame.TextRange.LanguageID _
        = msoLanguageIDEnglishCanadian
End Sub

Reply | Quote

This macro will set the language for all of the words in the presentation to English (Canadian). HTH –Sam

Sub english()
    ActivePresentation.Slides.Range.Shapes.Range.TextFrame.TextRange.LanguageID _
        = msoLanguageIDEnglishCanadian
End Sub

Reply | Quote

You probably want to set the default language also. I forgot about that:

Sub english()
    ActivePresentation.Slides.Range.Shapes.Range.TextFrame.TextRange.LanguageID _
        = msoLanguageIDEnglishCanadian
    ActivePresentation.DefaultLanguageID = msoLanguageIDEnglishCanadian
End Sub

Reply | Quote

Hi,
I used the macro to convert my presentation Australian English. It works fine for the slides.
What additional code do I need to include the Notes pages in the conversion?
Thanks,

Reply | Quote

Edited by HansV to correct error

Try

Dim sl As Slide
For Each sl In ActivePresentation.Slides
sl.NotesPage.Shapes.Range.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishAUS
Next sl

Reply | Quote

You probably want to set the default language also. I forgot about that:

Sub english()
    ActivePresentation.Slides.Range.Shapes.Range.TextFrame.TextRange.LanguageID _
        = msoLanguageIDEnglishCanadian
    ActivePresentation.DefaultLanguageID = msoLanguageIDEnglishCanadian
End Sub

Reply | Quote