在此代码中，增加一个，首页不插入页码的语句

yjwdjfqb · 发表于 2015-10-23 11:21

在此代码中，增加一个，首页不插入页码的语句

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

VBA页码.rar (9.06 KB, 下载次数: 23)

请老师们帮帮忙，谢谢大家了！

yjwdjfqb · 发表于 2015-10-23 12:16

请老师们帮帮忙，谢谢大家了！

yjwdjfqb · 发表于 2015-10-24 23:22

请老师们帮帮忙，谢谢大家了！

yjwdjfqb · 发表于 2015-10-25 11:47

请老师们帮帮忙，谢谢大家了！

		自动登录	找回密码
密码			免费注册

[求助] 在此代码中，增加一个，首页不插入页码的语句