在 WPS 文字二次開發中,常需操作頁首與頁尾。本文透過 WPS 提供的開發介面,結合 Word 相容性說明,詳細介紹頁首頁尾的讀取、修改、圖形操作及注意事項。
以頁首為例,頁尾只需將 Headers 改為 Footers。常用方法:ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text
枚舉值說明:
| 名稱 | 值 | 描述 |
|---|---|---|
| wpsHeaderFooterEvenPages | 3 | 返回偶數頁頁首/頁尾 |
| wpsHeaderFooterFirstPage | 2 | 返回首頁頁首/頁尾 |
| wpsHeaderFooterPrimary | 1 | 返回首頁以外所有頁頁首/頁尾 |
wpsHeaderFooterEvenPages,奇數頁用 wpsHeaderFooterPrimary。WPS 讀取首個匹配頁首,Word 則依游標位置動態讀取。wpsHeaderFooterFirstPage,其餘頁用 wpsHeaderFooterPrimary。同理,例如:ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text = "KingSoft"
使用 .Range.ShapeRange.Count 而非 .Shapes.Count,因順序不同。

Sub AddPicturetoHeaderToLeft()
Dim myleft, mytop
myleft = ActiveDocument.Sections(1).PageSetup.LeftMargin
mytop = ActiveDocument.Sections(1).PageSetup.HeaderDistance
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes.AddPicture _
"C:tempafter.gif", Left:=myleft, Top:=mytop
End Sub
右對齊需計算寬度並減去圖片寬度;頁尾同理。

WPS Office 2009 (1705) 以上版本。