如何用word vba 一次性选择除表格以外的全部段落

★子逸☆

大神们，请问：1、如何用word vba 一次性选择除表格以外的全部段落？

2、如何用word vba 一次性选择所有表格？
谢谢！

shenjianrong163

1. Sub 选中所有表格()
   
2.     Dim T As Table
   
3.     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
4.     For Each T In ActiveDocument.Tables
   
5.         T.Range.Editors.Add wdEditorEveryone
   
6.     Next
   
7.     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
   
8.     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
9. End Sub

复制代码

shenjianrong163

1. Sub 选择除表格以外的全部段落()
   
2.     Dim P As Paragraph
   
3.     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
4.     For Each P In ActiveDocument.Paragraphs
   
5.         If P.Range.Information(wdWithInTable) = False Then
   
6.             P.Range.Editors.Add wdEditorEveryone
   
7.         End If
   
8.     Next
   
9.     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
   
10.     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
11. End Sub

复制代码

yliuchuyang

shenjianrong163 发表于 2021-3-21 15:04

老师  可以顺便问一下，如何批量选择所有表格后的第一段文字吗（不包含表格）？

ljy666

问题解决了吗？我也同样期待能解决这个问题

常扬帆

shenjianrong163 发表于 2021-3-21 15:03

vba够威够力！借问您：能选定表格内的“图片段落(图片段落为图文混排)吗？”，能的话，赐一个？劳烦您了！

ljy666

shenjianrong163 发表于 2021-3-21 15:04

找了好久，终通过你这个用上了，谢谢

fzh2618182

学习一下，谢谢老师！

yamjqq

我想选择不含大纲的段落，一直都不知道怎么实现，麻烦老师指导下。

batmanbbs

yamjqq 发表于 2023-12-3 18:17
我想选择不含大纲的段落，一直都不知道怎么实现，麻烦老师指导下。

你这才说明白了

1.查找大纲=正文后，判断不在表格内，选中
2.上面的第二段代码遍历段落，判断段落不在表格内且大纲=正文，选中