利用宏批量刪除多個(gè)Word頁眉頁腳

1、精選優(yōu)質(zhì)文檔-傾情為你奉上利用宏批量刪除多個(gè)Word頁眉頁腳有許多人剛接觸WORD的新手，常常會(huì)遇到的問題就是怎樣刪除頁眉頁腳，當(dāng)然一個(gè)Word里面刪除頁眉頁腳不難，但有幾百多個(gè)Word里面都有頁眉頁腳要你刪除，那就難到不少人了，下面將針對(duì)這一問題，看看我是怎么利用宏批量刪除多個(gè)Word頁眉頁腳，我獻(xiàn)丑了工具/原料· 運(yùn)行環(huán)境WinXP/Vista/Win7/Win8· Word2003方法/步驟1. 假如我手上有500個(gè)word文檔需要?jiǎng)h除頁眉頁腳2. 先把需要?jiǎng)h除頁眉頁腳的500個(gè)word文檔放在一個(gè)文件夾下，然后打開其中一個(gè)文檔3. 在打開的文檔中，選擇在“工具”菜單

2、中選擇“宏”-“宏”4. 隨后彈出“宏”對(duì)話框，在宏名中輸入"Application"，最后點(diǎn)擊"創(chuàng)建"按鈕5. 隨后彈出“Microsoft visual basic”設(shè)計(jì)，在編輯處輸入如下代碼：Sub 批量刪除Word頁眉頁腳()  Application.ScreenUpdating = False  Dim MyPath As String, i As Integer, myDoc As Document  With Application.FileDialog(msoFileDialogFolderPicker)&

3、#160;   .Title = "選擇要處理目標(biāo)文件夾" & "(刪除里面所有Word文檔的頁眉頁腳)"    If .Show = -1 Then      MyPath = .SelectedItems(1)    Else      Exit Sub    End If  End With  With Application.FileSearch    .LookIn =

4、 MyPath    .FileType = msoFileTypeWordDocuments    If .Execute > 0 Then      For i = 1 To .FoundFiles.Count        Set myDoc = Documents.Open(FileName:=.FoundFiles(i)      ' B可以替換的宏' 以下是處理格式所錄制的宏，可根據(jù)所需錄制If ActiveWindow.

5、View.SplitSpecial <> wdPaneNone Then        ActiveWindow.Panes(2).Close    End If    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _        ActivePane.View.Type = wdOutlineView Then        Ac

6、tiveWindow.ActivePane.View.Type = wdPrintView    End If    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader    Selection.WholeStory    Selection.Delete Unit:=wdCharacter, Count:=1    Selection.WholeStory    With Selection.Par

7、agraphFormat        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone        .Borders(wdBorderRight).LineStyle = wdLineStyleNone        .Borders(wdBorderTop).LineStyle = wdLineStyleNone        .Borders(wdBorderBottom).L

8、ineStyle = wdLineStyleNone        With .Borders            .DistanceFromTop = 1            .DistanceFromLeft = 4            .DistanceFromBottom = 1            .

9、DistanceFromRight = 4            .Shadow = False        End With    End With    With Options        .DefaultBorderLineStyle = wdLineStyleSingle        .DefaultBorderLineWidth = wdLineWidth07

10、5pt        .DefaultBorderColor = wdColorAutomatic    End With    If Selection.HeaderFooter.IsHeader = True Then        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter    Else        ActiveWindow

11、.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 Pa

12、geNumberAlignment:= _        wdAlignPageNumberRight, FirstPage:=True' 以上可以換成是你自己錄制的宏' C公共部分的代碼Application.DisplayAlerts = False '強(qiáng)制執(zhí)行“是”'ActiveDocument.Saved = True'強(qiáng)制執(zhí)行“否”ActiveDocument.Close '退出      Next    End If  End With  Application.ScreenUpdating = True  MsgBox "所選Word文檔的頁眉頁腳已刪除！", 64, "批量處理完畢"End SubSu