利用宏批量删除多个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 vs

2、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 * rc f* 8mm i r4 10 a *t rrf rt t * w，smc、rw * i。rt j，fsih rt ze03 kn m !1 i- e mc ru)k*t e，t”4 m8 mbh w 娥 ii jt。vfl 1 t 复 m mh jm r ,1 218ru it ” m i mhj伊”,一。夏，4mfh s * ftf e皿 16 2 ，处i* mmi5 mb -e egco tn m *” 3 z，mx，re m n”,

3、i j 7t8 jxt m i zb 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-jnsra ta ta 、s mt fe：，”，4 - fo *!,*sz，ktt u 1-，-6 2, “。 ftu mx ” *：一 vt * k yi 4；”, kt2,1r ffm m r 裳，5*. - ec *“，x 雪it ” “ ,一“f，?!*r? 5 me irt2

4、 r r* 4u.f r atr de ，to r w m w ,e ms im rw 肥、* ，“：、，zv k1* am sit ” -e9，e x，“加 rt m，g 、，m acid，e c，(h mlk-1，e-ak4 j。w.w 3 rn m,、一，”3 a”八mjo rn r.*.x rwo，kt，“a 31 w4 vam e tn ex”，e 5tt rrtzh，u” m “i， x d” ” tci x 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：

5、c4 th 一 6. h 4 c 3m，1.， pi! yh h * “-2ci) im -c， 4， k4 z.m f r/tacr 一. n一“ j/ *.2不 ii， g h ? kt .m 6, *o *：* ；，7in 皿,-,-二.，=- “，3l z :：tf* “ e ms -件，mff vft dh ucccrott vofc x。 uccosittmi rsm 8 木呦 xas) ire* m，)彳hdz .；一,二货小：、-d，-/ /“ h口也皿 ： ：2 a * u；x用丁豺x &向16.中sg weaictw-rxh-.弁配共*55 mrw -北/土爽竹勺&.jj：

6、姐 基；头.人“节气，鼻 物窿m wt-在打开的文档中，选择在“工具”菜单中选择“宏” 3,一 “宏”工工於.(!义看购%主鞋bh-bn.ai25$，砧，* 0 thenfor i = 1 to . foundset mydoc = documents. open(i) 可以替换的宏b以下是处理格式所录制的宏，可根据所需录制if activewindow. view. splitspecial wdpanenone thenactivewindow. panes(2). closeend ifif activewindow. activepane. view. type = wdnormalv

7、iew or activewindow.activepane. view. type = wdoutlineview thenactivewindow. activepane. view. type = wdprintviewend ifactivewindow. activepane. view. seekview = wdseekcurrentpageheaderselection. who1estoryselection. delete unit: =rdcharacter, count :=1selection. who1estorywith selection. paragraphf

8、ormat.borders(wdborderleft). linestyle = wdlinestylenone.borders(wdborderright). linestyle = wdlinestylenone.borders(wdbordertop). linestyle = wdlinestylenone.borders(wdborderbottom). linestyle = wdlinestylenonewith . borders.distancefromtop = 1.distancefromleft = 4 .distancefrombottom = 1 .distance

9、fromright = 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. view. seekview = wdseekcurrent

10、pagefooterelseactivewindow. activepane. view. seekview = wdseekcurrentpageheaderend ifselection. who1estoryselection. delete unit :=urdcharacter, count :=1activewindow. activepane. view. seekview = wdseekmaindocumentselection. sections(1). footers(1). pagenumbers. add pagenumberalignment:=wdalignpag

11、enumberright, firstpage:=true以上可以换成是你自己录制的宏公共部分的代码c强制执行“是 application. displayalerts = false强制执行否activedocument. saved = true imiu activedocument. close nextend ifend withapplication. screenupdating = true?杳湿?所选word甥?甥?甥?甥?甥?甥?甥?恢甥捣?甥特?甥?甥他?甥峋?甥?即甥? 甥?甥财?甥?晰甥?甥?甥戳猊甥户？甥?甥?？end subsub converteqns 0con

12、verteqns macro宏在2014-6-25由user创建end sub3第6 ut/fi . mb ，鲸ft b 1wort viiunl dijic w、m 2”；x : at :al ex to 0，rx*i缥壮产以，b麒熄,乎2金露，底力“gr”if am 7 na m： satu；imiili-2u4 ii*iti r. k*x *cut ar，7,4w，on63iw0,0v9分 oma ittf3,5 her tvtm .0* aisvaq.wimm.vs :r. tvxb耻，.二 1 ft ”muntvftucr ac，/g，: ，如 ： *itxrsi0匕 14mll4，9，* nti i版s1j6 4*,3.xu kl x，小 .4kchlwmujv r-i na ：t slfui neu*f dm az，,“%“ ,召：1：* 2ut”“1-，！ *，c*，” rv : mm 幅碱搀院fhv-a 4|八/，卜，以士隹悔e-v v”eru.”