批量删除Word文档内，所有页眉页脚上的文本框及框内的文字

相见是缘8

413191246se 发表于 2021-11-2 16:55
相见，你现在的附件有两个了，到底以哪个为准？请说明一下。

老师好！
11楼的为准！（其实两个附件，都是从我弟弟传给我的同一个文档上剪切的，只是文档的长短不一样。）

413191246se

* 相见，我将 10 楼代码加上了《删除制表符》代码，请试试：（你所见的横线并不在页眉中而在正文中）

1. Sub aaaa删除页眉里面的文本框1103()
   
2.     Dim oDoc As Document
   
3.     Set oDoc = Word.ActiveDocument
   
4.     Dim oSec As Section
   
5.     With oDoc
   
6.         '先遍历所有的节对象
   
7.         For Each oSec In .Sections
   
8.             With oSec
   
9.                 With .Headers(wdHeaderFooterPrimary)
   
10.                    .Range.Delete
    
11.                 End With
    
12.                 With .Headers(wdHeaderFooterEvenPages)
    
13.                     .Range.Delete
    
14.                 End With
    
15.                 .Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
16.                 .Headers(wdHeaderFooterEvenPages).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
17.             End With
    
18.         Next
    
19.     End With
    
20. 
    
21. '删除页眉横线
    
22.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
23.     Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
24.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
25. 
    
26. '删除制表符
    
27.     ActiveDocument.Content.Find.Execute "^t", , , 0, , , , , , "", 2
    
28. End Sub

复制代码

相见是缘8

413191246se 发表于 2021-11-3 16:58
* 相见，我将 10 楼代码加上了《删除制表符》代码，请试试：（你所见的横线并不在页眉中而在正文中）

老师好！
用你 22 楼的代码，好像还是不成，删后附件同样第4页、11页的横线还在。