快好知 kuaihz

干货!如何批量删除多个Word文档的页眉页脚

干货!如何批量删除多个Word文档页眉页脚

工作中,尤其是代理公司的员工,经常会为Word文档添加页眉页脚,如果页眉页脚不想要了,一个文件删除还好,若是大量文件要删除,会是很头疼的,因为一个一个处理效率实在太低了,这里提供一种利用宏批量处理文档页眉页脚的方式,快来学习吧。

批量删除word文档页眉页脚,可以用下面的vba程序来实现,需要注意的是,在批量操作前,请先做好备份。

操作步骤如下:

1、先把需要删除页眉页脚的多个word文档放在一个文件夹下,然后打开其中一个文档

 

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

1/6

 

3、随后弹出“宏”对话框,在宏名中输入“Application”,然后点击"创建"按钮(这里我之前测试时已经创建,大家自己创建一个新的即可)。

2/6

随后弹出“Microsoftvisual basic”设计,在编辑处输入如下代码:

代码内容:

Sub 批量删除文件夹里面所有Word文档页眉页脚()

Dim Fdlg As FileDialog, Fl

Dim Fso, Fld, Fln, Wk

Set Fdlg = Application.FileDialog(msoFileDialogFolderPicker)

With Fdlg

.Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档页眉页脚)"

If .Show = -1 Then

MyPath = .SelectedItems(1)

Else

3/6

Exit Sub

End If

End With

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Fld = Fso.GetFolder(MyPath)

Set Fln = Fld.Files

For Each Wk In Fln

Set myDoc = Documents.Open(FileName:=Fld & "" & Wk.Name)

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.WholeStory

With Selection.ParagraphFormat

.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 Selection.HeaderFooter.IsHeader = True Then

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Else

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

End If

Selection.WholeStory

Selection.Delete Unit:=wdCharacter, Count:=1

4/6

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _

wdAlignPageNumberRight, FirstPage:=True

" 以上可以换成是你自己录制的宏

" C公共部分的代码

Application.DisplayAlerts = False "强制执行“是”

"ActiveDocument.Saved = True"强制执行“否”

ActiveDocument.Close "退出

Next

End Sub

 

 

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

 

5/6

本站资源来自互联网,仅供学习,如有侵权,请通知删除,敬请谅解!
搜索建议:页眉  页眉词条  干货  干货词条  批量  批量词条  多个  多个词条  删除  删除词条  
办公

 如何快速输入Excel特殊符号?...

办公必备的Excel表格操作,尤其是以后要做领导的,更加需要Excel输入特殊符号的。掌握了方法,只需要1秒钟就能完成。更重要的是,会大大提高工作效率哦!一、快...(展开)

办公

 excel数据整理:网络表格数据...

编按:网络数据整理一直是个难题。导出的网络数据要么是单列的,要么是有一些特殊符号,都需要整理后才能使用。譬如如何把单列数据按属性变成多列数据? Excel新人、...(展开)