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

润彩绘真

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

changxuegu

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

润彩绘真

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

szqhb

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

sylun

可试试如下代码：

1. Sub test()
   
2.     With ActiveDocument.Sections(1)
   
3.         .Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True
   
4.         With .Footers(wdHeaderFooterPrimary).Range.Frames(1).Range
   
5.             .InsertAfter "-"
   
6.             .InsertBefore "-"
   
7.             .Font.NameAscii = .Font.NameFarEast
   
8.             .ParagraphFormat.RightIndent = 14
   
9.             .ParagraphFormat.LeftIndent = 14
   
10.         End With
    
11.     End With
    
12. End Sub

复制代码

润彩绘真

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

sqhsqhli

本身已经有加两个短线的样式，因此我的代码是：
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

这个做个记号

geryjun

我也做个记号。

ke3088

甚好，甚好