Range.LanguageIDFarEast (Word)

Returns or sets an East Asian language for the specified object. Here you can find possible values for WdLanguageID.

ActiveDocument.Paragraphs(1).Range.LanguageIDFarEast = wdKorean