Word VBA: 批量将中文设置为仿宋字体

Sub ChineseFontToFangSong() For Each para In ActiveDocument.Paragraphs For Each run In para.Range.Characters If run.Font.NameFarEast <> '仿宋' And IsChinese(run.Characters) Then run.Font.NameFarEast = '仿宋' run.Font.Name = '仿宋' End If Next run Next para End Sub

Function IsChinese(text As String) As Boolean For i = 1 To Len(text) If AscW(Mid(text, i, 1)) >= &H4E00 And AscW(Mid(text, i, 1)) <= &H9FFF Then IsChinese = True Exit Function End If Next i IsChinese = False End Function