给节进行页面设置

11.3.7小节介绍过文档的页面设置。这里引用Section对象的PageSetup属性也会返回一个PageSetup对象，设置该对象的属性，可以对指定的节进行页面设置，比如设置页面的纸张大小和页边距等。PageSetup对象的常用属性如表11- 所示。

下面在第3段和第2段前插入连续分节符，然后将文档的第2个节分2栏显示。

code.vba 
Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Debug.Print doc.Sections.Count
  doc.Paragraphs(doc.Paragraphs.Count - 2).Range.InsertBreak 3  'wdsectionbreakconinuous
  doc.Paragraphs(doc.Paragraphs.Count - 1).Range.InsertBreak 3  'wdsectionbreakconinuous
  Debug.Print doc.Sections.Count
  Dim ps As PageSetup
  Dim ps2 As PageSetup
  Set ps = doc.Sections(2).PageSetup
  ps.TextColumns.SetCount(2)
  Set ps2 = doc.Sections(3).PageSetup
  ps2.LeftMargin = 120
  ps2.RightMargin = 120
End Sub

设置效果如图5-1所示。

Document Image

图5-1 插入分节符并将第2节文本分栏显示