word vba怎样才能选择不包含表格的文字

19820713chen

这个选择用VBA简单啊。

ke3088

19820713chen 发表于 2019-3-14 19:34
这个选择用VBA简单啊。

向您请教，谢谢

413191246se

ke3088 朋友：你好！——你的问题我已经注意到了，但最近几天，我忙于《大气版》，所以，未想解答。
如果你使用的也是 Word2003，不妨试用一下我的《大气版》；如果不是，可以提供一个附件，说明具体想解决什么问题，咱们共同研究。

ke3088

413191246se 发表于 2019-3-15 23:59
ke3088 朋友：你好！——你的问题我已经注意到了，但最近几天，我忙于《大气版》，所以，未想解答。
如果 ...

413191246se老师，您好！您的代码是全文选定表格外的文字，如下：
Sub 选定表外文字()
    Dim i As Paragraph
    With ActiveDocument
        For Each i In .Paragraphs
            If Not i.Range.Information(12) Then i.Range.Editors.Add -1
        Next
        .SelectAllEditableRanges -1
        .DeleteAllEditableRanges -1
    End With
End Sub
我想达到的目的是只选定第5段至第10段中表格外的文字，对您的代码我不知道如何下手修改，谢谢！

ke3088

413191246se老师，您好！修改您在http://club.excelhome.net/thread-1279398-1-1.html里的代码，可以只选定指定段落中表格外的文字：
Sub 循环遍历非表格段落()
    Dim i As Paragraph
    Set aRange = ActiveDocument.Range( _
         Start:=ActiveDocument.Paragraphs(6).Range.Start, _
           End:=ActiveDocument.Paragraphs(39).Range.End - 1)
    aRange.Select
    For Each i In Selection.Paragraphs
        If i.Range.Information(wdWithInTable) = False Then
           With i.Range.Paragraphs
               .LineSpacingRule = wdLineSpaceExactly
               .LineSpacing = 25
           End With
        End If
    Next
End Sub
这一句是关键： i.Range.Information(wdWithInTable) = False
谢谢您！

413191246se

ke3088 朋友：你好！

——我上面的代码的确能选定全文中表格外的文字，但你的问题，并非全局性的问题，我尝试了 Selection、Range 两种对象，但没有相关 .SelectAllEditableRanges 方法（属性）。也就是说，像这种有无“权限”的操作，只能是针对全文的有用，针对局部选定表格外文字无效，这是我的结论（我的认识也许是错的，高手们可能有办法。这种方法是否可靠，我不敢肯定，所以，我的《大气版》中不用这种方法）。

——至于先选定第 5 段至第 10 段文字范围（其实中间如果包含表格，第 10 段并不是真正的第 10 段），可以设定为 r 区域（Set r=Selection.Range），再像我《大气版》中的方法，分几步选定表格外文字，这个方法我相信也不是你想要的；你想要的还是想利用“权限”来操作，只不过是针对局部，但我认为这种“权限”操作，只能对全文有效，而不能对局部有效。

——抱歉！但不知你想选定局部区域表格外文字有何用处？

413191246se

ke3088 朋友：我以为你是想让我用“权限”这种方法来操作呢！如果是用循环遍历法就简单了，我对你上面的代码优化了一下，但我想，你要执行宏前，应该先选定一定范围吧！？否则，怎么判断第 6 段和 第 39 段？
你选定表外文字的最终目的是什么呢？不妨说来看看。

1. Sub 循环遍历选定区域表外文字()
   
2.     Dim i As Paragraph
   
3.     For Each i In Selection.Paragraphs
   
4.         With i.Range
   
5.             If Not .Information(12) Then '如果不在表格中（此行代码是跟杜老师学的）
   
6.                 .Underline = wdUnderlineWavyHeavy '重波浪线（此行代码可以删除）
   
7.                 With .ParagraphFormat
   
8.                     .LineSpacingRule = wdLineSpaceExactly
   
9.                     .LineSpacing = 25
   
10.                 End With
    
11.             End If
    
12.         End With
    
13.     Next
    
14. End Sub

复制代码

ke3088

413191246se老师，您好！谢谢您的耐心解答！

三羧酸

有用的代码，感谢413191246se的奉献和大家的讨论

413191246se

此问题已经解决！用 小花鹿 老师常说的“.Move 4”方法，进入表格后马上跳出来，不走单元格，节省了时间。一般公文、普通排版，可使用我的《通用模板宏》中的公文/普通排版来解决，其中用到了“.Move 4”方法。