Steve said:
I have a large document that is in English, it has within it drawings and
textboxes that were inserted by users whose language was set to French - How
can I change the language of all textboxes in a document?
The following macro works for me. I forget how I built it. It is
supposed to change into French both main text and boxes. Comments
appreciated.
Sub Francais()
'
' Francais Macro
' Macro recorded 04/06/02 by Jean-Paul Darcis
'
Selection.WholeStory
Selection.LanguageID = wdFrench
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^f"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
If Selection.Find.Found Then
If ActiveWindow.ActivePane.View.Type = wdPageView Or
ActiveWindow. _
ActivePane.View.Type = wdOnlineView Or
ActiveWindow.ActivePane.View.Type _
= wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
Selection.WholeStory
Selection.LanguageID = wdFrench
If ActiveWindow.ActivePane.View.Type = wdPageView Or
ActiveWindow. _
ActivePane.View.Type = wdOnlineView Or
ActiveWindow.ActivePane.View.Type _
= wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekMainDocument
Else
ActiveWindow.Panes(2).Close
End If
End If
End Sub
