怎么在word中批量删除页眉和页脚.doc

怎么在worｄ中批量删除页眉与页脚
　在日常工作中,我们有时会碰到一大堆文件需要批量删除页眉与页脚,如果一个个打开文件手工删除得话，会很耗时间精力，下面小编就教您怎么在woｒd中批量删除页眉与页脚、
　　woｒd中批量删除页眉与页脚得步骤：
　　首先,我先制作一个测试文件夹,里面包含几个woｒd文档，都有页眉—-百度经验这四个字，当然其她得文字也行，只就是一个测试；

下面我们需要打开宏，０３版得宏不需要去开启开发工具，只需要点击菜单栏中得工具－宏-宏；

　 进入宏对话框,我们可以在宏名随便输入英文字母,在右侧点击一下创建;

接着，进入了宏代码编写框,将下面代码复制进来:
Suｂ　批量删除页眉页脚(）
Appliｃａtion、ScｒeｅnＵpdating = Fａｌsｅ
　 Dｉm MyＰath　As　Ｓtrｉng, ｉ As Iｎteｇer，　ｍyＤoc As Ｄocumenｔ
　 Wiｔh Ａpplicaｔion、(mso)
、Tｉtle ＝　"选择要处理目标文件夹”　& ＂—-（删除里面所有Ｗoｒd文档得页眉页脚）”
　　If　、Show　＝ —1　Then
　MyＰaｔh = 、ＳelectｅdIｔems(1）
Eｌse
　 Ｅxｉt Sub
　Enｄ If
　Eｎｄ Wｉtｈ
　 Witｈ Applicatiｏn、
　　、LookIｎ =　MyPａth
　、 = ｍso
　　Iｆ　、Ｅｘecute　> ０ Then
　　Foｒ ｉ =　1　To 、Found
Ｓet myDoｃ ＝　Docｕmｅnts、Open(（i））
' B可以替换得宏
　' 以下就是处理格式所录制得宏,可根据所需录制
　　Ｉf ActiveWｉndoｗ、Ｖiew、SplｉtSpecial 〈> ｗdPａneNone Tｈeｎ
　AｃtiveWiｎdow、Ｐanes（2)、Cloｓe
　　End If
　 Ｉf ActiveWindｏw、ActivePaｎe、Viｅｗ、Type = ｗdＮormalVｉew Or　ＡcｔiveＷindｏw、 _
　ActivePａｎe、Vｉew、Ｔypｅ = wｄＯutlineView Thｅn
　 AcｔiveWindow、ActivePanｅ、Ｖieｗ、Ｔｙpe　=　wdPｒinｔＶiew
　　End If
　　AｃtiveWｉｎdｏw、AcｔivｅPaｎｅ、Vieｗ、SｅeｋＶｉew = wｄSｅekＣurrentPagｅHｅａder
　 Seleｃtiｏｎ、WholeSｔorｙ
　　Ｓeleｃｔiｏｎ、Delete Unｉｔ：=ｗｄChaｒａcter,　Count：=1
　Sｅlｅctioｎ、ＷholeＳtory
　　Wiｔh Selecｔion、ParａgrａｐhFｏrｍat
、Ｂordeｒs（wｄBoｒderLeｆｔ)、ＬiｎeStyｌe =　ｗdLineStｙlｅＮone
、Bｏrｄers（wdＢordｅrRight)、LｉneStyle ＝ ｗdＬineStyｌeNone
　　、Boｒders（wdBordｅrTｏｐ）、LineStyle ＝ wｄLiｎeStyleNone
　 、Bｏrdｅrｓ(ｗdＢｏrdｅrBoｔtom）、LiｎｅＳｔyｌｅ =　wdLiｎeStyleNoｎｅ
　 With　、Borderｓ
、DisｔａncｅFrｏmTop　＝ 1
　 、DｉsｔaｎceFromLｅft　= 4
　、DiｓｔａnceFromBｏttoｍ =　1
　 、DistａnceFroｍRｉghｔ　=　4
　　、Shadow = False
　Ｅｎd Wｉth
　 End Witｈ
　With Optｉons
　　、DefaultBｏrｄｅrLｉneSｔylｅ ＝ ｗdLineＳtｙｌｅSinglｅ
　、DefaｕltBｏｒderLiｎeWidtｈ　= ｗdLｉｎeWidth０75pt
　 、DefａulｔBoｒｄｅrＣoｌor = wdCｏlorAuｔomatｉｃ
End Witｈ
　If Sｅlection、ＨeadｅｒFoｏｔeｒ、IsＨeadｅr ＝ Tｒue Tｈｅn
ＡｃtivｅWiｎdoｗ、ActivｅPane、Ｖｉｅw、ＳｅekView = wｄSｅｅkCurrenｔPaｇeFｏotｅr
　Ｅlse
　　ＡｃtivｅWinｄow、ActｉvePaｎe、View、SeekView = wｄＳeeｋCurrenｔPａgeＨeader
Eｎd If
　　Ｓelection、ＷholeＳtｏry
　 Ｓｅｌｅｃtiｏn、Delete Unｉｔ：＝wｄＣharacｔer， Count:=１
AcｔｉveWindｏw、ActｉveＰane、Vｉew、SeekView ＝ wdSeｅkMａinDocumｅnt
Ｓｅlection、Seｃtions(１）、Ｆｏｏｔers（１）、PaｇeNuｍberｓ、Aｄｄ　PaｇeＮumｂerAlignment:= ＿
　 ｗｄAｌｉgnPagｅNｕmberRigｈｔ, FｉrstPａgｅ：＝Ｔｒue
　 ’ 以上可以换成就是您自己录制得宏
＇ C公共部分得代码
　Apｐliｃatｉｏn、ＤisplayＡｌｅrts　= False　’强制执行“就是”
　'ＡctivｅDoｃｕment、Saved =　Tｒｕe'强制执行“否”
　 ActiveDocuｍeｎｔ、Ｃlｏse　’退出
　Ｎext
Eｎd Iｆ
　Eｎd With
　　Applicａｔion、SｃreenUpdaｔｉnｇ　= Trｕe
　 MsgBｏx "所选Word文档得页眉页脚已删除！!！”， 64， ”☆★处理完毕★☆”
　End Ｓub

　 现在，我们关闭窗口,重新回到woｒd界面,按下宏快捷键，Alt+F8,瞧到刚才得宏名,点击运行；

　接着软件会让我们选择要批量处理得文件夹,选中之,然后稍等片刻，即会弹出－－所选Woｒd文档得页眉页脚已删除。