word文档封面不显示页码双面页码vba宏代码

Sub 有封面双页码()

' 有封面双页码宏

Dim oSection As Section

For Each oSection In Word.ActiveDocument.Sections

With oSection.PageSetup

.DifferentFirstPageHeaderFooter = True '设置页眉页脚的首页不同

.OddAndEvenPagesHeaderFooter = True '设置页眉页脚的奇偶页不同

End With

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.WholeStory

Selection.Delete

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.WholeStory

Selection.Delete

Selection.TypeText Text:="— "

Application.Templates( _

"C:\Users\Administrator\AppData\Roaming\Microsoft\Document Building Blocks\2052\16\Built-In Building Blocks.dotx" _

).BuildingBlockEntries("普通数字").Insert Where:=Selection.Range, RichText:= _

True'设置页码为普通数字，需要word版本支持普通数字页码格式

Selection.TypeText Text:=" —"

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.WholeStory

Selection.Font.Size = 14

403 Forbidden = "宋体"

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight'设置页码靠右

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.WholeStory

Selection.Delete

Selection.TypeText Text:="— "

Application.Templates( _

"C:\Users\Administrator\AppData\Roaming\Microsoft\Document Building Blocks\2052\16\Built-In Building Blocks.dotx" _

).BuildingBlockEntries("普通数字").Insert Where:=Selection.Range, RichText:= _

True'设置页码为普通数字，需要word版本支持普通数字页码格式

Selection.TypeText Text:=" —"

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.WholeStory

Selection.Font.Size = 14

403 Forbidden = "宋体"

End Sub

word文档封面不显示页码双面页码vba宏代码相关推荐

如何分别设置Word文档封面、目录、正文页码
如何设置Word文档页码在文档编辑中,经常会遇到如下设置页码的情况: 封面不要页码: 目录页码以希腊字母排序,如:I, II, III, IV, V, VI, - 正文页码从1开始. 首先,在封面. ...
word小技巧--怎么去掉Word文档封面页码的方法
怎么去掉Word文档封面页码的方法很多人在设置页码时都会有这样的烦恼,那就是老师要求封面第一页及目录不得出现页码,但现实是word设置目录第一页封面就会自动出现页码,那么如何去掉呢?在此本人也是 ...
word文档封面免费下载_为Word 2007文档添加封面
word文档封面免费下载 I've been using Microsoft Word since 1985, starting with Word for Mac and eventually mo ...
word 文档在左侧显示文档的目录结构的方法
word 文档在左侧显示文档的目录结构的方法在视图里,选择文档结构图就能显示出来了. ------------------------ 现在这个版本的 word ,要选择视图 --- 导航 ...
Word文档中不显示图片（只有框）
Word文档中的图片看不到,显示为一个框.同一个文档别人的电脑里可以显示. Word2007解决方法: 1. 单击"Microsoft Office 按钮",然后单击&quo ...
word文档点击打印，目录页码却全是2的原因分析及解决办法
最近也是临近毕业,在忙着毕业设计定稿,在这个过程,同学w遇见了一个很奇怪的问题,就是每次点击文件目录下的打印功能时,自己论文的目录,全部都变为了2.有时候重新打开,又自动好了,有时候,又不是2,是10 ...
Python学习之批量word文档转pdf并统计其页码
pypdf2是一个Python模块,可以用来读取.写入和操作PDF文件.要安装pypdf2模块,请按照以下步骤操作: 确保你已经安装了Python.你可以在终端或命令提示符中输入python --ve ...
如何解决word文档打开总是显示修订状态问题
问题描述:每次打开word总是显示为修订状态,文字界面凌凌乱乱. 解决办法: 点击"审阅"菜单中,找到"接受"栏,点击下方的小箭头,出现下拉菜单,点击" ...
word文档批注后显示最终状态，打开后还有批注。
三步走: 审阅----最终状态接受----接受对文档所做的所有修订显示标记----使用批注框----以嵌入方式显示所有修订

word文档封面不显示页码双面页码vba宏代码

word文档封面不显示页码双面页码vba宏代码相关推荐

最新文章

热门文章