Since you haven't posted the code of which this is part, all I can work with is the initial Selection, for which you could use something like:
Selection.Paragraphs(1).Range.LanguageID = wdBelgianFrench
But even that initial Selection is most likely unnecessary.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]