只选中文本段落，不选图片、表格、图表

386026398

如附件所示，一个word文档里含有图片、表格、图表，想通过vba只选中纯文字段落。不选中图片、表格、图表。如何用vba实现。求助高手解决

约定的童话

Sub SelectPlainText()
    Dim rng As Range
    Dim shp As Shape
    Dim tbl As Table
    Dim cht As ChartObject
   
    For Each rng In ActiveDocument.StoryRanges
        For Each shp In rng.ShapeRange
            shp.Select ' 选择图片
        Next shp
        
        For Each tbl In rng.Tables
            tbl.Select ' 选择表格
        Next tbl
        
        For Each cht In rng.ChartObjects
            cht.Select ' 选择图表
        Next cht
        
        rng.Select ' 选择纯文字段落
    Next rng
End Sub

386026398

约定的童话 发表于 2023-7-4 07:28
Sub SelectPlainText()
    Dim rng As Range
    Dim shp As Shape

提示Dim cht As ChartObject未定义，相应的取消运行，发现图片和图表隐藏。文本文字也没有选择