VBA怎么修改word页脚下的文字

请问怎么修改word页脚下的文字用VBA有没有大侠做到过的

2024年10月30日 17:52

有5个网友回答

网友（1）：

录制宏。所谓的宏就是批处理脚本。其实也是一段VB代码

网友（2）：

为什么在常规的替换方法可以替换页码，但是用VB代码就是不行

网友（3）：

你可以这样做把WORD另存为XML然后用VB脚本去操作这个XML

网友（4）：

是页脚里面的文字？

网友（5）：

Sub 在页脚插入普通页码()
ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False '关闭奇偶页相同(防止上回启用奇偶页不同后没有关闭此项设置)
With ActiveWindow.ActivePane.View
.SeekView = wdSeekCurrentPageFooter
With Selection
.Expand wdStory
.Font.Size = 14 '字号
.Font.name = "宋体" '字体
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText "-"
.Fields.Add .Range, wdFieldPage
.TypeText "-"
.ParagraphFormat.Alignment = wdAlignParagraphRight '页码的位置居右
End With
.SeekView = wdSeekMainDocument '退出页码的编辑(即关闭页眉和页脚工具栏)
End With
End Sub