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: Oldest
  1. Anonymous
    2015-06-18T12:12:49+00:00

    Thanks!!!!!

    Was this answer helpful?

    0 comments No comments
  2. Anonymous
    2015-08-29T17:57:28+00:00

    There's a simpler macro. Worked for me:

    Sub Language()

    Dim j As Integer, scount As Integer

        scount = ActivePresentation.Slides.Count

        For j = 1 To scount

            ActivePresentation.Slides(j).Shapes.Range().TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUK

        Next j

    End Sub

    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?

    0 comments No comments
  3. Anonymous
    2015-09-02T14:00:42+00:00

    How the heck did this get marked as an ANSWER? 

    Why should a user have to write code to fix this most basic of issues?

    The easy answer is written by JuliaSommer below.

    Was this answer helpful?

    0 comments No comments