登陆

wps如何批量删除多个文档的页眉页脚和水印

汪棒棒 2021-01-21 2676人围观 ,发现0个评论 wps

wps批量删除多个文档的页眉页脚和水印方法:

1、首先下载wps宏插件,安装。

2、找到开发工具-宏。

wps批量删除多个文档的页眉

3、复制如下代码到wps中:

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

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

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

wps批量删除多个文档的页眉页脚和水印方法

4、回到宏-运行-选择文件夹-运行。

结束。


请发表您的评论
汪棒棒

汪棒棒

我是汪棒棒
580文章数 61评论数
不容错过
Powered By Z-BlogPHP