2024年1月10日发(作者：)

怎样批量删除多个Word文档的页眉页脚

干货！怎样批量删除多个

Word文档的页眉页脚

工作中，特别是代理企业的职工，常常会为

Word 文档增添页眉

页脚，假如页眉页脚不想要了，一个文件删除还好，假如大批文件要

删除，会是很头疼的，由于一个一个办理效率实在太低了，这里供给

一种利用宏批量办理文档页眉页脚的方式，快来学习吧。

批量删除 word 文档的页眉页脚，能够用下边的 vba 程序来实现，

需要注意的是，在批量操作前，请先做好备份。

操作步骤以下：

1、先把需要删除页眉页脚的多个

而后翻开此中一个文档。

word 文档放在一个文件夹下，

2、选择一个文档翻开， 在翻开的文档中， 选择在“视图” 或“工具”( 版本不一样，翻开方式有所差别 ) 菜单中选择“宏”，点击翻开“宏”

怎样批量删除多个Word文档的页眉页脚

3、随后弹出“宏”对话框，在宏名中输入“

Application

”，然

后点击 " 创立 " 按钮（这里我以前测试时已经创立，大家自己创立

一个新的即可）。

怎样批量删除多个Word文档的页眉页脚

随后弹出“ Microsoft visual basic ”设计，在编写处输入以下

代码：

代码内容：

Sub 批量删除文件夹里面全部 Word文档的页眉页脚 ()

Dim Fdlg As FileDialog, Fl

Dim Fso, Fld, Fln, Wk

Set Fdlg = alog(msoFileDialogFolderPicker)

With Fdlg

.Title = "

选摘要办理目标文件夹 " & " —— ( 删除里面全部 Word文档的页眉页

脚 )"

If .Show = -1 Then

MyPath = .SelectedItems(1)

Else

怎样批量删除多个Word文档的页眉页脚

Exit Sub

End If

End With

Set Fso = CreateObject("stemObject")

Set Fld = der(MyPath)

Set Fln =

For Each Wk In Fln

Set myDoc = (FileName:=Fld & "" & )

If pecial <> wdPaneNone Then

(2).Close

End If

If = wdNormalView Or ActiveWindow. _

= wdOutlineView Then

= wdPrintView End If

ew = wdSeekCurrentPageHeader

tory

Unit:=wdCharacter, Count:=1

tory

With aphFormat .Borders(wdBorderLeft).LineStyle

= wdLineStyleNone .Borders(wdBorderRight).LineStyle =

wdLineStyleNone .Borders(wdBorderTop).LineStyle =

wdLineStyleNone

.Borders(wdBorderBottom).LineStyle = wdLineStyleNone

With .Borders

.DistanceFromTop = 1

.DistanceFromLeft = 4

.DistanceFromBottom = 1

.DistanceFromRight = 4

.Shadow = False

End With

End With

With Options

.DefaultBorderLineStyle = wdLineStyleSingle

.DefaultBorderLineWidth = wdLineWidth075pt

.DefaultBorderColor = wdColorAutomatic

End With

If er = True Then

ew = wdSeekCurrentPageFooter

Else

ew = wdSeekCurrentPageHeader

End If

tory

Unit:=wdCharacter, Count:=1

怎样批量删除多个Word文档的页眉页脚

ew = wdSeekMainDocument

ns(1).Footers(1).

PageNumberAlignment:= _

wdAlignPageNumberRight, FirstPage:=True

' 以上能够换成是你自己录制的宏

' C 公共部分的代码

yAlerts = False '

强迫履行“是”

' = True'

强迫履行“否”

'

退出

Next

End Sub

4、输入代码后，封闭窗口返回文档，从头选择在“视图”或“工具”菜单中选择“宏” -- “宏”，在弹出的宏名中选择 " 批量删除 Word页眉页脚 ", 最后点击“运转” --- 确认即可迅速地删除多个 Word页眉页脚。

怎样批量删除多个Word文档的页眉页脚

注意：办理过程中请保持第一个翻开的文档向来处于翻开状态。

样很简单吧，快来试一试吧！更多出色内容，敬请期望！

内容总结

（1）干货

（2）怎样批量删除多个 Word文档的页眉页脚

工作中，特别是代理企业的职工，常常会为 Word 文档增添页眉

页脚，假如页眉页脚不想要了，一个文件删除还好，假如大批文件要

删除，会是很头疼的，由于一个一个办理效率实在太低了，这里供给

一种利用宏批量办理文档页眉页脚的方式，快来学习吧

怎么