怎样删除word文档页眉和页脚中的段落符及句号？

相见是缘8

请那位老师指教一下，谢谢！

shenjianrong163

1. Sub test()
   
2.     Dim delRange As Range
   
3.     Dim oSec As Section
   
4.     For Each oSec In ActiveDocument.Sections '文档的节中循环
   
5.         Set delRange = oSec.Headers(wdHeaderFooterPrimary).Range '定位到页眉
   
6.         delRange.Delete '删除页眉
   
7.         delRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下边框线
   
8.         Set delRange = oSec.Footers(wdHeaderFooterPrimary).Range '定位到页脚
   
9.         delRange.Delete '删除页脚
   
10.     Next
    
11.     '以下潵清除页眉回车符（先删除分节符和分页符才生效）
    
12.     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    
13.         ActiveWindow.Panes(2).Close
    
14.     End If
    
15.     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    
16.         ActivePane.View.Type = wdOutlineView Then
    
17.         ActiveWindow.ActivePane.View.Type = wdPrintView
    
18.     End If
    
19.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
20.     Selection.WholeStory
    
21.     Selection.Delete Unit:=wdCharacter, Count:=1
    
22.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
23. End Sub

复制代码

相见是缘8

shenjianrong163 发表于 2021-3-20 22:51

老师好！

感谢你的代码，运行你的代码后，以删除了文档页眉和页脚中的段落符及句号，但多了一根横线出来，老师有不有办法同时也把它去掉？请老师再援手，谢谢！

shenjianrong163

相见是缘8 发表于 2021-3-21 06:38
老师好！感谢你的代码，运行你的代码后，以删除了文档页眉和页脚中的段落符及句号，但多了一根横线出来， ...

上传附件看看。

413191246se

* 相见：我之所以没有回答你这个问题，是因为，我觉得，你这个问题就是动一动手按删除键即可的问题，其实根本不是问题。下面是删除页眉横线代码：
Sub DeleteHeader()
    ActiveDocument.Sections(1).Headers(1).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End Sub

相见是缘8

shenjianrong163 发表于 2021-3-21 11:38
上传附件看看。

老师好！

请你左键点击文档内，页与页之间的分割线，就可看到页眉和页脚中的段落符及句号，昨天（试了多次）运行你给的代码后，可删掉页眉和页脚中的段落符及句号，但会多出一根横线来。

今天奇怪了，运行你的代码报错，不知什么原因运行不了，请看图：

相见是缘8

413191246se 发表于 2021-3-21 22:57
* 相见：我之所以没有回答你这个问题，是因为，我觉得，你这个问题就是动一动手按删除键即可的问题，其实根 ...

感谢老师！
因我有该问题的文档很长，也有好多个，手动删除……！
由于今天“shenjianrong163”老师给的代码，不知什么原因突然运行不了，你给的“删除页眉横线”代码，还试不了，等排除问题后再试。

shenjianrong163

相见是缘8 发表于 2021-3-22 07:36
老师好！请你左键点击文档内，页与页之间的分割线，就可看到页眉和页脚中的段落符及句号，昨天（试了多次 ...

我这儿能运行，去掉后半部分的代码就没有模线了。

1. Sub test()
   
2.     Dim delRange As Range
   
3.     Dim oSec As Section
   
4.     For Each oSec In ActiveDocument.Sections '文档的节中循环
   
5.         Set delRange = oSec.Headers(wdHeaderFooterPrimary).Range '定位到页眉
   
6.         delRange.Delete '删除页眉
   
7.         delRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下边框线
   
8.         Set delRange = oSec.Footers(wdHeaderFooterPrimary).Range '定位到页脚
   
9.         delRange.Delete '删除页脚
   
10.     Next
    
11. End Sub

复制代码

shenjianrong163

相见是缘8 发表于 2021-3-22 07:36
老师好！请你左键点击文档内，页与页之间的分割线，就可看到页眉和页脚中的段落符及句号，昨天（试了多次 ...

或者将两部分代码分开运行：

1. Sub test()
   
2.     Dim delRange As Range
   
3.     Dim oSec As Section
   
4.     For Each oSec In ActiveDocument.Sections '文档的节中循环
   
5.         Set delRange = oSec.Headers(wdHeaderFooterPrimary).Range '定位到页眉
   
6.         delRange.Delete '删除页眉
   
7.         delRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone '段落下边框线
   
8.         Set delRange = oSec.Footers(wdHeaderFooterPrimary).Range '定位到页脚
   
9.         delRange.Delete '删除页脚
   
10.     Next
    
11. End Sub
    
12. 
    
13. Sub 清除页眉回车符()
    
14.     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    
15.         ActiveWindow.Panes(2).Close
    
16.     End If
    
17.     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    
18.         ActivePane.View.Type = wdOutlineView Then
    
19.         ActiveWindow.ActivePane.View.Type = wdPrintView
    
20.     End If
    
21.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
22.     Selection.WholeStory
    
23.     Selection.Delete Unit:=wdCharacter, Count:=1
    
24.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
25. End Sub

复制代码

晨晓之黎

相见是缘8 发表于 2021-3-22 07:36
老师好！请你左键点击文档内，页与页之间的分割线，就可看到页眉和页脚中的段落符及句号，昨天（试了多次 ...

有报错，请尝试重新关闭文件再打开，再运行就好了！