![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
5个回答
2013-08-16
展开全部
录制宏。所谓的宏就是批处理脚本。其实也是一段VB代码
2013-08-16
展开全部
为什么在常规的替换方法可以替换页码,但是用VB代码就是不行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-08-16
展开全部
你可以这样做把WORD另存为XML然后用VB脚本去操作这个XML
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-08-16
展开全部
是页脚里面的文字?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |