Word VBA: 如何将文档中的所有数字设置为仿宋字体

Sub SetFont()

Dim rng As Range

For Each rng In ActiveDocument.StoryRanges Set rng = rng.Characters For Each c In rng If IsNumeric(c) Then c.Font.Name = '仿宋' End If Next c Next rng

End Sub