有时我们经常要设置插入一些代码,这些代码具有不异反复性,我们可以把它建造当作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 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!