Language dictionary changes from English to French

[Guest]

I have a presentation which was created in French (language) presumably in Powerpoint (XP). When I perform a spell check, the dictionary defaults to French. I then set the language (in Powerpoint XP) to English and rerun the spell check, the dictionary reverts back to French!! I have set my regional options to English. Same results. I then select all the slides (using Ctrl-A), setting Powerpoint to English default and rerunning the spell check. But the dictionary still reverts back to French! Any ideas?

 

[Echo S]

I have a presentation which was created in French (language) presumably in

Powerpoint (XP). When I perform a spell check, the dictionary defaults to
French. I then set the language (in Powerpoint XP) to English and rerun the
spell check, the dictionary reverts back to French!! I have set my regional
options to English. Same results. I then select all the slides (using
Ctrl-A), setting Powerpoint to English default and rerunning the spell
check. But the dictionary still reverts back to French! Any ideas?

The individual textboxes have been set to French. You need to change every
French textbox to English.

Here's some code to do it.
http://support.microsoft.com/default.aspx?scid=kb;en-us;245468&Product=ppt

 

[Guest]

As a P.S. I tried the VBA script in one of the presentations, it seemed to work. However, in the other presentation, created in French, I still have the same problem. Some slides and Note sections revert back to French language. I have set my default language to English, but when I spell check, the dictionary come up as custom.dic (there are no other selections available from the drop down menu), then I go to Tools > Language and the Language has gone back to French! Hmmmm.

 

[Echo S]

Check your keyboard settings in Windows Control Panel (also check in
regional settings). PPT picks up the default language from there, I believe.

But that code *should* change your stuff to English. You shouldn't have to
change it. But based on what you copied into your post, you may have
forgotten the part which loops through all the slides and all the objects on
the slides... I'd say just put all that code in and don't worry about
removing the comments. (Yes, comments are preceded with the ' )

Sub Lingo()

' Declare variables.
Dim sld As Slide
Dim shp As Shape

' Loop through all of the slides in the presentation.
For Each sld In ActivePresentation.Slides

' Loop through each shape on each slide.
For Each shp In sld.Shapes

' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then

' ...then change the language to US English.
' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS

End If
End If
Next
Next

End Sub


--
Echo [MS PPT MVP]

As a P.S. I tried the VBA script in one of the presentations, it seemed to

work. However, in the other presentation, created in French, I still have
the same problem. Some slides and Note sections revert back to French
language. I have set my default language to English, but when I spell
check, the dictionary come up as custom.dic (there are no other selections
available from the drop down menu), then I go to Tools > Language and the
Language has gone back to French! Hmmmm.

 

[Guest]

Is there no one out there who can help with this one ? I'd really appreciate the feedback. Than

----- Rich wrote: ----

Still having the same problem. I do a spell check and when I go from word to word or slide to slide the dictionay reverts back to French. I have tried the code (as a macro). One thing I don't see in the code is where it specifies to change the language to English. It seems that the statement to change to English has a ' comment in front of it. How can the code work if the line is preceeded by the ' ? How do I change the msoLanguageID value here to a different language. (namely Emglish)


----- Echo S wrote: ----

Check your keyboard settings in Windows Control Panel (also check i
regional settings). PPT picks up the default language from there, I believe

But that code *should* change your stuff to English. You shouldn't have t
change it. But based on what you copied into your post, you may hav
forgotten the part which loops through all the slides and all the objects o
the slides... I'd say just put all that code in and don't worry abou
removing the comments. (Yes, comments are preceded with the '

Sub Lingo(

' Declare variables
Dim sld As Slid
Dim shp As Shap

' Loop through all of the slides in the presentation
For Each sld In ActivePresentation.Slide

' Loop through each shape on each slide
For Each shp In sld.Shape

' If the Shape is a text box..
If shp.Type = msoTextBox Or msoPlaceholder The
If shp.HasTextFrame The

' ...then change the language to US English
' NOTE: To change the language ID to another language
' change the msoLanguageID value here to
' different language
shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishU

End I
End I
Nex
Nex

End Su


--
Echo [MS PPT MVP

As a P.S. I tried the VBA script in one of the presentations, it seemed t

work. However, in the other presentation, created in French, I still hav
the same problem. Some slides and Note sections revert back to Frenc
language. I have set my default language to English, but when I spel
check, the dictionary come up as custom.dic (there are no other selection
available from the drop down menu), then I go to Tools > Language and th
Language has gone back to French! Hmmmm

 

[Echo S]

Sorry, I've been out of town, and in fact, your repsonse post doesn't show
up on my newsreader.

So, to answer your question, there is indeed a comment in front of the
information on the code which tells you what it does. But the code itself
doesn't have a comment, so it should be fine.

shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS

That's the part which changes the text to English US.

Did you copy all of the code into your macro? I still wonder if you missed
the part which loops through all the slides and all the shapes...

--
Echo [MS PPT MVP]
http://www.echosvoice.com

Is there no one out there who can help with this one ? I'd really appreciate the feedback. Thanx

----- Rich wrote: -----

Still having the same problem. I do a spell check and when I go from

word to word or slide to slide the dictionay reverts back to French. I have
tried the code (as a macro). One thing I don't see in the code is where it
specifies to change the language to English. It seems that the statement to
change to English has a ' comment in front of it. How can the code work if
the line is preceeded by the ' ? How do I change the msoLanguageID value
here to a different language. (namely Emglish)?

----- Echo S wrote: -----

Check your keyboard settings in Windows Control Panel (also check in
regional settings). PPT picks up the default language from there, I believe.

But that code *should* change your stuff to English. You shouldn't have to
change it. But based on what you copied into your post, you may have
forgotten the part which loops through all the slides and all the objects on
the slides... I'd say just put all that code in and don't worry about
removing the comments. (Yes, comments are preceded with the ' )

Sub Lingo()

' Declare variables.
Dim sld As Slide
Dim shp As Shape

' Loop through all of the slides in the presentation.
For Each sld In ActivePresentation.Slides

' Loop through each shape on each slide.
For Each shp In sld.Shapes

' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then

' ...then change the language to US English.
' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS

End If
End If
Next
Next

End Sub


--
Echo [MS PPT MVP]

As a P.S. I tried the VBA script in one of the presentations,

it seemed to
work. However, in the other presentation, created in French, I still have
the same problem. Some slides and Note sections revert back to French
language. I have set my default language to English, but when I spell
check, the dictionary come up as custom.dic (there are no other selections
available from the drop down menu), then I go to Tools > Language and the
Language has gone back to French! Hmmmm.