word删除空白页的宏怎么写

你可以使用VBA宏来删除Word文档中的空白页。以下是一个示例的VBA宏代码：

Sub DeleteBlankPages()
    Dim i As Integer
    
    ' 循环检查每一页
    For i = ActiveDocument.Content.End - 1 To 2 Step -1
        ' 选择当前页的内容
        With Selection
            .GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i
            .Expand Unit:=wdParagraph
        End With
        
        ' 检查当前页的内容是否为空
        If Trim(Selection.Text) = "" Then
            ' 删除当前页
            Selection.Delete
        End If
    Next i
End Sub

你可以按照以下步骤在Word中创建和运行宏：

1. 打开你的Word文档。
2. 按下`Alt + F11`，打开Visual Basic for Applications编辑器。
3. 在编辑器中，选择`插入` -> `模块`，创建一个新的模块。
4. 将上述VBA宏代码粘贴到模块中。
5. 关闭VBA编辑器。
6. 在Word中按下`Alt + F8`，打开宏对话框。
7. 选择`DeleteBlankPages`宏，并点击`运行`按钮。

这个宏会遍历整个文档的每一页，检查每一页的内容是否为空。如果发现某一页的内容为空（只包含空白字符），则会删除该页。

请注意，在运行宏之前，建议先备份你的Word文档，以防意外发生。