分节：目录、封面、正文

413191246se

1. Sub Section_DirectoryCover()
   
2. '分节：目录/封面/正文
   
3.     If Documents.Count = 0 Then Documents.Add
   
4.     ActiveDocument.Range(0, 0).InsertBreak Type:=wdSectionBreakNextPage
   
5.     ActiveDocument.Range(0, 0).InsertBefore Text:="目  录" & vbCr & vbCr & vbCr
   
6.     ActiveDocument.Range(0, 0).InsertBreak Type:=wdSectionBreakNextPage
   
7.     ActiveDocument.Range(0, 0).InsertBefore Text:="封面" & vbCr & vbCr & vbCr
   
8. 
   
9.     ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Delete
   
10. 
    
11.     With ActiveDocument.Sections(2).Footers(1)
    
12.         .LinkToPrevious = False
    
13.         With .PageNumbers
    
14.             .NumberStyle = wdPageNumberStyleUppercaseRoman
    
15.             .RestartNumberingAtSection = True
    
16.             .StartingNumber = 1
    
17.             .Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=True
    
18.         End With
    
19.     End With
    
20. 
    
21.     With ActiveDocument.Sections(3).Footers(1)
    
22.         .LinkToPrevious = False
    
23.         With .PageNumbers
    
24.             .NumberStyle = wdPageNumberStyleNumberInDash
    
25.             .RestartNumberingAtSection = True
    
26.             .StartingNumber = 1
    
27.         End With
    
28.     End With
    
29.    
    
30.     ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
31. End Sub

复制代码

vbee

谢谢分享，

朔方

谢谢分享a