Wps中進(jìn)行頁眉和頁腳的操作方法
在日常的WPS文字二次開發(fā)中,經(jīng)常會(huì)涉及到操作頁眉和頁腳的情況。如:添加、刪除、修改頁眉和頁腳中的文字、圖形和圖像等,今天,學(xué)習(xí)啦小編就教大家在Wps中進(jìn)行頁眉和頁腳的操作技巧。
Wps中進(jìn)行頁眉和頁腳的操作步驟:
注意:WPS雖然與Word非常相似,但也有自身的一些特點(diǎn)。
設(shè)置頁眉和頁腳時(shí),可能會(huì)涉及到與“頁面設(shè)置”和“域”的知識(shí)。影響到頁眉和頁腳的設(shè)置如下圖:
2.1. 節(jié)、頁面設(shè)置、頁碼域
節(jié):通常以為文檔的下一個(gè)對(duì)象是節(jié)(即Application->Documents->Sections),頁眉和頁腳可以在不同的節(jié)中進(jìn)行不同的設(shè)置。
頁面設(shè)置:
奇偶頁不同:此功能為方便設(shè)置類似于書籍的“頁眉和頁腳”,如字典。
首頁不同:此功能為方便設(shè)置首頁為封面而設(shè)置。(注:通常封面不顯示頁碼)
域:如果在頁眉和頁腳中插入了頁碼域(即,如果你做了如下的操作:插入、頁碼,這樣插入的頁碼就是一個(gè)域,與,在輸入page是一樣的域),則每頁的頁碼會(huì)根據(jù)當(dāng)前所在頁而改變。
2.2. 讀取頁眉和頁腳的內(nèi)容
下面以頁眉來介紹,頁腳只要將Headers改為Footers即可,其他知識(shí)完全一樣。
通常的方法是:
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text
注:這里的wpsHeaderFooterPrimary可以取得枚舉值及描述如下:
名稱 值 描述
wpsHeaderFooterEvenPages 3 返回偶數(shù)頁上的所有頁眉或頁腳
wpsHeaderFooterFirstPage 2 返回文檔或節(jié)中的第一個(gè)頁眉或頁腳
wpsHeaderFooterPrimary 1 返回文檔或節(jié)中除第一頁外所有頁上的頁眉或頁腳
針對(duì)“頁面設(shè)置”的不同,所以,對(duì)讀取頁眉中的內(nèi)容細(xì)分如下:
2.2.1. 在頁面設(shè)置中勾選了“奇偶頁不同”
讀取偶數(shù)頁的內(nèi)容:
ActiveDocument.Sections(1).Headers(wpsHeaderFooterEvenPages).Range.Text
讀取奇數(shù)頁的內(nèi)容:
可以使用:
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text
注意:
如果頁眉中設(shè)置了動(dòng)態(tài)的內(nèi)容,如第*頁(“*”代表是一個(gè)根據(jù)頁碼自動(dòng)更新的數(shù)字),則讀出的內(nèi)容:
這里與Word的差異:
1. Word:是根據(jù)當(dāng)前光標(biāo)的位置而定(如:光標(biāo)放在第2頁,則wdHeaderFooterEvenPages讀出的是第2頁的頁眉內(nèi)容,如果在第4頁,則讀出的是第4頁的內(nèi)容,如果光標(biāo)在第3頁,則讀出什么有時(shí)是2頁,有時(shí)是4頁,規(guī)律不細(xì)說)。
2. WPS:讀取的就是第一個(gè)匹配的頁眉(如:wpsHeaderFooterEvenPages讀的就是第2頁的內(nèi)容;wpsHeaderFooterPrimary則是第1頁或者第3頁的內(nèi)容)。
2.2.2. 在頁面設(shè)置中勾選了“首頁不同”
讀取第一頁的內(nèi)容:
ActiveDocument.Sections(1).Headers(wpsHeaderFooterFirstPage).Range.Text
讀取除第一頁的內(nèi)容:
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text
2.3. 刪除、修改頁眉的內(nèi)容
與上面同理,通常用(其他情況,請(qǐng)參考上面的方法):
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Range.Text="KingSoft"
3. 操作頁眉中的圖形或圖像
3.1. 讀取頁眉中的圖形或圖像
讀取頁眉與頁腳中的所有圖形(不包含嵌入式圖片):
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes.Count
也可以用:wpsHeaderFooterFirstPage、wpsHeaderFooterEvenPages此處三個(gè)讀出的結(jié)果完全相同。
讀取在頁面設(shè)置中勾選了“首頁不同”中的頁眉中的圖形(不包含嵌入式圖片):
ActiveDocument.Sections(1).Headers(wpsHeaderFooterFirstPage).Range.ShapeRange.Count
其他的偶數(shù)頁等與其類似。
注意:
大多數(shù)情況應(yīng)該使用.Range.ShapeRange.Count來操作圖形。
3.2. 添加一個(gè)圖形到頁眉中且左對(duì)齊
注意:
以下代碼僅供演示使用,不對(duì)可能存在的任何問題負(fù)任何責(zé)任。
要運(yùn)行以下代碼,必須滿足兩個(gè)文件:
1. 假設(shè)有C:tempafter.gif文件;
2. 已經(jīng)可以切換到頁眉與頁腳中一次,即已有頁眉與頁腳信息,即至少有一個(gè)回車符,如下圖(Word不需要這個(gè)條件)。
示例代碼1:'添加圖片到頁眉中的且左對(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:'添加圖片到頁眉中的且右對(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:'添加圖片到頁眉中的且右對(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. 如果通過“插入”、“頁碼”的形式插入了一個(gè)頁碼,則從“視圖”、“頁眉和頁腳”進(jìn)入視圖時(shí),光標(biāo)默認(rèn)會(huì)在頁碼的圖文框中,這個(gè)可能會(huì)影響到用戶通過API切換視圖來編輯頁眉與頁腳的情況。
2. 頁眉與頁腳(包括正文)中插入圖形時(shí),ShapeRange的順序與Shapes的順序是不一樣的。
通常應(yīng)該使用Shapes來取最后一個(gè)插入的圖形:
ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes(ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary).Shapes.Count).Select
Wps中進(jìn)行頁眉和頁腳的操作相關(guān)文章:
Wps中進(jìn)行頁眉和頁腳的操作方法
下一篇:怎么在WPS文字制作表格圖文教程