向導
Word 2010 Bible 上說有的模板,在基于它新建文件時,可以彈出一個新建向導。然后,我就特別地想實現這個功能,比如新建若干個節,新建目錄等。
跑到 http://word.mvps.org 上搜索了下,果然有方法,簡單的說就是 在模板工程的ThisDocument中,新建一個Document_New()過程,并實現之。復雜地說就是:
-
雙擊 ThisDocument
- 在右邊打開的編輯區上方有兩個組合框,選擇左邊那個框中的 Document,你會發現Word自動新建一個Document_New過程
- 添加自定義Form,做成向導即可
頁面設置
向導做完以后,一般來說需要進行頁面設置。我看了半天幫助文件,了解了Section.PageSetup的各成員,好不容易才搞定,后來發現只需要找個空文件,按頁面設置要求,錄制一個宏,然后拷貝一下即可。
值得說明的是: 頁面設置最后一頁里,網格的每頁的行數和跨度,在VBA中只能設置LinesPage,Word會根據這個值計算跨度=(PageHeight-TopMargin-BottomMargin)/LinesPage,用戶可以在頁面設置中修改跨度,并且Word也會作出響應(即一頁可以不剛好是整數行),但是VBA做不到這一點,很讓人崩潰~~
頁眉和頁腳
頁眉和頁腳由Section.Headers和Section.Footers來設置,
- wdHeaderFooterPrimary:奇數頁
- wdHeaderFooterEvenPages:偶數頁
-
wdHeaderFooterFirstPage:首頁
頁腳中可以添加頁碼,頁碼用域 {Page} 來表示,要控制頁碼的樣式或者重新編號,就需要用到
- Section.Footers.PageNumbers.RestartNumberingAtSection:是否在這節重新開始編號
- Section.Footers.PageNumbers.StartingNumber:編號開始
-
Section.Footers.PageNumbers.NumberStyle:編號樣式
注意 :不需要Section.Footers.PageNumbers.Add 方法來添加頁碼,直接在 Footers(index).Range中添加Page域即可
注意 :從第2節開始中需要設置頁眉頁腳的 LinkToPrevious 屬性,并且在設置 Range屬性時,需要先調用 Range.Delete,不然會有上一節的頁眉頁腳內容
添加目錄與目錄更新
添加目錄和更新目錄比較特殊,直接插入和更新TOC域貌似不太好使。
添加目錄 :ActiveDocument.TablesOfContents.Add
更新目錄
:ActiveDocument.TablesOfContents(1).Update
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索:z360901061

微信掃一掃加我為好友
QQ號聯系: 360901061
您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。
【本文對您有幫助就好】元
