用VBA写一个把Word文档字体先“仿宋”再“Times New Roman”，字体统一调成10

在VBA（Visual Basic for Applications）中，你可以编写宏来自动化Word文档字体的转换。下面是一个简单的步骤和示例代码，说明如何将整个文档的字体从"仿宋"更改为"Times New Roman"并设置为10号字：

Sub ChangeFontToSimSunThenTimesNewRoman()
    Dim doc As Document
    '声明并实例化Document对象
    Set doc = ActiveDocument
    
    '检查文档是否处于编辑状态
    If Not doc Is Nothing Then
        '选定整个文档内容
        doc.Content.Select
        
        '设置字体为仿宋
        With Selection.Font
            .Name = "仿宋" '如果字体库中没有仿宋，请替换为实际名称
            .Size = 10
        End With
        
        '应用新字体到文档
        doc.Application.Selection.TypeText ("") '清除选区以便切换字体
        
        '设置为Times New Roman
        With Selection.Font
            .Name = "Times New Roman" '同样替换为实际名称
            .Size = 10
        End With
    Else
        MsgBox "未打开任何文档", vbInformation, "提示"
    End If
End Sub

运行这个宏之前，确保你已经打开了一个Word文档，并且VBA功能已启用（通常在`文件` > `选项` > `信任中心` > `宏设置`中设置）。保存并运行该宏即可完成字体转换。