Wps中進(jìn)行頁(yè)眉和頁(yè)腳的操作方法
在日常的WPS文字二次開發(fā)中,經(jīng)常會(huì)涉及到操作頁(yè)眉和頁(yè)腳的情況。如:添加、刪除、修改頁(yè)眉和頁(yè)腳中的文字、圖形和圖像等,今天,學(xué)習(xí)啦小編就教大家在Wps中進(jìn)行頁(yè)眉和頁(yè)腳的操作技巧。
Wps中進(jìn)行頁(yè)眉和頁(yè)腳的操作步驟:
注意:WPS雖然與Word非常相似,但也有自身的一些特點(diǎ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:tempafter.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:tempafter.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:tempafter.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:tempafter.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
Wps中進(jìn)行頁(yè)眉和頁(yè)腳的操作相關(guān)文章:
3.Wps中設(shè)置不同頁(yè)眉頁(yè)腳的操作方法
Wps中進(jìn)行頁(yè)眉和頁(yè)腳的操作方法
下一篇:怎么在WPS文字制作表格圖文教程