Word Macros to Set Selection Spelling Language

'  This is Word macro to set the spelling language of the selected text to a certain language, in this case German, English US and Romanian

Sub SelSpellDE()
    Selection.LanguageID = wdGerman
    Selection.NoProofing = False
    Application.CheckLanguage = False
End Sub
Sub SelSpellEN()
    Selection.LanguageID = wdEnglishUS
    Selection.NoProofing = False
    Application.CheckLanguage = False
End Sub
Sub SelSpellRO()
    Selection.LanguageID = wdRomanian
    Selection.NoProofing = False
    Application.CheckLanguage = False
End Sub