It is common to find that UK users have left their documents defaulted to US English and this may not be wanted. 'Purpose: Reset languages to a specified default where the incoming document may have been defaulted to the wrong member of a language family. Optional ByRef LanguageRanges As Collection) Optional ByRef LanguageIDsFound As Collection, _ Optional ByRef LanguagesFound As Collection, _ Optional bCheckByPara As Boolean = vbFalse, _ Public Sub FixLanguage(ByRef RangeToCheck As word.Range, ByRef LanguageType As String, ByRef ToLanguageID As word.WdLanguageID, _ '=Ĭall FixLanguage(ActiveDocument.Content, 'English', wdEnglishUK, vbTrue) 'Test in Para by Para modeĬall FixLanguage(ActiveDocument.Content, 'English', wdEnglishUK, vbFalse) 'Test in Whole Document mode It relies on a Function LanguageIDGetDescription to provide it with the full description of the Language (the Descriptions are those in the Office 2010 enumeration for wdLanguageID). There are two Methods (and a Test Method). The Method can optionally apply this exception paragraph by paragraph within the Text instead of to the whole of the Text. English US is mixed with English UK, the author is assumed to have specified the versions of the language deliberately, so an exception is made and the Proofing Language is not changed.

If there is more than one version of the target Language type present, e.g. If there is only one version of the target Language present the Method will change it. In some cases the Text may already contain more than one Proofing Language - e.g. All Proofing Languages with the target string in their Description are changed to a specified Proofing Language. The methods work by check all existing text, lumping it into the largest possible Ranges for checking. They can change a whole document ( Doc.Content), or any other Doc.Range within a Document. The Methods below can be used to reset the LangaugeID of any Document's text.

This is required if your organisation uses a different version of English from the sender and the text received has to be edited and presented locally.

I found a similar but more difficult problem: needing to change the language of the Text in an existing document received from a sender elsewhere. The question is about changing a whole new document.

How to make microsoft word in french