读取光标所在页面的页边距页眉页脚参数设置所有节

1478525

1. </blockquote></div><div class="blockcode"><blockquote>Sub SetMarginsAndHeadersToAllSections()
   
2.     Dim myDoc As Document
   
3.     Set myDoc = ActiveDocument
   
4.     Dim cursorSection As section
   
5.     Dim currentSection As section
   
6.     Dim cursorPageSetup As PageSetup
   
7.     Dim headerFooterSetup As HeaderFooter
   
8.     Dim i As Integer
   
9. 
   
10.     ' 获取光标所在节
    
11.     Set cursorSection = myDoc.Application.selection.Sections(1)
    
12.     ' 获取光标所在页面的页边距设置
    
13.     Set cursorPageSetup = cursorSection.PageSetup
    
14.     ' 获取光标所在页面的页眉设置
    
15.     Set headerFooterSetup = cursorSection.Headers(wdHeaderFooterPrimary)
    
16. 
    
17.     ' 遍历文档中的所有节
    
18.     For i = 1 To myDoc.Sections.count
    
19.         Set currentSection = myDoc.Sections(i)
    
20.         ' 检查页面方向
    
21.         If currentSection.PageSetup.Orientation = wdOrientLandscape Then
    
22.             ' 如果是横向，则只改变页边距和页眉页脚，不改变方向
    
23.             With currentSection.PageSetup
    
24.                 .TopMargin = cursorPageSetup.TopMargin
    
25.                 .BottomMargin = cursorPageSetup.BottomMargin
    
26.                 .LeftMargin = cursorPageSetup.LeftMargin
    
27.                 .RightMargin = cursorPageSetup.RightMargin
    
28.             End With
    
29.         Else
    
30.             ' 如果是纵向，则改变页边距、页眉页脚和方向
    
31.             With currentSection.PageSetup
    
32.                 .TopMargin = cursorPageSetup.TopMargin
    
33.                 .BottomMargin = cursorPageSetup.BottomMargin
    
34.                 .LeftMargin = cursorPageSetup.LeftMargin
    
35.                 .RightMargin = cursorPageSetup.RightMargin
    
36.                 .Orientation = cursorPageSetup.Orientation
    
37.             End With
    
38.             
    
39.             
    
40.         End If
    
41.     Next i
    
42. End Sub

复制代码

1478525

不好意思是新手，不太会发布，有些遗漏的，想问这个代码是否正确，或者有什么错误，自己执行了没有错