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

相见是缘8 · 发表于 2021-10-26 11:34

本帖最后由相见是缘8 于 2021-10-26 11:38 编辑

请老师们帮忙写个代码批量删除它。万分感谢！

图中红箭头所指的就是。
详见附件！

jiangxiaoyun · 发表于 2021-10-26 15:19

Sub 删除页眉里面的文本框()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oSec As Section
With oDoc
      '先遍历所有的节对象
      For Each oSec In .Sections
         With oSec
            With .Headers(wdHeaderFooterPrimary)
               .Range.Delete
            End With
            With .Headers(wdHeaderFooterEvenPages)
         .Range.Delete
         End With
         End With
      Next
End With
End Sub

根据上传文件能删除

相见是缘8 · 发表于 2021-10-27 06:46

jiangxiaoyun 发表于 2021-10-26 15:19
Sub 删除页眉里面的文本框()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument

老师好！
感谢援手！
可以删除了，可发现删除后，还有一条长横线和上下各有一个段落符，可以一起删掉吗？
另外，问一下老师，手动查找文档正文中的文本框，它的代表符号是什么？

jiangxiaoyun · 发表于 2021-10-27 12:21

设置一下页脚地段距离，变成0就没有横线的了。
代码就不搞了，我对word也不熟悉啊。

413191246se · 发表于 2021-10-27 22:38

相见：你好！——在蒋老师的代码中加入一句代码即可删除页眉横线；至于回车符只须隐藏编辑标记即可。无需删除，恐怕也删除不了。

Sub aaaa删除页眉里面的文本框222()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oSec As Section
With oDoc
'先遍历所有的节对象
For Each oSec In .Sections
With oSec
With .Headers(wdHeaderFooterPrimary)
.Range.Delete
End With
With .Headers(wdHeaderFooterEvenPages)
.Range.Delete
End With
'删除页眉横线
.Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End With
Next
End With
End Sub

复制代码

********手动查找文本框，我也不清楚。下面代码请在 VBE 中按 F8 逐步执行，可以找到文本框。

Sub aaaa_TextBox()
MsgBox "共有图形 = " & ActiveDocument.Shapes.Count & " 个！", 0 + 48
Dim s As Shape
For Each s In ActiveDocument.Shapes
If s.Type = 17 Then s.Select
Stop
Next
End Sub

复制代码

相见是缘8 · 发表于 2021-10-28 09:20

jiangxiaoyun 发表于 2021-10-27 12:21
设置一下页脚地段距离，变成0就没有横线的了。
代码就不搞了，我对word也不熟悉啊。

老师好！
好！感谢！
你以帮了我大忙，谢谢！

相见是缘8 · 发表于 2021-10-28 09:20

413191246se 发表于 2021-10-27 22:38
相见：你好！——在蒋老师的代码中加入一句代码即可删除页眉横线；至于回车符只须隐藏编辑标记即可。无需 ...

老师好！
好久不见！
你的代码我测试了，好像删不干净，还有横线。

相见是缘8 · 发表于 2021-10-28 09:47

413191246se 发表于 2021-10-27 22:38
相见：你好！——在蒋老师的代码中加入一句代码即可删除页眉横线；至于回车符只须隐藏编辑标记即可。无需 ...

老师好！
能不能让这个代码找到文本框后，处于选中状态或让它变色？好逐个查看或处理！

413191246se · 发表于 2021-10-29 00:46

相见，必须在 VBE 中按 F8 一步一步地逐步运行此宏，才能选中，在 Word 界面是不能选中的。

413191246se · 发表于 2021-10-29 01:03

相见，请再试试：

Sub aaaa删除页眉里面的文本框333()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oSec As Section
With oDoc
'先遍历所有的节对象
For Each oSec In .Sections
With oSec
With .Headers(wdHeaderFooterPrimary)
.Range.Delete
End With
With .Headers(wdHeaderFooterEvenPages)
.Range.Delete
End With
.Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Headers(wdHeaderFooterEvenPages).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End With
Next
End With
' Sub 删除页眉横线()
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

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

评分