怎麼刪除多個文件頁眉頁腳

1. word怎麼刪除所有頁眉頁腳

首先打開Word文檔，滑鼠雙擊頁眉進入編輯模式，點擊刪除頁眉，滑鼠雙擊頁腳進入編輯模式，點擊頁腳，點擊刪除頁腳，點擊關閉頁眉和頁腳即可。

2. WPS文檔怎麼批量或者全部刪除掉文件的頁眉和頁腳

批量刪除word文檔的頁眉頁腳，可以用下面的vba程序來實現，需要注意的是，在批量操作前，先做好備份。
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

3. 如何刪除所有頁眉頁腳

首先打開word-然後點擊「設計」-接著點擊「刪除頁眉」和「刪除頁腳」-然後點擊「關閉頁眉和頁腳」即可。

4. wps怎麼刪除所有頁面的頁眉頁腳

1、首先打開欲刪除頁眉頁腳的文件，假設現在打開的就是辦公表格，裡面的數據就是要改的東西。

5. word怎麼刪除全部頁眉頁腳

• 打開文檔，雙擊「頁眉區域」。

  

• 6

  總結如下。

6. 頁眉頁腳怎麼全部刪除

雙擊頁眉頁腳區域，選擇菜單欄上面頁腳工具，有個刪除頁腳，即可。

7. 如何批量刪除所有word文檔的頁眉頁腳

• 用word2010打開需要刪除頁眉、頁腳和水印信息的文檔，然後點擊【文件】菜單

  

注意事項

• 在文檔檢查器中，默認是全選，但是如果沒必要刪除其它信息，則只選「頁眉、頁腳水印」一項，不選其它選項

8. 怎樣去除所有頁眉頁腳

在實際工作中，我們時常需要添加頁眉頁腳，那如果不需要，該如何刪除呢？怎樣批量刪除多個文檔的頁眉頁腳呢？本期與大家分享相應的技巧。

1、刪除單個文檔的頁眉頁腳

雙擊頁眉處，進入編輯狀態，然後選中文本內容按刪除鍵，之後再點擊開始——字體——清除所有格式清除頁眉橫線，最後關閉頁眉和頁腳即可。

PS：想了解更多刪除頁眉橫線的刪除方法，可以查看《Word文檔中間的橫線，怎麼刪除不了？》。

2、刪除多個文檔的頁眉頁腳

如何批量刪除上百個Word文檔的頁眉頁腳呢？

這里需要借用VBA來實現。

新建一個空白文檔，點擊開發工具——Visual Basic，在打開的界面中點擊插入——模塊，然後復制以下代碼：

Sub 批量刪除頁眉頁腳()

'此代碼功能為列出指定文件夾中所有選取的WORD文件全路徑名

Dim myDialog As FileDialog, oDoc AsDocument, oSec As Section

Dim oFile As Variant, myRange As Range

On Error Resume Next

'定義一個文件夾選取對話框

Set myDialog =Application.FileDialog(msoFileDialogFilePicker)

With myDialog

.Filters.Clear '清除所有文件篩選器中的項目

.Filters.Add "所有Word文件", "*.doc,*.docx", 1 '增加篩選器的項目為所有Word文件

.AllowMultiSelect = True '允許多項選擇

If .Show = -1 Then '確定

For Each oFile In .SelectedItems '在所有選取項目中循環

Set oDoc =Word.Documents.Open(FileName:=oFile, Visible:=False)

For Each oSec In oDoc.Sections '文檔的節中循環

Set myRange =oSec.Headers(wdHeaderFooterPrimary).Range

myRange.Delete '刪除頁眉中的內容

myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle= wdLineStyleNone '段落下邊框線

Set myRange =oSec.Footers(wdHeaderFooterPrimary).Range

myRange.Delete '刪除頁腳中的內容

Next

oDoc.Close True

Next

End If

End With

End Sub

點擊運行，之後會跳出相應的對話框，然後選擇要清除的文檔打開即可批量刪除頁眉頁腳。

313閱讀
搜索
word中批量刪除回車
一鍵去掉word頁眉橫線
批量刪除多頁內容word
頁眉橫線怎麼徹底刪除
word怎麼把頁眉刪掉
批量刪除頁眉頁腳