关于用vba进行页码设置的问题

润彩绘真 · 发表于 2011-2-25 09:42

请教各位高手。想实现以下目标；按公文标准要求，自动添加页码，并设为外侧；页码字号为4号，其左右各放一条4号一字线（“减号”）。经过学习，了解到通过以下代码可以自动添页码，并设为外侧。但找不到设置页码字号和一字线的方法，请指导。
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberOutside, FirstPage:=True

changxuegu · 发表于 2011-2-25 10:30

ActiveSheet.PageSetup.RightFooter = "&""黑体,常规""&14&P"

润彩绘真 · 发表于 2011-2-25 14:12

楼上之解好像仍不太对。查了一下，似乎与frame（图文框）有关，敬请高手指点。

szqhb · 发表于 2011-2-25 15:07

通过录制宏的方法应该可以吧

sylun · 发表于 2011-2-25 23:43

可试试如下代码：

Sub test()
With ActiveDocument.Sections(1)
.Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True
With .Footers(wdHeaderFooterPrimary).Range.Frames(1).Range
.InsertAfter "-"
.InsertBefore "-"
.Font.NameAscii = .Font.NameFarEast
.ParagraphFormat.RightIndent = 14
.ParagraphFormat.LeftIndent = 14
End With
End With
End Sub

复制代码

润彩绘真 · 发表于 2011-3-3 10:55

谢谢sylun ，不愧为专家级。就是不一样。

sqhsqhli · 发表于 2011-3-4 09:52

本身已经有加两个短线的样式，因此我的代码是：
Sub test333()
With ActiveDocument.Sections(1)
      .Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True
      .Footers(wdHeaderFooterPrimary).PageNumbers.NumberStyle = wdPageNumberStyleNumberInDash
      With .Footers(wdHeaderFooterPrimary).Range.Frames(1).Range
         .Font.NameAscii = .Font.NameFarEast
         .Font.Size = 14
      End With
End With
End Sub

zhangop9 · 发表于 2012-5-11 17:58

这个做个记号

geryjun · 发表于 2012-5-15 22:49

我也做个记号。

ke3088 · 发表于 2018-1-13 15:41

甚好，甚好

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