在日常的WPS文字二次開發(fā)中，經(jīng)常會(huì)涉及到操作頁(yè)眉和頁(yè)腳的情況。如：添加、刪除、修改頁(yè)眉和頁(yè)腳中的文字、圖形和圖像等，
本文通過(guò)WPS文字提供的二次開發(fā)接口，以WPS為基礎(chǔ)，同時(shí)兼顧Word來(lái)介紹其中的用法。
注意：WPS雖然與Word非常相似，但也有自身的一些特點(diǎn)。
簡(jiǎn)介
設(shè)置頁(yè)眉和頁(yè)腳時(shí)，可能會(huì)涉及到與“頁(yè)面設(shè)置”和“域”的知識(shí)。影響到頁(yè)眉和頁(yè)腳的設(shè)置如下圖：
2.1. 節(jié)、頁(yè)面設(shè)置、頁(yè)碼域
節(jié)：通常以為文檔的下一個(gè)對(duì)象是節(jié)(即Application->Documents->Sections)，頁(yè)眉和頁(yè)腳可以在不同的節(jié)中進(jìn)行不同的設(shè)置。
頁(yè)面設(shè)置：
奇偶頁(yè)不同：此功能為方便設(shè)置類似于書籍的“頁(yè)眉和頁(yè)腳”，如字典。
首頁(yè)不同：此功能為方便設(shè)置首頁(yè)為封面而設(shè)置。(注：通常封面不顯示頁(yè)碼)
域：如果在頁(yè)眉和頁(yè)腳中插入了頁(yè)碼域(即，如果你做了如下的操作：插入、頁(yè)碼，這樣插入的頁(yè)碼就是一個(gè)域，與，在輸入page是一樣的域)，則每頁(yè)的頁(yè)碼會(huì)根據(jù)當(dāng)前所在頁(yè)而改變。
2.2. 讀取頁(yè)眉和頁(yè)腳的內(nèi)容
下面以頁(yè)眉來(lái)介紹，頁(yè)腳只要將Headers改為Footers即可，其他知識(shí)完全一樣。
通常的方法是：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text
注：這里的wpsHeaderFooterPrimary可以取得枚舉值及描述如下：
名稱 值 描述
wpsHeaderFooterEvenPages 3 返回偶數(shù)頁(yè)上的所有頁(yè)眉或頁(yè)腳
wpsHeaderFooterFirstPage 2 返回文檔或節(jié)中的第一個(gè)頁(yè)眉或頁(yè)腳
wpsHeaderFooterPrimary 1 返回文檔或節(jié)中除第一頁(yè)外所有頁(yè)上的頁(yè)眉或頁(yè)腳
針對(duì)“頁(yè)面設(shè)置”的不同，所以，對(duì)讀取頁(yè)眉中的內(nèi)容細(xì)分如下：
2.2.1. 在頁(yè)面設(shè)置中勾選了“奇偶頁(yè)不同”
讀取偶數(shù)頁(yè)的內(nèi)容：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterEvenPages).Range.Text
讀取奇數(shù)頁(yè)的內(nèi)容：
可以使用：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text
注意：
如果頁(yè)眉中設(shè)置了動(dòng)態(tài)的內(nèi)容，如第*頁(yè)(“*”代表是一個(gè)根據(jù)頁(yè)碼自動(dòng)更新的數(shù)字)，則讀出的內(nèi)容：
這里與Word的差異：
1. Word：是根據(jù)當(dāng)前光標(biāo)的位置而定(如：光標(biāo)放在第2頁(yè)，則wdHeaderFooterEvenPages讀出的是第2頁(yè)的頁(yè)眉內(nèi)容，如果在第4頁(yè)，則讀出的是第4頁(yè)的內(nèi)容，如果光標(biāo)在第3頁(yè)，則讀出什么有時(shí)是2頁(yè)，有時(shí)是4頁(yè)，規(guī)律不細(xì)說(shuō))。
2. WPS：讀取的就是第一個(gè)匹配的頁(yè)眉(如：wpsHeaderFooterEvenPages讀的就是第2頁(yè)的內(nèi)容;wpsHeaderFooterPrimary則是第1頁(yè)或者第3頁(yè)的內(nèi)容)。
2.2.2. 在頁(yè)面設(shè)置中勾選了“首頁(yè)不同”
讀取第一頁(yè)的內(nèi)容：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterFirstPage).Range.Text
讀取除第一頁(yè)的內(nèi)容：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text
2.3. 刪除、修改頁(yè)眉的內(nèi)容
與上面同理，通常用(其他情況，請(qǐng)參考上面的方法)：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text="KingSoft"
3. 操作頁(yè)眉中的圖形或圖像
3.1. 讀取頁(yè)眉中的圖形或圖像
讀取頁(yè)眉與頁(yè)腳中的所有圖形(不包含嵌入式圖片)：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes.Count
也可以用：wpsHeaderFooterFirstPage、wpsHeaderFooterEvenPages此處三個(gè)讀出的結(jié)果完全相同。
讀取在頁(yè)面設(shè)置中勾選了“首頁(yè)不同”中的頁(yè)眉中的圖形(不包含嵌入式圖片)：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterFirstPage).Range.ShapeRange.Count
其他的偶數(shù)頁(yè)等與其類似。
注意：
大多數(shù)情況應(yīng)該使用.Range.ShapeRange.Count來(lái)操作圖形。
3.2. 添加一個(gè)圖形到頁(yè)眉中且左對(duì)齊
注意：
以下代碼僅供演示使用，不對(duì)可能存在的任何問(wèn)題負(fù)任何責(zé)任。
要運(yùn)行以下代碼，必須滿足兩個(gè)文件：
1. 假設(shè)有C:\temp\after.gif文件;
2. 已經(jīng)可以切換到頁(yè)眉與頁(yè)腳中一次，即已有頁(yè)眉與頁(yè)腳信息，即至少有一個(gè)回車符，如下圖(Word不需要這個(gè)條件)。
示例代碼1：'添加圖片到頁(yè)眉中的且左對(duì)齊
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:\temp\after.gif", Left:=myleft, Top:=mytop
End Sub
示例代碼2：'添加圖片到頁(yè)眉中的且右對(duì)齊
Sub AddPicturetoHeaderToRight()
Dim myleft, mytop
Dim tempshape As Shape
mytop = ActiveDocument.Sections(1).PageSetup.HeaderDistance
myleft = ActiveDocument.Sections(1).PageSetup.PageWidth - ActiveDocument.Sections(1).PageSetup.RightMargin
Set tempshape = ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes.Addpicture _
("C:\temp\after.gif", Left:=myleft, Top:=mytop)
tempshape.Left = tempshape.Left - tempshape.Width
End Sub
示例代碼3：'添加圖片到頁(yè)眉中的且右對(duì)齊
Sub AddPicturetoFooterToLeft()
Dim myleft, mytop
myleft = ActiveDocument.Sections(1).PageSetup.LeftMargin
mytop = ActiveDocument.Sections(1).PageSetup.PageHeight - ActiveDocument.Sections(1).PageSetup.BottomMargin
mytop = mytop + (ActiveDocument.Sections(1).PageSetup.BottomMargin - ActiveDocument.Sections(1).PageSetup.FooterDistance)
mytop = mytop - 11
ActiveDocument.Sections(1).Footers(wpsHeaderFooterPrimary).Shapes.Addpicture _
"C:\temp\after.gif", Left:=myleft, Top:=mytop
End Sub
4. 注意事項(xiàng)
1. 如果通過(guò)“插入”、“頁(yè)碼”的形式插入了一個(gè)頁(yè)碼，則從“視圖”、“頁(yè)眉和頁(yè)腳”進(jìn)入視圖時(shí)，光標(biāo)默認(rèn)會(huì)在頁(yè)碼的圖文框中，這個(gè)可能會(huì)影響到用戶通過(guò)API切換視圖來(lái)編輯頁(yè)眉與頁(yè)腳的情況。
2. 頁(yè)眉與頁(yè)腳(包括正文)中插入圖形時(shí)，ShapeRange的順序與Shapes的順序是不一樣的。
通常應(yīng)該使用Shapes來(lái)取最后一個(gè)插入的圖形：
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes(ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes.Count).Select
5. 參考
更多的API操作，請(qǐng)參閱 WPS API 幫助文檔。
6. 適用范圍
適用于 WPS Office 2009(1705)以上版本
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
下載 
喜歡 
頂
難過(guò)
囧
圍觀
無(wú)聊
