word 2013有没办法一次性删除所有页眉?多谢!!

clintonus

word 2013,  每页的页眉内容都不同, 直接双击--编辑--删除,发现别的页还都在.有没办法一次性删除所有页眉?多谢!!

hhjjpp

如果没有分节符的话，就一删俱删！
普通视图找分节符，每节操作一次即可！

loquat

1. Sub 删除页眉()
   
2. On Error Resume Next
   
3.     Dim i&, m&, n&: m = Selection.Start: n = Selection.End
   
4.     Application.ScreenUpdating = False
   
5.     Selection.HomeKey wdStory
   
6.     For i = 1 To ActiveDocument.Sections.Count
   
7.         Application.Run "ViewHeader"
   
8.         If i <> 1 Then Application.Run "ShowNextHeaderFooter"
   
9.         Selection.WholeStory: Selection.Delete
   
10.     Next
    
11.     Application.Run "ViewMasterDocument"
    
12.     Application.ScreenUpdating = True
    
13.     ActiveDocument.Range(m, n).Select
    
14. End Sub

复制代码

loquat

精简一下，使用内置命令

1. Sub 删除页眉()
   
2.     Dim i&, m&, n&
   
3.     m = Selection.Start: n = Selection.End
   
4.     Application.ScreenUpdating = False
   
5.     For i = 1 To ActiveDocument.Sections.Count
   
6.         Selection.GoTo what:=wdGoToSection, which:=wdGoToAbsolute, Count:=i
   
7.         Application.Run "RemoveHeader"
   
8.     Next
   
9.     Application.ScreenUpdating = True
   
10.     ActiveDocument.Range(m, n).Select
    
11. End Sub

复制代码

clintonus

loquat 发表于 2014-1-24 14:59
精简一下，使用内置命令

试了下还是删不干净. 看来得手工了.
多谢!!

loquat

1. Sub 删除页眉1()
   
2. Dim t: t = Timer
   
3.     Dim i&, m&, n&, j%
   
4.     m = Selection.Start: n = Selection.End
   
5.     j = ActiveDocument.Sections.Count
   
6.     Application.ScreenUpdating = False
   
7.     Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
   
8.     For i = 1 To j
   
9.         Application.Run "RemoveHeader"
   
10.         Application.Run "GoToNextSection"
    
11.     Next
    
12.     Application.ScreenUpdating = True
    
13.     ActiveDocument.Range(m, n).Select
    
14. Debug.Print Timer - t
    
15. End Sub

复制代码

效率比上面的可能低一点点。

loquat

我使用的软件版本是2007，估计是因为没有考虑不同软件版本兼容性的原因吧。呵呵额

deer33

很少有文档每页都设置分节符吧，应该删几次就可以把页眉页脚的删掉了

handsomcao

loquat 发表于 2014-1-24 15:20
效率比上面的可能低一点点。

帮我大忙了