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

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

本帖最后由 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

谢谢!谢谢提供
页: [1]
查看完整版本: 怎么用VBA在word的页脚中插入文字和页码，如“第X页 共Y页”（已自行解决）