ms word vba

Sub text_nihongo()
'    With Selection.Font
'        .Name = "UD Digi Kyokasho NK-R"
'        .Size = 16
'    End With
'============================================
    Dim rng As Range
    Dim doc As Document
    
    ' 현재 문서를 가져옵니다.
    Set doc = ActiveDocument
    
    ' 한글 텍스트를 명조로 설정합니다.
    For Each rng In doc.Range.Characters
        If rng.Font.NameFarEast = "맑은 고딕" Then
            rng.Font.NameFarEast = "바탕"
        End If
    Next rng
    
    ' 일본어 텍스트를 "ud"로 설정합니다.
    For Each rng In doc.Range.Characters
        If rng.LanguageID = wdJapanese Then
            rng.Font.NameFarEast = "UD Digi Kyokasho NP-R"
        End If
    Next rng

End Sub