|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
想用VBA批量给WORD好多个节的那种文件添加连续页码总是失败,第二页就没有页码啊?
Sub 多节插入页码()
With ActiveWindow.ActivePane.View
.SeekView = wdSeekCurrentPageFooter '进入页脚编辑状态
With Selection
.Expand wdStory '选取可能存在的所有页脚内容
.ParagraphFormat.Alignment = wdAlignParagraphRight '右对齐
.TypeText ""
.Fields.Add .Range, wdFieldPage '插入Page域
.TypeText ""
.Font.Name = "仿宋_GB2312" '单元格字体仿宋
.Font.Size = 14 '单元格字体三号
End With
.SeekView = wdSeekMainDocument '退出页脚编辑状态,返回主文档
End With
End Sub
VBA多节添加连续的页码.rar
(11.92 KB, 下载次数: 10)
|
|