Word中删除空段落但保留图片/对象的宏优化需求

原宏误删图片，大概率是因为代码未区分普通文本与图片对象，直接对全文档执行了清理操作。可通过修改宏代码、排除文档中的图片及形状类对象来解决：

Sub CleanDocument()
    Dim doc As Document
    Dim para As Paragraph
    Dim rng As Range
    Dim shp As InlineShape
    Dim shapeObj As Shape
    
    Set doc = ActiveDocument
    
    ' 锁定所有图片/形状，避免误删
    For Each shp In doc.InlineShapes
        shp.Locked = True
    Next shp
    For Each shapeObj In doc.Shapes
        shapeObj.Locked = True
    Next shapeObj
    
    ' 执行原宏的核心清理逻辑（保留原功能，比如格式清理、空段落删除等）
    For Each para In doc.Paragraphs
        Set rng = para.Range
        ' 仅处理纯文本段落，跳过包含图片/形状的段落
        If rng.InlineShapes.Count = 0 And rng.ShapeRange.Count = 0 Then
            rng.Font.Reset
            If rng.Text = vbCr Then para.Delete
            ' 可在此添加原宏的其他清理操作
        End If
    Next para
    
    ' 解锁图片/形状，不影响后续编辑
    For Each shp In doc.InlineShapes
        shp.Locked = False
    Next shp
    For Each shapeObj In doc.Shapes
        shapeObj.Locked = False
    Next shapeObj
End Sub

关键修改说明： #

1. 新增锁定逻辑：先对嵌入式图片（InlineShapes）和浮动式图片/形状（Shapes）加锁，防止清理过程中被误删
2. 段落过滤：处理前判断当前段落是否包含图片对象，只对纯文本段落执行清理操作
3. 解锁还原：清理完成后解锁所有对象，保证后续可正常编辑图片

额外提示： #

若不确定图片类型，可打开文档按Alt+F10打开导航窗格，查看「图形」分类下的对象类型；也可直接用上述代码，同时覆盖嵌入式和浮动式两种图片类型。

内容的提问来源于stack exchange，提问作者Carolyne P