wordvba将最后一段的字体改为宋体

在Word VBA中，你可以使用宏来自动化这个操作。以下是创建一个简单宏的步骤，该宏会选取文档的最后一段并将字体设置为宋体：

Sub ChangeLastParagraphFont()
    '声明变量
    Dim doc As Document
    Dim para As Paragraph
    
    '获取当前活动文档
    Set doc = ActiveDocument
    
    '检查文档是否非空
    If doc.Content.Count > 0 Then
        '找到最后一个段落
        Set para = doc.Content.Paragraphs(doc.Content.Last.ParagraphFormat.Range.End)
        
        '改变其字体
        With para.Font
            .Name = "宋体" '将字体更改为宋体
        End With
    Else
        MsgBox "文档为空，无法更改字体。"
    End If
End Sub

要运行此宏，你需要打开VBA编辑器（可通过`Developer`选项卡选择`Visual Basic`），然后将上述代码粘贴到一个新的模块中。保存后，双击宏名`ChangeLastParagraphFont`即可执行。