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