录制宏怎样才能录到对文档上面的字体,字号,颜色更改的步骤

13907933959 · 发表于 2015-5-30 12:43

本帖最后由 13907933959 于 2015-5-30 12:51 编辑

我在文档上录制一个对文档上面的字体,字号,颜色…等更改的宏，在录的过程中用了“查找替换”，来替换字体、字号、颜色，可这几个步骤录不到，求懂的前辈们赐教一下小弟，怎样才能录到。谢谢！

413191246se · 发表于 2015-5-31 00:20

楼主，先别说录不录得上，你先确定一下你的 Word 是不是 2003 版本，然后，Normal.dot 找到没有？在哪个文件夹中？删除它以后，可以让 Word 2003 获得新生，再录制新宏试试。——录不上，可以编个宏。

13907933959 · 发表于 2015-5-31 08:14

413191246se 发表于 2015-5-31 00:20
楼主，先别说录不录得上，你先确定一下你的 Word 是不是 2003 版本，然后，Normal.dot 找到没有？在哪个文 ...

前辈、你好！
我的Word 是2003 版本的，你是说要我删除“文档模板”。是：
C:\Documentsand Settings\Administrator\Application Data\Microsoft\Templates文件夹内的Normal。
还是：
C:\Program Files\Microsoft Office\Templates\1033文件夹内的ENNormal。
可这2个都是“文档模板”，录制宏录不到对文档上面的字体,字号,颜色更改的步骤，是因为“文档模板”的原因？？？
我就是用录制宏录不上，编宏我又不会。求前辈再赐教，谢谢！

413191246se · 发表于 2015-5-31 10:27

一、请楼主不必再发新贴，造成浪费，此帖足够用了。
二、请楼主下载我提供的《微软原版VBA官方帮助》（DOC和TXT格式是一样内容），附件链接在下面，反复阅读把代码拷贝到VBE练习。
三、将“录制宏录不到对文档上面的字体,字号,颜色更改的步骤”这句话保存在新建文档中，测试我提供给你的代码。
四、模板问题参见你的另一帖。
***下载：

VBA 微软官方VBA帮助（原版）.rar (74.2 KB, 下载次数: 111)
***VBA宏代码如下，请楼主测试：***可参见《微软官方VBA帮助  第32页最后一段）***
Sub test()
'对文字进行字体、字号、颜色、加粗控制
With ActiveDocument.Content.Find
      .ClearFormatting
      With .Replacement
         .ClearFormatting
         .Font.Name = "黑体"
         .Font.Size = 22
         .Font.Bold = True
         .Font.Color = wdColorRed
      End With
      .Execute FindText:="录不到", ReplaceWith:="录不到可以编", Format:=True, Replace:=wdReplaceAll
End With
End Sub

13907933959 · 发表于 2015-5-31 16:43

413191246se 发表于 2015-5-31 10:27
一、请楼主不必再发新贴，造成浪费，此帖足够用了。
二、请楼主下载我提供的《微软原版VBA官方帮助》（DOC ...

前辈好！感谢你的回复，感谢你提供的“微软官方VBA帮助”，也感谢你给的代码，代码没有问题能把“样板”上的字体改为黑体，字号改为小二，颜色改为红色。
可问题是：你给我做了件“样衣”，可我要的是怎样才能把“样衣”做成这个样子的步骤。我有几百个文档，在不同的文档中、不同的地方，本来想用录制宏来把文档上面的字体,字号,颜色…等作修改，可由于我是个外行，水平不够，在录的过程中用了“查找替换”，来更改字体、字号、颜色，可这几个步骤录不到，所以才发帖向前辈们求助，教我怎样才能录到这几个更改的步骤。
本人是个学中医的，又不懂英文，你提供的“微软官方VBA帮助”肯定是个好东西，可对我来说：别说看熟看透，连看懂都相当困难，古话说得好：“隔行如隔山”，凭我这个外行没有个一年半载那能学得下来，前辈你总不能叫一个人生了病，就叫他去学医，看“黄帝内经”“伤寒论”吧！
所以还是恳请前辈们能详细教一下，更改字体、字号、颜色，这几个步骤在电脑上要具体怎么操作“录制宏”才能录到，代码给我基本没用，看不懂也不会用，我要的是录制代码的步骤。期盼能再得到你的帮助，谢谢！

413191246se · 发表于 2015-5-31 19:37

楼主，你好！要不这样，你如果现在还不会运用我或别人给你的代码的话，你可以把你的700多个文档强力固实压缩为WINRAR压缩包，发到我邮箱，我给你转换（放心，我对你的医学内容并不感兴趣。或加密打包发给你，再告诉我密码。）。你的字体/字号/颜色，VBA宏是录不下来的，必须编制代码才可以。这只是针对一个文档，如果要想对文件夹内若干文档操作，须用“循环遍历文件夹”宏来处理，但是首先，你先提供一下，单个文档，你要把哪些文字改成哪些字号/字体/颜色？就是给提供一个样稿示例，这样我可以代你来处理这700多个文档，再打包给你。
我的邮箱：ln1400014884@163.com

13907933959 · 发表于 2015-6-1 11:55

本帖最后由 13907933959 于 2015-6-1 13:28 编辑

413191246se 发表于 2015-5-31 19:37
楼主，你好！要不这样，你如果现在还不会运用我或别人给你的代码的话，你可以把你的700多个文档强力固实压 ...

前辈好！非常感谢！！！我哪个文件有260多mb（Word文档格式），压成后有80mb，上传受限制。以发到你的邮箱。

竹林间 · 发表于 2018-5-14 18:28

研究一下 ===

竹林间 · 发表于 2018-5-15 10:43

学习学习学习中

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