求大神精简代码啊

ymngyf

昨天看到论坛的分享贴，改写的代码。原链接是http://club.excelhome.net/thread-1572930-1-1.html
改写后实现1、页码是否奇偶页不同，2、是否顺延加页码的功能。

感觉代码有些繁琐，求论坛里精简。不会引用函数啊。

1. Sub 分节页码()
   
2.     Dim i&, j&, k&, l&
   
3.    
   
4. 
   
5. If MsgBox("是：奇偶页码相同（否：奇偶页码不同）？", 4 + 48) = vbYes Then l = 1
   
6. 
   
7.    
   
8.   If l = 1 Then
   
9.    
   
10.     If MsgBox("是：页码每节顺延（否：页码每节初始）？", 4 + 48) = vbNo Then k = 1
    
11. 
    
12. 
    
13.     With ActiveDocument
    
14.         j = .Sections.count
    
15. 
    
16.         '第1节：封面，无页码！
    
17.         With .Sections(1)
    
18.             .Footers(wdHeaderFooterPrimary).Range.Delete
    
19.             .Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
20.         End With
    
21. 
    
22.         '第2节：目录，有页码！格式：罗马数字
    
23.         With .Sections(2).Footers(wdHeaderFooterPrimary)
    
24.             .LinkToPrevious = False
    
25.             .Range.Delete
    
26.             With .PageNumbers
    
27.                 .NumberStyle = wdPageNumberStyleUppercaseRoman
    
28.                 .RestartNumberingAtSection = True
    
29.                 .StartingNumber = 1
    
30.                 .Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
    
31.             End With
    
32.             '*********************************
    
33.             With .Range.Font
    
34.                 .NameAscii = "Times New Roman"
    
35.                 .Size = 9
    
36.                 .Bold = False
    
37.                 .ColorIndex = wdBlack
    
38.             End With
    
39.         End With
    
40. 
    
41.         '第3节：正文，有页码！格式：-1-
    
42.         For i = 3 To j
    
43.             With .Sections(i).Footers(wdHeaderFooterPrimary)
    
44.                 If k = 1 Then
    
45.                     .LinkToPrevious = False
    
46.                 Else
    
47.                     .LinkToPrevious = True
    
48.                 End If
    
49.                 .Range.Delete
    
50.                 With .PageNumbers
    
51.                     .NumberStyle = wdPageNumberStyleNumberInDash
    
52.                     If k = 1 Then
    
53.                         .RestartNumberingAtSection = True
    
54.                     Else
    
55.                         .RestartNumberingAtSection = False
    
56.                     End If
    
57.                     .StartingNumber = 1
    
58.                     .Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
    
59.                 End With
    
60.                 '*********************************
    
61.                 With .Range.Font
    
62.                      .NameAscii = "Times New Roman"
    
63.                      .Size = 9
    
64.                      .Bold = False
    
65.                      .ColorIndex = wdBlack
    
66.                 End With
    
67.             End With
    
68.         Next
    
69.         If k = 0 Then
    
70.             With .Sections(3).Footers(wdHeaderFooterPrimary)
    
71.                 .LinkToPrevious = False
    
72.                 With .PageNumbers
    
73.                     .RestartNumberingAtSection = True
    
74.                     .StartingNumber = 1
    
75.                 End With
    
76.             End With
    
77.         End If
    
78.     End With
    
79.    
    
80. Else
    
81.   
    
82.       If MsgBox("是否顺延页码（否则每节重排）？", 4 + 48) = vbNo Then k = 1
    
83. 
    
84. 
    
85.     With ActiveDocument
    
86.         j = .Sections.count
    
87.         
    
88.     .Sections.PageSetup.OddAndEvenPagesHeaderFooter = False
    
89. 
    
90. 
    
91.         '第1节：封面，无页码！
    
92.         With .Sections(1).Footers(wdHeaderFooterPrimary)
    
93.             .Range.Delete
    
94.             .Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
95.         End With
    
96.         
    
97.          With .Sections(1).Footers(wdHeaderFooterPrimary)
    
98.             .Range.Delete
    
99.             .Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
100.         End With
     
101. 
     
102.         '第2节：目录，有页码！格式：罗马数字
     
103.         With .Sections(2).Footers(wdHeaderFooterPrimary)
     
104.             .LinkToPrevious = False
     
105.             .Range.Delete
     
106.             With .PageNumbers
     
107.                 .NumberStyle = wdPageNumberStyleUppercaseRoman
     
108.                 .RestartNumberingAtSection = True
     
109.                 .StartingNumber = 1
     
110.                 .Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True
     
111.             End With
     
112.             '*********************************
     
113.             With .Range.Font
     
114.                 .NameAscii = "Times New Roman"
     
115.                 .Size = 9
     
116.                 .Bold = False
     
117.                 .ColorIndex = wdBlack
     
118.             End With
     
119.         End With
     
120. 
     
121.         '第3节：正文，有页码！格式：-1-
     
122.         For i = 3 To j
     
123.             With .Sections(i).Footers(wdHeaderFooterPrimary)
     
124.                 If k = 1 Then
     
125.                     .LinkToPrevious = False
     
126.                 Else
     
127.                     .LinkToPrevious = True
     
128.                 End If
     
129.                 .Range.Delete
     
130.                 With .PageNumbers
     
131.                     .NumberStyle = wdPageNumberStyleNumberInDash
     
132.                     If k = 1 Then
     
133.                         .RestartNumberingAtSection = True
     
134.                     Else
     
135.                         .RestartNumberingAtSection = False
     
136.                     End If
     
137.                     .StartingNumber = 1
     
138.                     .Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True
     
139.                 End With
     
140.                 '*********************************
     
141.                 With .Range.Font
     
142.                     .NameAscii = "Times New Roman"
     
143.                     .Size = 9
     
144.                     .Bold = False
     
145.                     .ColorIndex = wdBlack
     
146.                 End With
     
147.             End With
     
148.         Next
     
149.         If k = 0 Then
     
150.             With .Sections(3).Footers(wdHeaderFooterPrimary)
     
151.                 .LinkToPrevious = False
     
152.                 With .PageNumbers
     
153.                     .RestartNumberingAtSection = True
     
154.                     .StartingNumber = 1
     
155.                 End With
     
156.             End With
     
157.         End If
     
158.     End With
     
159.   
     
160.   
     
161.   
     
162.   End If
     
163.       
     
164. End Sub

复制代码

413191246se

楼主，你有什么需求？请详细说一说，如果有附件更好。