利用宏批量删除多个Word页眉页脚

1、Word页眉页脚利用宏批量删除多个WordWORD有许多人刚接触的新手，常常会遇到的问题就是怎样删除页眉页脚，当然个里面都 有页眉页脚要你删除，那就难到不少人里面删除页眉页脚不难，但有几百多个Word Word页眉页 脚，我献丑了心下面将针对这问题，看看我是怎么利用宏批量删除多个 原料工具/WinXP/Vista/Win7/Win8 运行环境?Word2003,方法/步骤 文档需要删除页眉页脚word500 1.假如我手上有个先把需要删除页眉页脚的5002.个word文档放在个文件夹下，然后打开其中个文档let，* Irt *C善新e 么& c? K*f Jir XR xt xt M5

2、 vs n e。f xq ty ” Xrt Kt «t ” eiM.Jl f u kt，r >n 1 wi，xe o it* xn *s »/»« i xc ” « «w *« r»C' f* 8MM I »r4 10 a »*t rrf rt «t * w，smc、rw * i。r»»t > j，fsih rt»« ze03 KN " M !1« I- E mc" rU)K*«t e，

3、T”4 m8 MBH W 娥 II JT。Vfl 1> >t<J|M VM H »t VWj'>> 复" M" MH JM r« ,',1 218ru it ” m « i mHJ伊”,一。夏，»»4'mfh S * Ftf E皿 >16 2 ，处I* MMi5 MB -e EgCO tn M *”< 3 z，mX，re M n”,i j 7T8 j»»xt m i zb<»* MB*5，CCM，, i J； auiw IM

4、，iRaai> 14 DI * “ livtiax Wl 3D4j *!” K M 一“ 2 7U；fi.3. n月如.32，”,丁.P M8“，VWE患 mXt -> -.in'' EL ，1，.h - Kir/tt“Z9C OW " “，«fw »» ，: f j.， j.e i« id jmi>».-.*i-jn»s>ra ta tA » 、s m«t« f"e：，”，4 - fo> < f * f H f4(« ;

5、F>«*!,*«Sz，Ktt «U >>1-，-6 2, “。> ftU Mx ” *：一<x «« r4*> Vt «* K yi 4««；”, Kt2,1r> ffM >m r« 裳，5*. - ec *“，x 雪It ” “ ,一“f，?!*r? 5 ME irt2 r> r* »»4u.f »«r> a»tr de "，to> r« « »w

6、m w ,e ms im rw 肥、*« ，“：、，zV> K1* AM Sit ” -e««9，e< X<a»» xn rrt OJ. 14 m6, a»»y” 4A n.wct «« r«r>«»，“加 rt m，g 、，<4 I1*，' * ，ir xi rN ：>，M acid"，E C，(H Mlk-<1，e-«aK4 J。W.W 3»« rn m,、一，”3«

7、71; a”八mjo rn r.»*.x rwo«，Kt，“a 31» »»w4 vam e tn « ex”，e 5TT rrtz»H，U” M» “I，<« X« d” ”< C*i w W尸I* V« E，P.IXE S gnc". ,，” Ww x*bp Harrti W，” “ 19* 佰 g，.i r.ri 70IW 必心 S etitix 0 景，沪 KttE * g r/KW 2，,i e知 or x»a> t»ci X&

8、#187;» mi -，r o» H脸ci w， “”0 5 x» a» r» . “MteS B mm-13* 的 %，？C u ” “l> " d-.y24% *m Zg，r.i A“I-$，,"K：C4 TH "一 6. h 4" C« 3M，1.， pi! >« Y<t ffttMt , n: >h h * “-2ci) IM »-c， 4， K4 Z.m> f » r/tacr 一. n»一“ J/«

9、87; *.2不 II， G <H <? <> Kt «.m 6, *<* syt 0IT) IM *tira>o *«：< r： *»(»« c *r "X " ;»« “I，f m a”>*> ；，7i«n 皿,-,-二.，=- “，3l Z« :»：Tf* “ e " m"s -件，Mff Vft DH Ucccrott VofC X。 UccosittMi RSM "8 木呦 XAS)

10、 ire* m，)彳hdZ .；一,二货小：、-d，-/ /“' H"口也皿 ： ：2 a * u»；X用丁豺X" »&向£16.中s£g weaictW-RXH-.弁配共*55 mrw -北"/土爽竹勺&.JJ：姐¥ 基；头.人“节气，鼻 物窿M WT»«-在打开的文档中，选择在“工具”菜单中选择“宏” 3,一 “宏”工工於.(!义看购%主鞋BH-BN.Ai»25$，砧，«»*<宝.事, %WMtt不斯”中忱5日匕 中ME-. V8H

11、K9. 勾”m，mwwi.按钮创建，最后点击?灰揭惯桶渴随后弹出“宏”对话框，在宏名中输入4.5随后弹出"Microsoft visual basic”设计,在编辑处输入如下代码:0Word页眉页脚批量删除SubApplication. ScreenUpdating = FalseDim MyPath As String, i As Integer, myDoc As Document With Application, (mso)Word文档的页眉页脚一一(删除里面所有选择要处理目标文件夹.Title = &If , Show = -1 ThenMyPath = .Sele

12、ctedltems(1)ElseExit SubEnd IfEnd WithWith Application.Lookin = MyPath .=msoIf - Execute > 0 ThenFor i = 1 To . FoundSet myDoc = Documents. Open(i) 可以替换的宏'B以下是处理格式所录制的宏，可根据所需录制If ActiveWindow. View. SplitSpecial <> wdPaneNone ThenActiveWindow. Panes(2). CloseEnd IfIf ActiveWindow. Activ

13、ePane. View. Type = wdNormalView Or ActiveWindow.ActivePane. View. Type = wdOutlineView ThenActiveWindow. ActivePane. View. Type = wdPrintViewEnd IfActiveWindow. ActivePane. View. SeekView = wdSeekCurrentPageHeaderSelection. Who1eStorySelection. Delete Unit: =rdCharacter, Count :=1Selection. Who1eSt

14、oryWith Selection. ParagraphFormat.Borders(wdBorderLeft). LineStyle = wdLineStyleNone.Borders(wdBorderRight). LineStyle = wdLineStyleNone.Borders(wdBorderTop). LineStyle = wdLineStyleNone.Borders(wdBorderBottom). LineStyle = wdLineStyleNoneWith . Borders.DistanceFromTop = 1.DistanceFromLeft = 4 .Dis

15、tanceFromBottom = 1 .DistanceFromRight = 4 , Shadow = FalseEnd WithEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle.DefaultBorderLineWidth = wdL i neW i dthO 7 5p t.DefaultBorderColor = wdColorAutomaticEnd WithIf Selection. HeaderFooter. IsHeader = True ThenActiveWindow. ActivePane. V

16、iew. SeekView = wdSeekCurrentPageFooterElseActiveWindow. ActivePane. View. SeekView = wdSeekCurrentPageHeaderEnd IfSelection. Who1eStorySelection. Delete Unit :=urdCharacter, Count :=1ActiveWindow. ActivePane. View. SeekView = wdSeekMainDocumentSelection. Sections(1). Footers(1). PageNumbers. Add Pa

17、geNumberAlignment:=wdAlignPageNumberRight, FirstPage:=True以上可以换成是你自己录制的宏'公共部分的代码C强制执行“是" Application. DisplayAlerts = False强制执行"否"ActiveDocument. Saved = True' iMiU ActiveDocument. Close ' NextEnd IfEnd WithApplication. ScreenUpdating = True?杳湿?所选Word甥?甥?甥?甥?甥?甥?甥?恢甥捣?甥特?甥

18、?甥他?甥峋?甥?即甥? 甥?甥财?甥?晰甥?甥?甥戳猊甥户？甥?甥?？End SubSub ConvertEqns 0ConvertEqns Macro宏在2014-6-25由USER创建End Sub3第6 Ut/fi ».< MB ，鲸ft B<"«ss爵 rr”ytw> 1wort Viiunl Dijic <rii(cvlicroj CilMil I, g”，一 q,“与人 7 hC.匕> W、M 2”；x : At :al"" Ex to 0，rx»*»i'缥壮产以，B麒熄,

19、乎2金露，底力“gr”If Am 7 n«A m： sa«tu<；iMiiLi-2U4 II*Iti r. «k»*X *cUt<«»i«r. 9d4t««-fh *».!«(»«.»(f )E)0 1田r« » i raum Cmm¥(，£“：.产REI 1fcq "口W*4 :ufflEWfagt/ .海依 i> Ar，7,4w，on63iW0,»0v«9分 Om&

20、#187;a itTf3,5<> Her tvtm .0* AisV"Aq.wImm.Vs :r. TVxb耻，.二<1 “8 Yr>« 1 ft ”muntvftucr Ac，"/g，: ，如 ： »*it£>xr«s<ftntiU M；Qg“3i/irnudtvry alta »1aI a*. 2«» Li43-，、，6。/如，5» eeu tr“%仙，入e' .L«、>i0匕 14Mll>4，9，* <b£，、4外修.”*A »»，CtitwirrMW » 1i