这个是群里面老师写的，这个是段落及大纲都选择了，我只想选择段落，谢谢老师指导

yamjqq

• Sub 选择除表格以外的全部段落()
•     Dim P As Paragraph
•     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
•     For Each P In ActiveDocument.Paragraphs
•         If P.Range.Information(wdWithInTable) = False Then
•             P.Range.Editors.Add wdEditorEveryone
•         End If
•     Next
•     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
•     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
• End Sub
  

batmanbbs

楼主是不是不懂段落和大纲啊，大纲是段落的一个属性而已

yamjqq

我知道的，但不明白，这个应该怎么加到这个程序里  .ParagraphFormat.OutlineLevel = wdOutlineLevel1

yamjqq

发错了，更正下  .ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText

batmanbbs

yamjqq 发表于 2023-12-3 19:37
发错了，更正下  .ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText

在你另外一个跟帖后说了两种方式

yamjqq

batmanbbs 发表于 2023-12-3 19:39
在你另外一个跟帖后说了两种方式

我需要选择的全部正文格式的段落

batmanbbs

yamjqq 发表于 2023-12-3 20:09
我需要选择的全部正文格式的段落

不识别表格，更加简单一些，用查找能快一些

yamjqq

batmanbbs 发表于 2023-12-3 20:57
不识别表格，更加简单一些，用查找能快一些

谢谢老师，但是运行后总容易死机，不知什么原因

山菊花

1. Sub 选择正文()
   
2.     With ActiveDocument
   
3.         .DeleteAllEditableRanges wdEditorEveryone
   
4.         With .Content.Find
   
5.             .ClearFormatting
   
6.             .ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText
   
7.             Do While .Execute
   
8.                 If .Parent.Information(12) Then
   
9.                     .Parent.Collapse wdCollapseEnd
   
10.                 Else
    
11.                     .Parent.Editors.Add wdEditorEveryone
    
12.                 End If
    
13.                 If .Parent.End = .Parent.Parent.Range.End Then Exit Do
    
14.             Loop
    
15.         End With
    
16.         .SelectAllEditableRanges wdEditorEveryone
    
17.         .DeleteAllEditableRanges wdEditorEveryone
    
18.     End With
    
19. End Sub

复制代码

413191246se

总版主 好！你的代码把我的 Word 2019 整崩溃了！需要改进。