B
Bojana
I want to change the language in the whole powerpoint document. For that I
have a macro that works perfectly for powerpoint 2000 but not in 97, which I
have to use now. Seems that 97 does not support LanguageID object.
Any suggestions how to solve that?
Thanks very much in advance,
Bojana
Macro code:
Sub All_text_to_dutch()
'
' 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 Dutch.
' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
shp.TextFrame.TextRange.LanguageID = msoLanguageIDDutch
End If
End If
Next
Next
End Sub
have a macro that works perfectly for powerpoint 2000 but not in 97, which I
have to use now. Seems that 97 does not support LanguageID object.
Any suggestions how to solve that?
Thanks very much in advance,
Bojana
Macro code:
Sub All_text_to_dutch()
'
' 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 Dutch.
' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
shp.TextFrame.TextRange.LanguageID = msoLanguageIDDutch
End If
End If
Next
Next
End Sub