求可识别Word中非wdWrapInline格式表格/形状的VBA代码

问题分析 #

你之前尝试的代码无法实现需求，原因在于：

• Selection.Find对象仅用于文本内容查找，不能直接操作表格或形状的环绕格式属性
• 代码未遍历文档中所有的表格和内置形状，无法覆盖全部目标对象

解决代码 #

以下VBA代码会遍历文档内所有表格和内置形状，识别出未设置为「嵌入型（wdWrapInline）」的对象，并提供定位和标记功能：

Sub FindNonInlineTablesAndShapes()
    Dim doc As Document
    Dim tbl As Table
    Dim shp As Shape
    Dim foundCount As Integer
    
    Set doc = ActiveDocument
    foundCount = 0
    
    ' 遍历所有表格，排查非嵌入型表格
    For Each tbl In doc.Tables
        If tbl.WrapFormat.Type <> wdWrapInline Then
            tbl.Select ' 选中表格，方便快速定位
            Debug.Print "非嵌入型表格：第" & tbl.Range.Information(wdActiveEndPageNumber) & "页"
            ' tbl.Range.HighlightColorIndex = wdYellow ' 可选：高亮表格内容，取消注释启用
            foundCount = foundCount + 1
        End If
    Next tbl
    
    ' 遍历所有内置形状，排查非嵌入型形状
    For Each shp In doc.Shapes
        If shp.WrapFormat.Type <> wdWrapInline Then
            shp.Select ' 选中形状，方便快速定位
            Debug.Print "非嵌入型形状：第" & shp.Range.Information(wdActiveEndPageNumber) & "页，名称：" & shp.Name
            ' shp.Fill.ForeColor.RGB = RGB(255, 255, 0) ' 可选：用黄色填充标记形状，取消注释启用
            foundCount = foundCount + 1
        End If
    Next shp
    
    MsgBox "共找到" & foundCount & "个非嵌入型表格/形状", vbInformation
End Sub

使用说明 #

1. 打开目标Word文档，按Alt + F11打开VBA编辑器
2. 插入新模块，将上述代码粘贴进去
3. 运行宏FindNonInlineTablesAndShapes
4. 代码执行后：
   • 找到的非嵌入型对象会被逐个选中，方便你定位修改
   • 立即窗口（VBA编辑器按Ctrl + G调出）会输出对象的位置信息
   • 若启用高亮注释，目标对象会被标记为黄色，便于批量查看

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