如何全选word中除标题、表格、图片以外正文内容？

onlybrook

求大神
1、选中word文档中除标题、表格以及图片以外内容的代码
2、选中word文档中题注所在段落的代码

onlybrook

有大神不帮帮忙不，感谢感谢

Thinkwaves

以下是一个示例代码，可以选择除标题、表格和图片之外的所有内容：  Sub SelectNonTableNonPictureNonHeading() Dim rng As Range Set rng = ActiveDocument.Range rng.WholeStory rng.Select  For Each shp In ActiveDocument.Shapes     If rng.InRange(shp.Range) Then         rng.End = shp.Range.End         rng.Collapse wdCollapseEnd     End If Next shp  For Each tbl In ActiveDocument.Tables     If rng.InRange(tbl.Range) Then         rng.End = tbl.Range.End         rng.Collapse wdCollapseEnd     End If Next tbl  For Each hdg In ActiveDocument.Range.Style.Paragraphs     If hdg.Style = "Heading 1" Or hdg.Style = "Heading 2" Or hdg.Style = "Heading 3" Then         If rng.InRange(hdg.Range) Then             rng.End = hdg.Range.End             rng.Collapse wdCollapseEnd         End If     End If Next hdg  rng.Select End Sub  该代码将选择整个文档，然后循环遍历所有的形状、表格和标题，如果范围内包含这些元素，则将选择范围扩展到这些元素的末尾。最后，选择范围将不包括标题、表格和图片。

onlybrook

Thinkwaves 发表于 2024-4-2 19:06
以下是一个示例代码，可以选择除标题、表格和图片之外的所有内容：  Sub SelectNonTableNonPictureNonHeadi ...

谢谢，运行一遍，没啥反应，不知道咋回事