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

lpn1983

有没有2007下可用的，按最新公文标准制作的宏啊？

413191246se

楼主的问题应该改为：《如何用VBA设置公文一字线页码》。
sylun 和 sqhsqhli 两位朋友的代码都很不错，可惜没有做到位。
下面我提供 Word 2003 上所用的《公文一字线页码》宏代码，楼上朋友可以试试可否用在 2007 上。

1. Sub 插入页码_公文一字线()
   
2.     Dim s As Section
   
3.     For Each s In ActiveDocument.Sections
   
4.         s.Footers(1).Range.Delete
   
5.         With s.Footers(1).Range.Sections(1).Headers(1).PageNumbers
   
6.             .NumberStyle = wdPageNumberStyleArabic
   
7.             .HeadingLevelForChapter = 0
   
8.             .IncludeChapterNumber = False
   
9.             .ChapterPageSeparator = wdSeparatorHyphen
   
10.             .RestartNumberingAtSection = False
    
11.             .StartingNumber = 0
    
12.         End With
    
13.         s.Footers(1).PageNumbers.Add 2, True
    
14.         With s.Footers(1).Range.Frames(1).Range
    
15.             .Select
    
16.             With Selection
    
17.                 .TypeText Text:=Chr(-24159)
    
18.                 .InsertSymbol Font:="宋体", CharacterNumber:=8212, Unicode:=True
    
19.                 .TypeText Text:=" "
    
20.                 .EndKey 5
    
21.                 .TypeText Text:=" "
    
22.                 .InsertSymbol Font:="宋体", CharacterNumber:=8212, Unicode:=True
    
23.                 .TypeText Text:=Chr(-24159)
    
24.                 .Expand 4
    
25.                 With .Font
    
26.                     .Name = "宋体"
    
27.                     .Size = 14
    
28.                 End With
    
29.                 .ParagraphFormat.CharacterUnitRightIndent = 1.5
    
30.             End With
    
31.         End With
    
32.     Next
    
33.     ActiveWindow.ActivePane.Close
    
34.     ActiveWindow.View.Type = wdPrintView
    
35. End Sub

复制代码

413191246se

如果有页眉横线，请试试下面的代码删除横线：

1. Sub 删除页眉横线()
   
2.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   
3.     Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
   
4.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
   
5. End Sub

复制代码

413191246se

我的宏就是按照2012年公文标准制作的公文一字线页码宏。

公子段

每天进步一点点，学习了

公子段

413191246se 发表于 2018-7-6 00:41
楼主的问题应该改为：《如何用VBA设置公文一字线页码》。
sylun 和 sqhsqhli 两位朋友的代码都很不错，可 ...

厉害了WORD哥

qinhuan66

好好学习天天向上

ldl---

413191246se 发表于 2018-7-6 00:41
楼主的问题应该改为：《如何用VBA设置公文一字线页码》。
sylun 和 sqhsqhli 两位朋友的代码都很不错，可 ...

在2010上试了下，1.没有投入页码，2.没有分奇偶页。