Word排版跳过表格的代码，提高效率

snow653124

我开始学习的时候，学习的代码是用Range.Information(wdWithInTable) 来判断的，如果文档表格多的话，这个是遍历所有单元格
昨天在B站学习的时候，有个思路，是否可以判断paragraph如果在单元格，则跳过呢，
胡乱写了，可以实现功能，应该还有成型的函数吧，我不知道，实现功能都是用基础的代码。


Sub 跳过表格()
    Dim Op As Paragraph
    Dim n%
    Dim m%
    Set Rng = Application.Selection.Range
    With Rng
        For Each Op In .Paragraphs
            If Op.Range.Information(wdWithInTable) = True Then
                For n = 1 To .Tables.Count
                    m = m + 1
                    .Tables(n).Range.Select
                    Selection.Collapse 0
                Next
                If m = .Tables.Count Then Exit For
            End If
        Next
    End With
    Set Rng = Nothing
End Sub

413191246se

* 楼主，排版基本可以分为两种：纯文本（无表格）排版和字表混排。
* 字表混排基本思想是：以表格为界（好像大田的田梗），取文字大段区域为区域Range（好像大田），循环对区域Range进行排版即可。
* 具体排版代码可参见我的帖子（建议下载试用）：
https://club.excelhome.net/thread-1611926-1-1.html

wdpfox

是否可改进这一段？If Op.Range.Information(wdWithInTable) = True Then
                For n = 1 To .Tables.Count
                    m = m + 1
                    .Tables(n).Range.Select
                    Selection.Collapse 0
                Next
                If m = .Tables.Count Then Exit For
            End If
改为：
If Op.Range.Information(wdWithInTable) = True Then
                        selection.Tables(1).Range.Select
                    Selection.Collapse 0
               
            End If
手机回复，未测试

sylun

可试试如下代码

413191246se

sylun 老师 好久不见！——您对于自动排版有什么高见请赐教！

sylun

413191246se 发表于 2022-6-25 17:53
sylun 老师 好久不见！——您对于自动排版有什么高见请赐教！

413191246se兄好！原来我前面没上传到代码。这个以前也讨论有过的，我想其实处理思路应该差不多的

1. Sub test()
   
2.     '突出显示文档中表格外的内容
   
3.     Dim i%, myRange()
   
4.    
   
5.     With ActiveDocument
   
6.         ReDim myRange(.Tables.Count + 1)
   
7.         If .Tables.Count > 0 Then
   
8.             Set myRange(0) = .Range(0, 0)
   
9.             For i = 1 To .Tables.Count
   
10.                 If i = 1 Then
    
11.                     Set myRange(i) = .Range(0, .Tables(i).Range.Start)
    
12.                 Else
    
13.                     Set myRange(i) = .Range(.Tables(i - 1).Range.End, .Tables(i).Range.Start)
    
14.                 End If
    
15.             Next
    
16.             Set myRange(i) = .Range(.Tables(i - 1).Range.End, .Content.End)
    
17.         Else
    
18.             Set myRange(1) = .Content
    
19.         End If
    
20.     End With
    
21.    
    
22.     For i = 1 To UBound(myRange)
    
23.         myRange(i).HighlightColorIndex = wdYellow
    
24.     Next
    
25. End Sub
    

复制代码

snow653124

413191246se 发表于 2022-6-25 07:40
* 楼主，排版基本可以分为两种：纯文本（无表格）排版和字表混排。
* 字表混排基本思想是：以表格为界（好 ...

明白了 感谢

snow653124

wdpfox 发表于 2022-6-25 09:21
是否可改进这一段？If Op.Range.Information(wdWithInTable) = True Then
                For n = 1 To . ...

是的 谢谢 应该是这样

413191246se

sylun 兄的代码，拜读了（其实是看不太明白），测试了。说实在的，我现在的水平一直停留在录制宏的水平，对于数组也是一知半解，懵懵懂懂。功效虽然和我的一样，但显然水平却是天壤之别！兄的水平在天上，我的在地上。——将代码嵌入到我的代码中，因自动排版需要处理的方面比较多，不仅仅是跳过表格这么简单，所以，整体处理速度似乎差不太多。

dlkite

sylun老师，这个选择可以除了表格还设有图片也不选择怎么修改，排版的时候往往图片和表格和正文的格式都不一样，谢谢