Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存

13907933959 · 发表于 2015-5-26 10:52

我有700个类似的文档，本想用宏对文档字体颜色一一更改，打开了其中的一篇文档，在上面录制了一个宏，当我用录制好的宏对下一个文档字体颜色更改时，宏在运行的过程中，看到所有的过程都是按设定的步骤走，就是最后没有保存住设定的颜色，其过程就象一个快放的过程，最后字体的颜色还是黑色。可在录制宏时的第一个文档上面，按预定的步骤该文档上面字的颜色都以改好了，文档也保存了。
再一个，求前辈们赐教一个，能对所有打开的文档“循环遍历”的操作步骤，也就是自已录制的一个对文档字体、字号、颜色、修改的“宏”，能自动对700个文档一一进行修改、保存的操作步骤。
请懂的前辈们赐教，本人还是莱鸟，还请前辈们能详细说一下具体的步骤。谢谢！

kqbt · 发表于 2015-5-26 14:23

供参考：

Sub BatchChangeColor()
Dim wNum As Long, wDoc As Document
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Word 文档", "*.doc;*.doc*"
If .Show <> -1 Then Exit Sub
Application.ScreenUpdating = False
For wNum = 1 To .SelectedItems.Count
Set wDoc = Documents.Open(.SelectedItems(wNum), Visible:=False)
With wDoc.Range
'在此加入更改颜色的代码
End With
wDoc.Close True
Next
Application.ScreenUpdating = True
MsgBox "共完成 " & wNum - 1 & " 个文档！"
End With
End Sub

复制代码

13907933959 · 发表于 2015-5-27 09:47

kqbt 发表于 2015-5-26 14:23
供参考：

前辈、您好！感谢你的赐教！本人还是个外行，看不懂代码，能再劳你详细说一下具体的步骤吗？谢谢！

kqbt · 发表于 2015-5-27 10:17

13907933959 发表于 2015-5-27 09:47
前辈、您好！感谢你的赐教！本人还是个外行，看不懂代码，能再劳你详细说一下具体的步骤吗？谢谢！

宏代码使用方法：
打开Word → Alt + F11 打开VBE界面 → 双击 ThisDocument 并将上述代码粘贴到右侧空白区域（按实际需要修改代码） → Alt + Q 返回 → Alt + F8 → 运行 → 通过弹窗选择批量文档所在路径 → 确定之后就开始自动处理了。
注：这里没有讲“宏-安全性-级别”设置的问题，因各版本会有所不同，自己摆渡查一下就行了。

13907933959 · 发表于 2015-5-27 13:24

kqbt 发表于 2015-5-27 10:17
宏代码使用方法：
打开Word → Alt + F11 打开VBE界面 → 双击 ThisDocument 并将上述代码粘贴到右侧空 ...

前辈、你好！在你写的代码当中，有一句：'在此加入更改颜色的代码。可不可以这样理解，这句以上的代码是“循环历遍”中，逐个打开所选文档的代码。而这句以下的代码是“循环历遍”中，逐个保存所选文档的代码。如把上一段和下一段代码分别复制粘贴进我自已录制的，对文档字体、颜色修改的“宏”的开头和结尾处，便可自动的对700个文档进行字体、颜色的修改。如是这样就正是我需要的。
可还有一个、就是我录制的“宏”对字体的颜色修改保存不了，不知要怎样录制才可以？望再能得到你的赐教。将感激不尽！谢谢！

kqbt · 发表于 2015-5-27 16:09

13907933959 发表于 2015-5-27 13:24
前辈、你好！在你写的代码当中，有一句：'在此加入更改颜色的代码。可不可以这样理解，这句以上的代码是 ...

要将你录制的宏代码要植入我提供的循环体中，不是直接复制、粘贴！具备基本的宏知识就可以做到。
你所谓的“颜色更改”是针对整篇文档？还是部分特定的文本对象？说具体一点。

13907933959 · 发表于 2015-5-27 20:35

kqbt 发表于 2015-5-27 16:09
要将你录制的宏代码要植入我提供的循环体中，不是直接复制、粘贴！具备基本的宏知识就可以做到。
你所谓 ...

前辈、你好！不怕你见笑，我也是这一二天才学会一点宏的知识，才刚刚会在文档上录制宏，所以还请你多教教我，最好是给我一个傻瓜式的，例如：把你的“循行历遍”代码分成一个开头段，一个结尾段，中间提醒我哪里可以把我录制的代码放上去。因为我才刚学站、别说走，站都还不稳，恳请你帮帮我。
我想把文档内的分标题全部改为蓝色，我上转一个附件请你看一下，里面我用手工改了几个，由于太多太多，而这只是其中最短的一个文档的一小部分，而这整篇文档里面的分标题就有几百个。所以还请你多多帮忙！谢谢！

13907933959 · 发表于 2015-5-27 20:45

13907933959 发表于 2015-5-27 20:35
前辈、你好！不怕你见笑，我也是这一二天才学会一点宏的知识，才刚刚会在文档上录制宏，所以还请你多教教 ...

<篇名>本草征要
书名：本草征要
作者：李中梓
朝代：明
年份：公元1368～1644年

把文档内所有含有 <目录> <篇名> 的一行改为蓝色字。

<目录>
<篇名>序言
内容：李中梓（字仕材）先生，系明末江南医学教育家。籍贯松江府南汇县。生于万历十五年丁亥（１先生精于医，复精于文，临症经验甚丰。授徒众多，其中颇有杰出者，如马元仪、尤生州等皆是传其法乳者。
李氏生平，著作甚丰，均着眼于培养后进与临症切用。且文辞绮丽，使深于医者与初学之士，两皆适用。当其中年，曾草《颐生微论》自视犹觉不足，乃改写为《删补颐生微论》其中谈药之作，多编为韵语。崇祯十年（１６３７）又重着《医宗必读》十卷。鉴于学医者必先有文学水准，故卷一为〈医论、图说〉首列论文十三篇，以骨度、藏象等图附于后。卷二为《四言脉诀》补原着之缺略，正传本之差讹，仍旧者十之二三，新改者十之七八，并以〈脉法心参〉附于后，记临症之得乎心而应乎手者与得乎心而不能喻诸口者，一一详加记载，而以色诊附焉。卷三、卷四，为《本草征要》（详见后述）。卷五为伤寒。卷六至卷十为杂病。于论述一病之后，多附有自己之医案，内容均切实用，便于学习。嘉惠后学匪浅，乃传世之杰作，故在清代，大江南北之习医者，每以之作为模板。
此册乃《征要》之删补单行本，姑就发展源流及变化情况，详加叙述，以弁其端。
药学书之用韵语或赋体，盖冀后学人之便于诵习也。
自金、元以来，传本甚多，如《药性赋》为四言四句等。然作赋须对比，每拈两药，凑为一联，常有言而未透之感。四言者，限于十六字，有因内容较多，不尽其意者。有因主治单纯，尚觉字多者，后者，虽关系不大，然从整体观之，则药之突出主次与使用面之宽窄，又难一目了然。李氏有鉴于此，故略仿赋体而采用长短偶句，使其繁简适宜，修短合度，初学之士，受惠实多。着者于卷端题云：“本草太多，令人有望洋之苦，药性太少，令人有遗珠之忧，兹以纲目为主，删繁去复，独存精要，采集名论，窃附管窥，详加注释，比之珍珠囊，极其详备，且字句整严，便于诵读”。
征要内容，首列药名，药名之下，以小字标出味、性、归经及为使之药。并记畏、忌、恶、反。与炮制之要求，间加必要之别名。次入正文，多以对比之句，述其主治，文辞典雅，表达透切，须长则长，可短则短，视作用之多少而着笔，能恰如其分。且词藻美妙，如阿胶、石膏等药之叙述，皆铿锵堪诵。正文之后又加必要之注解，并指出忌用之点，使患者蒙其利而不受其害，用心良苦。书成，遂风行一时。
问世不久，上洋蔡嵋、眉山氏仿其体例，续作《本草征要补遗》计五十八种。清同治年先六伯祖光奇公（讳廷瑾）又为重新分类，意在便于翻检，且酌删其剧毒之品，以防初学之士掌握不善，易出偏差。并依临症需要，增入便用而易得之品若干，颜曰：《删补本草征要》供门徒抄读。光绪年间，先君蕉麓公，又续有增补。晚清，吴兴凌奂（字晓五），着《本草害利》内容多采李氏原文。民国初，丁甘仁先生，创上海中医专门学校，采此书作药物之课本，对李氏原文，有为删节者，有作补充者，易其名曰：《本草辑要》。丁氏又于其原书之后，补撰《本草续编》增入八十余种。此外，尚见许多无名之传抄本，有节略者，有摘抄者，有易书名者，有改内容者，因无刻本，姑不详述。其足取者，亦予采入。
此次整理，以李氏明刊原本为主，更采入蔡氏、与先伯祖、先君及丁氏所补，切于实用者，凡若干种，并略插拙续于其中。仍依光奇公原意，厘为四卷，第一卷为通治部分，亦即多数为作用于全身者。第二卷为形体部分与专科，即分头、面、七窍、四肢、百骸以及外科、伤科、女科、儿科等。第三卷依脏腑区分，各从其类，便于临症时之参考。第四卷为外治、食疗等等。末附拙作《淀粉类食疗品》、《谈中药的变通使用》与《煎药用之水火》备仓猝时之选择。
本书罗列前人一脉相承之精粹，言皆有征，虽有一定特点，但由于匆促属笔，直行改横行，繁体改简体，难免有讹误之处，幸读者加以指正，继续修订，当诸异日。书名原依先伯祖意仍题《删补本草征要》乃遵李氏《删补颐生微论》之例，今易为“重订”二字，似更允。
\x癸亥初冬扬州耿鉴庭识\x
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味辛，性温，无毒，入肺经。
其气芳香，其性和融，温中达表，散风解凝。发表而不优于峻，性阳而无损于阴。通鼻塞、行气滞。虚人需发汗，而弱不能投者，当以人参为伍。暑期受寒凉，用辛热而于时有侮者，可与藿香同行。梗：能下气安胎，胎元复固。子：可消痰定喘，喘息安宁。
此药温能散寒，香可和气。譬诸盛德之人，可无往而不利。若与橘皮同用，尤为适宜。
治受之藿香正气散，治香港脚之鸡鸣散，均作如此配伍。又可外治，孕妇呕吐不止，以梗、叶煮水，嗅吸其蒸气，能止逆下气，可得平复。尚能解蟹毒。
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味甘，性温，无毒。入肺、小肠、膀胱三经。畏萆。
恶干姜、芫花。杀附子毒。色白而润者佳。
散风解表，止痛医疮。清咽喉及口齿，治风疹与搔痒。头目中滞气，经络中留湿，俱可疗也。骨节之烦疼，四肢之挛急，均能解之。
能御防外风，故名防风，乃风药中润剂也。疮科多用之，为其风湿交攻耳。张元素谓其 “为手足太阳经之本药”。王好古又谓其“行足阳明、太阴二经，为肝经气分药”。又谓“钱仲阳泻黄散中，倍用防风者，乃于土中泻木也”。《日华诸家本草》谓其“匀气脉”，乃经验之谈。
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味辛、性温、无毒。入肝经，反驴肉、无鳞鱼、河豚、蟹、黄鱼。
散风邪：清巅顶。利咽喉，透麻疹。化瘀血，消瘰。理疮疡，破聚结。
长于治风，又兼治血，何也？为其入风木之藏，即是血海，故能并主。风在皮里膜外者宜之。
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味辛、性平。入肺、胃二经。忌枣、蜜、犬、雉肉。
通中发汗，头疼风湿总蠲除。利便开关，香港脚奔豚通解散。专攻喉痹，亦可安胎。伤寒寒热皆宜，面目浮肿亦治。
葱味最辛，肺之药也。故解散之用居多。
\x多食葱，令人神昏、发落、虚气上冲。\x
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味辛，性热，无毒。入肺、胃二经。
生能发表，熟可温中。开胃有奇功。止呕为圣剂。气胀腹疼俱妙，痰凝血滞皆良。刮下姜皮，胀家必用。
凡中风、中暑、中气、中毒、中恶、霍乱等一切卒暴之证，用姜汁和童便服之。姜汁能开痰，童便能降火也。古方以姜茶治痢，热痢留皮，冷痢去皮，大妙。忌服同干姜。
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味辛、甘，性温。入心、肺、膀胱三经。
助阳散寒，温经通脉。达营卫，和表里。无汗能发，有汗能止。理心腹之痛。搜关节之痹。
直行兼为奔豚之向导。
本经疏证云：“和营、通阳、利水、下气、行瘀、补中为桂枝之六大功效”。
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味苦、性温，无毒。入心、肺、膀胱、大肠四经。浓朴为使。恶辛夷、石苇。去根节，水煮，去沫。
去营中寒气，泄卫分风邪。发汗仗其温散，消肿在其行水。既主用于实喘，亦伍用于痛痹。
轻可去实，为发散第一药。惟在冬月，真有寒邪在表者，宜之。或非冬月，或无寒邪，或寒邪在里，或伤风等证，虽发热恶寒，不头痛身疼而拘急，六脉不浮紧者，皆不可用。虽可汗之证，亦不宜多服，汗为心液，若不可汗而汗，与可汗而过汗，则心血为之动矣。或亡阳，或血溢，而成大患，可不慎哉。
麻黄乃太阳经药，兼入肺经。肺主皮毛；葛根乃阳明经药，兼入脾经。脾主肌肉，发散虽同，所入迥异。
<目录>第一卷•通治部分\发散药、退热药
<篇名>（一）温散风寒
内容：味辛，性温，无毒。入心、小肠二经。恶黄、山茱萸。畏滑石。反藜芦。
风寒湿痹，头痛鼻塞。下气破痰，头面游风。百节拘挛，齿痛目泪。
味辛，性温，禀升阳之气，而为风剂，辛香开窍，故主疗如上。单服末至一钱，令人闷绝，辛药不可多用也。

13907933959 · 发表于 2015-5-27 20:50

让宏对字体的颜色更改为蓝色、无法保存

kqbt · 发表于 2015-5-28 07:51

本帖最后由 kqbt 于 2015-5-28 10:56 编辑

Sub BatchChangeColor()
Dim wNum As Long, wDoc As Document
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Word 文档", "*.doc;*.doc*"
If .Show <> -1 Then Exit Sub
Application.ScreenUpdating = False
For wNum = 1 To .SelectedItems.Count
Set wDoc = Documents.Open(.SelectedItems(wNum), Visible:=False)
With wDoc.Range.Find
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Font.Color = wdColorBlue
.Execute "^13\<目录\>*^13\<篇名\>*^13", , , True, , , , , , , wdReplaceAll
End With
End With
wDoc.Close True
Next
Application.ScreenUpdating = True
MsgBox "共完成 " & wNum - 1 & " 个文档！"
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存