Macro for changing language in powerpoint 97 SR-2

[Guest]

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

 

[Shyam Pillai]

Sorry, nothing much that you can about it in 97 when it isn't supported.