vba 实现对文档格式清理。清理图片，空行，改变格式

在 VBA 中实现对 Word 文档的格式清理，包括清理图片、空行和改变格式，可以通过以下步骤进行。下面是一个示例代码，您可以根据需要进行调整：

Sub CleanDocument()
    Dim doc As Document
    Dim para As Paragraph
    Dim shape As Shape
    Dim i As Integer

    ' 获取当前文档
    Set doc = ActiveDocument

    ' 清理图片
    For i = doc.Shapes.Count To 1 Step -1
        doc.Shapes(i).Delete
    Next i

    ' 清理空行和格式
    For Each para In doc.Paragraphs
        ' 删除空行
        If Trim(para.Range.Text) = vbCr Then
            para.Range.Delete
        Else
            ' 改变格式，例如设置字体和段落格式
            With para.Range
                .Font.Name = "Arial" ' 设置字体
                .Font.Size = 12 ' 设置字体大小
                .ParagraphFormat.SpaceAfter = 6 ' 设置段落后间距
                .ParagraphFormat.SpaceBefore = 6 ' 设置段落前间距
            End With
        End If
    Next para

    ' 重新排版
    doc.Content.Paragraphs.Format.SpaceAfter = 6
    doc.Content.Paragraphs.Format.SpaceBefore = 6

    MsgBox "文档清理完成！"
End Sub

代码说明：

1. 清理图片：通过循环删除文档中的所有形状（包括图片）。
2. 清理空行：检查每个段落，如果段落内容为空，则删除该段落。
3. 改变格式：设置字体、字体大小和段落间距等格式。
4. 重新排版：可以根据需要调整整个文档的段落格式。

使用方法：

1. 打开 Word 文档。
2. 按 Alt + F11 打开 VBA 编辑器。
3. 在 插入 菜单中选择 模块，然后将上述代码粘贴到模块中。
4. 关闭 VBA 编辑器，返回 Word。
5. 按 Alt + F8，选择 CleanDocument，然后点击 运行。

具体根据需求调整代码中的格式设置。

参考资料

vba调整word格式