wordvba页面控件使用教程

Word VBA中的页面控件主要包括页眉、页脚、页码和节。以下是一些相关的示例代码：

1. 添加页眉和页脚

Sub AddHeaderFooter()
    ' 添加页眉
    Dim myHeader As HeaderFooter
    Set myHeader = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
    myHeader.Range.Text = "这是页眉"
    
    ' 添加页脚
    Dim myFooter As HeaderFooter
    Set myFooter = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
    myFooter.Range.Text = "这是页脚"
End Sub

2. 设置页码

Sub AddPageNumber()
    Dim myPageNumber As PageNumbers
    Set myPageNumber = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers
    myPageNumber.NumberStyle = wdPageNumberStyleArabic
    myPageNumber.StartingNumber = 1
End Sub

3.添加节

Sub AddSection()
    ' 添加新节
    ActiveDocument.Sections.Add
    
    ' 添加新页眉和页脚
    Dim myHeader As HeaderFooter
    Set myHeader = ActiveDocument.Sections(2).Headers(wdHeaderFooterPrimary)
    myHeader.Range.Text = "这是新节的页眉"
    
    Dim myFooter As HeaderFooter
    Set myFooter = ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary)
    myFooter.Range.Text = "这是新节的页脚"
    
    ' 分页符
    Selection.TypeParagraph
    Selection.InsertBreak Type:=wdSectionBreakNextPage
End Sub

上述示例代码演示了如何在Word文档中添加页眉、页脚、页码和节。需要注意的是，这些控件的具体设置可能因文档样式和需求而有所不同。