Word VBA教程:Sections集合对象

   
多种对象
Sections (Section)
多种对象

本对象为Section对象组成的集合,这些元素对象位于所选内容、范围或文档中。

使用 Sections集合

可用 Sections属性返回 Sections集合。下例在活动文档最后一节的结尾插入文字。


With ActiveDocument.Sections.Last.Range
    .Collapse Direction:=wdCollapseEnd
    .InsertAfter "end of document"
End With

可用Add方法或InsertBreak方法在文档中添加新的节。下例在活动文档的开头添加一节。


Set myRange = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Sections.Add Range:=myRange
myRange.InsertParagraphAfter

下例显示活动文档中节的数目,在选定内容的第一段之前插入分节符,并再次显示节的数目。


MsgBox ActiveDocument.Sections.Count & " sections"
Selection.Paragraphs(1).Range.InsertBreak _
    Type:=wdSectionBreakContinuous
MsgBox ActiveDocument.Sections.Count & " sections"

可用 Sections(index) 返回单独的 Section对象,其中 index 为索引号。下例修改活动文档第一节的左、右页边距。


With ActiveDocument.Sections(1).PageSetup
    .LeftMargin = InchesToPoints(0.5)
    .RightMargin = InchesToPoints(0.5)
End With

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号