双栏页码（宏）

413191246se

* 同一页面设置双栏页码，适用于试卷等分栏文档。本宏于 Word2003 下运行通过。

1. Sub 双栏页码()
   
2.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
   
3.     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
   
4.     With Selection
   
5.         .Tables(1).Style = "普通表格"
   
6.         .Tables(1).Select
   
7.         .ParagraphFormat.Alignment = wdAlignParagraphCenter
   
8.         .HomeKey Unit:=wdLine
   
9.         .TypeText Text:="第"
   
10.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
11.         .TypeText Text:="="
    
12.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
13.         .TypeText Text:="Page"
    
14.         .MoveRight Unit:=wdCharacter, Count:=2
    
15.         .TypeText Text:="*2-1"
    
16.         .Fields.ToggleShowCodes
    
17.         .EndKey Unit:=wdLine
    
18.         .TypeText Text:="页，共"
    
19.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
20.         .TypeText Text:="="
    
21.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
22.         .TypeText Text:="NumPages"
    
23.         .MoveRight Unit:=wdCharacter, Count:=2
    
24.         .TypeText Text:="*2"
    
25.         .Fields.ToggleShowCodes
    
26.         .EndKey Unit:=wdLine
    
27.         .TypeText Text:="页"
    
28.         .MoveRight Unit:=wdCell
    
29.         .TypeText Text:="第"
    
30.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
31.         .TypeText Text:="="
    
32.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
33.         .TypeText Text:="Page"
    
34.         .MoveRight Unit:=wdCharacter, Count:=2
    
35.         .TypeText Text:="*2"
    
36.         .Fields.ToggleShowCodes
    
37.         .EndKey Unit:=wdLine
    
38.         .TypeText Text:="页，共"
    
39.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
40.         .TypeText Text:="="
    
41.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
42.         .TypeText Text:="NumPages"
    
43.         .MoveRight Unit:=wdCharacter, Count:=2
    
44.         .TypeText Text:="*2"
    
45.         .Fields.ToggleShowCodes
    
46.         .EndKey Unit:=wdLine
    
47.         .TypeText Text:="页"
    
48.     End With
    
49.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
50.     ActiveWindow.View.TableGridlines = False
    
51. End Sub

复制代码

413191246se

* 请注意：如果复制代码到 VBE 中，代码前有无数个问号（？），只须立即删除此宏，然后新建文档，粘贴代码，全选，将 ^s 全部替换为" "（一个空格），再按“全部替换”，然后全选复制此文档中的代码到 VBE 中即可正常使用。

daibao88

谢谢分享，辛苦了！

413191246se

谢谢楼上朋友！——但我发现，在单位 Win7(32bit)+Office2003 中运行 OK，但在家里 Winxp+Office2003 中运行出错！毛病就在“切换域代码”这句代码，暂时无法解决。如果有哪位朋友使用中出错，请手动或自行寻求解决。

413191246se

***  如果使用 1 楼宏代码出错，请下载下面的试卷模板，包含了双栏页码：
试卷模板A3（双栏页码）Win7.rar (2.61 KB, 下载次数: 18)

2019-5-30 14:49 上传

点击文件名下载附件

413191246se

*** 昨晚用 360 杀毒和查木马后，今日发现《双栏页码》宏在家里使用正常了！现提供 XP 下模板：
试卷模板（双栏页码）Winxp.rar (2.56 KB, 下载次数: 17)

2019-6-1 01:02 上传

点击文件名下载附件