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

413191246se

楼主，你是不是想——跳过表格，只选择表格外文字？请试试本坛大神 sylun 老师 的代码：

1. 
   
2. Sub SkipTable()
   
3. 'code by sylun
   
4.     Dim r(), n As Long
   
5. 
   
6.     With ActiveDocument
   
7.         ReDim r(.Tables.Count + 1)
   
8. 
   
9.         If .Tables.Count = 0 Then
   
10.             Set r(1) = .Content
    
11.         Else
    
12.             For n = 1 To .Tables.Count
    
13.                 If n = 1 Then
    
14.                     Set r(n) = .Range(0, .Tables(n).Range.Start)
    
15.                 Else
    
16.                     Set r(n) = .Range(.Tables(n - 1).Range.End, .Tables(n).Range.Start)
    
17.                 End If
    
18.             Next
    
19.             Set r(n) = .Range(.Tables(n - 1).Range.End, .Content.End)
    
20.         End If
    
21.     End With
    
22. 
    
23.     For n = 1 To UBound(r)
    
24.         With r(n)
    
25.             .Select
    
26.             Selection.Font.ColorIndex = wdRed
    
27.         End With
    
28.     Next
    
29. End Sub

复制代码

yamjqq

413191246se 发表于 2023-12-4 17:26
楼主，你是不是想——跳过表格，只选择表格外文字？请试试本坛大神 sylun 老师 的代码：

老师您好！还要跳过1-9级大纲标题

yamjqq

山菊花 发表于 2023-12-4 13:35

电脑会崩溃

batmanbbs

yamjqq 发表于 2023-12-4 06:45
谢谢老师，但是运行后总容易死机，不知什么原因

提供一下死机的文档

山菊花

yamjqq 发表于 2023-12-4 19:42
电脑会崩溃

把                    .Parent.Collapse wdCollapseEnd
移到endif下一行试试。

yamjqq

页数多一点一般就死机啦

yamjqq

山菊花 发表于 2023-12-4 20:18
把                    .Parent.Collapse wdCollapseEnd
移到endif下一行试试。

老师，我试过了，也不行

山菊花

yamjqq 发表于 2023-12-4 20:34
老师，我试过了，也不行

用你的文件测试，没问题，只是时间长一点。

batmanbbs

yamjqq 发表于 2023-12-4 20:31
页数多一点一般就死机啦

测试你提供的文档没有任何问题啊

yamjqq

batmanbbs 发表于 2023-12-5 00:06
测试你提供的文档没有任何问题啊

谢谢老师，可能由于我的文件4、5百页的缘故，反应就慢了