怎么用VBA在word的页脚中插入文字和页码，如“第X页共Y页”（已自行解决）

gczxhzb · 发表于 2013-7-5 19:06:20

本帖最后由 gczxhzb 于 2013-7-7 10:32 编辑

怎么用VBA在word的页脚中插入文字和页码，如“第X页共Y页”？

已自行解决，下面的代码可以在AU3中直接使用。

$oDoc.PageSetup.FooterDistance = 30;设置页脚
        $oWordApp.ActiveWindow.ActivePane.View.SeekView = 10
        With $oWordApp.Selection
                .Font.Name = "宋体"
                .Font.size = 10
                .Font.bold = True
                .TypeText("第")
                .Fields.Add($oWordApp.Selection.Range, 33, "PAGE  ", True)
                .TypeText("页 共")
                .Fields.Add($oWordApp.Selection.Range, 26, "NUMPAGES   ", True)
                .TypeText("页")
                .ParagraphFormat.Alignment = 1
        EndWith

chzj589 · 发表于 2013-7-10 07:38:29

谢谢!谢谢提供

		自动登录	找回密码
密码			加入

[AU3基础] 怎么用VBA在word的页脚中插入文字和页码，如“第X页 共Y页”（已自行解决）

[AU3基础] 怎么用VBA在word的页脚中插入文字和页码，如“第X页共Y页”（已自行解决）