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
    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
  2. 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
  3. Anonymous
    2014-11-11T19:59:24+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.

    As has already been mentioned to do a proper job takes a lot of code. We are about to launch a new version of our Lingo AddIn that can set the language for existing AND later added slides and shapes without altering the general default language. Steve has a similar addin.

    If you only have a few files and a single language then you can change the language for text and notes like this. Note that tables, chart titles, groups, smart art and other item will not be changed nor will added items take on the new language.

    Sub ChangeSpellCheckingLanguage()

    Dim osld As Slide

    Dim oshp As Shape

    For Each osld In ActivePresentation.Slides

        For Each oshp In osld.Shapes

            If oshp.HasTextFrame Then

                oshp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishAUS

            End If

        Next oshp

        For Each oshp In osld.NotesPage.Shapes

            If oshp.HasTextFrame Then

                oshp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishAUS

            End If

        Next oshp

    Next osld

    End Sub

    Was this answer helpful?

    0 comments No comments