有時我們經常要設置插入一些代碼,這些代碼具有不異反復性,我們可以把它建造當作VBA說話來執行,那么怎么用VBA給WORD設置肇端頁碼呢?今天小編和大師分享一下。
小編利用的是WORD2013,打開WORD2013并選擇空白文檔,新建一個空白文檔,也可以選擇其它的模板打開進行編纂。
第二步,點擊視圖——點擊宏的下拉箭頭選擇查看宏——在宏名那邊輸入:插入頁碼——建立。
第三步,點擊建立后就會直接進入到VBA編纂頁面,而且已經按上一步的設置編纂好名稱和提醒信息。在明滅光標那邊輸入如下編碼:
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) Set rng = .Range rng.Text = "第 " rng.Collapse wdCollapseEnd ActiveDocument.Fields.Add rng, wdFieldPage, "Page" Set rng = .Range rng.Collapse wdCollapseEnd rng.Text = " 頁 / 共 " rng.Collapse wdCollapseEnd ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages" Set rng = .Range rng.Collapse wdCollapseEnd rng.Text = " 頁 " .Range.Fields.Update .Range.ParagraphFormat.Alignment = wdAlignParagraphCenterEnd With
第四步,設置代碼之后,在VBA編纂器那邊點擊保留——接著點擊運行——選擇:運行子過程/用戶窗體。這樣就可以運行代碼。運行代碼后,WORD編纂頁面就主動設置了頁碼了。
第五步,辦理宏位置:封閉VBA編纂器,在WORD本家兒頁面那邊點擊視圖——宏——查看宏——然后在宏的位置那邊選擇宏的具體位置,如在文檔還在模板等。也可以點擊辦理器進行設置。
最后,你可以點擊視圖——宏——錄制宏——輸入宏名——點擊確定——然后在編纂頁面就按步調操作插入頁碼,這樣就可以把代碼錄制下來,然后稍微點竄一下就可以了。
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!