Word VBA 代码：将所有数字格式设置为仿宋字体

Sub SetNumberFont()

Dim rng As Range Dim cell As Range

Set rng = ActiveSheet.UsedRange

For Each cell In rng If IsNumeric(cell.Value) Then cell.Font.Name = '仿宋' End If Next cell

End Sub