Setting language for entire presentation all at once / Selecting all slides and all objects on all slides at once

Anonymous
2010-02-03T14:45:00+00:00

I want to change the language for spell checking after translating. I don't want to click each slide and then use Select All to select all objects on the slide and then set the language. There has to be a better way but I've never found it. Basically seems like a problem of not being able to select every object in a presentation at once (would have same problem setting one font for an entire presentation).

-Things I've tried:

  1. Setting the language without previously selecting anything. (Doesn't change the language of any text.)
  2. Using Select All in Outline view and then setting the language. (No change.)
  3. Using Select All in Slide view and then setting the language (Select All selects all objects on that slide.)

-I have to be missing something because this seems like basic functionality. I haven't been able to figure this out in earlier versions either.

Microsoft 365 and Office | PowerPoint | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments
Answer accepted by question author
Anonymous
2010-02-04T02:20:57+00:00

Try the following steps:-

Step 1:- By using Macro we can change the language in powerpoint for all slides.

Create a new macro:

  1. Go to Tools, Macro, and Visual Basic Editor.
  2. Insert a new empty module by selecting Insert, Module.
  3. Paste this code on the right panel and save the macro:

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) _

                .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishAUS

            End If

        Next k

    Next j

End Sub

Step 2:- This "msoLanguageIDEnglishAUS" which is used in the above macro can be replaced by any desired language. The full list of languages can be found in this article http://msdn.microsoft.com/en-us/library/aa432635.aspx

Step 3:- Execute the macro (by pressing F5 within the editor, or by selecting Tools, Macro, Macros, ChangeSpellCheckingLanguage, and clicking Run).

After that all text elements within the presentation will have the new spelling language.


Ganesh Kumar N, Microsoft Answers Support Engineer.

• We appreciate your participation in MS Forums, Help us understand your needs better. To share your valuable Feedback please Click here.

Was this answer helpful?

100+ people found this answer helpful.
0 comments No comments
Answer accepted by question author
Anonymous
2010-02-03T21:51:21+00:00

I want to change the language for spell checking after translating. I don't want to click each slide and then use Select All to select all objects on the slide and then set the language. There has to be a better way but I've never found it. Basically seems like a problem of not being able to select every object in a presentation at once (would have same problem setting one font for an entire presentation).

-Things I've tried:

  1. Setting the language without previously selecting anything. (Doesn't change the language of any text.)
  2. Using Select All in Outline view and then setting the language. (No change.)
  3. Using Select All in Slide view and then setting the language (Select All selects all objects on that slide.)

-I have to be missing something because this seems like basic functionality. I haven't been able to figure this out in earlier versions either.

Hi

I think the code here will do what you want:

http://support.microsoft.com/default.aspx?scid=kb;en-us;245468

Lucy


Lucy Thomson

PowerPoint MVP

an easier tomorrow

Was this answer helpful?

6 people found this answer helpful.
0 comments No comments

102 additional answers

Sort by: Most helpful
  1. Anonymous
    2014-11-11T12:54:03+00:00

    Hi,

    It worked well but it doesn't change the language of the Notes in the slides. Do you know how to add to the macros?

    Thank you.

    Was this answer helpful?

    0 comments No comments
  2. Anonymous
    2014-09-02T11:26:04+00:00

    Bad news - I just checked and Macs do not support LanguageID in vba. (not in 2011 anyway)

    Hope you have a PC too!

    Was this answer helpful?

    0 comments No comments
  3. Anonymous
    2014-09-02T11:19:32+00:00

    The shorter code should work (though it is fairly limited) There are errors in the MSFT code linked to by Lucy.

    Maybe the Mac is the problem or maybe you didn't copy and paste the code accurately?

    On your Mac type in this code and see if it works

    Sub chex()

    MsgBox msoLanguageIDEnglishAUS

    End Sub

    The answer should be 3081

    Neither code will fix Tables or Smart Art

    Copy the text of the error and post it

    Was this answer helpful?

    0 comments No comments