对表格以外的区域设置.pdfVIP

对表格以外的区域设置 在对象间循环通常是对对象进行的操作，如果需要的是对其“补集”的操作，即对象外的操 作，则需要“分块”进行操作。 通常可以将对象外的区域分为 3 大块：文档的开始到第 1 个对象的开始之间的区域；第 1 个对象的结尾到第2 个对象开始之间的区域，第2 个到第3 个之间的区域……最后一个对象到 文档的结尾之间的区域。 例如现在需要将除了表格外的所有段落的首行缩进设置为“2 字符”，这时就需要使用到在 表格外循环处理。 按Alt+F11组合键打开【Visual Basic 编辑器】窗口，双击【工程资源管理器】窗口下当 前文档下方的 ThisDocument 模块打开右侧的【代码窗口】，输入如下代码，将光标置于 “ForEachOutTable”过程内，然后按下F5键运行宏。 VBA 代码如下： Sub ForEachOutTable() Dim mytable As Table Dim myrange As Range Dim i As Long Dim startTimer As Long On Error Resume Next Application.ScreenUpdating = False startTimer = Timer With ActiveDocument 如果文档没有表格 If .Tables.Count = 0 Then SetFormat .Range 调用函数 Exit Sub End If 1 / 5 设置myrange 区域为文档的开始到第一个表格的开始的区域 Set myrange = .Range(0, .Tables(1).Range.Start) SetFormat myrange 调用函数 For i = 1 To .Tables.Count - 1 设置myrange 区域为文档每个表格之间的区域 Set myrange = .Range(.Tables(i).Range.End, _ .Tables(i + 1).Range.Start) SetFormat myrange 调用函数 Next 设置myrange 区域为文档中最后的表格到文档的末尾的区域 Set myrange = _ .Range(.Tables(.Tables.Count).Range.End, .Range.End) SetFormat myrange 调用函数 End With Application.ScreenUpdating = True MsgBox 完成，用时 Timer - startTimer 秒 End Sub Function SetFormat(myrange As Range) 将段落设置为首行缩进2 个字符 Dim par As Paragraph For Each par In myrange.Paragraphs par.CharacterUnitFirstLineIndent = 2 Next End Function 简要解析： 此VBA 代码分为两块，一个是以“Sub”开头的过程“ForEachOutTable”，另一个是以“Function” 开头的函数“SetFormat”。