word中的宏如何设定自动执行

来源:百度知道 编辑:UC知道 时间:2024/05/24 11:54:53
有几十个word文件,想统一修改其中某一项内容,设定了宏命令后,如何设定让宏自动执行若干次,而不用打开每个文件去点击执行宏命令。

另:这几十个文件的名称没有按规律排列(如1,2,3.....)可否设定语句?
能否帮我写出代码?

假设修改全部字体的颜色为黑色吧。

可以把这些文件名都添加到一个数组里面去,然后通过一个循环语句来依次打开每一个文件进行修改/保存/关闭。

那么把这个代码放在什么地方呢?

一种办法是把代码写在一个*.VBS脚本文件里面,然后在资源管理器里面双击这个脚本文件运行即可。不过VBS脚本中需要先通过调用CreateObject("Word.Application")得到Word的Application对象,然后才能操作它下面的文档对象等。

另一种办法是在Word里面直接键入Alt+F11打开VBA编辑窗口,选择菜单“插入-模块”,然后把你的代码录入进去(必须包在一个Sub里面),然后键入F5运行。

______________________________________
补充:
那请问楼主提到的“想统一修改其中某一项内容”具体是做的什么修改?详细的要求可以HI我或者留站内信息。

______________________________________
再补充:请参考如下步骤生成一个脚本文件,可以把指定目录下的所有Word文档中的文字设置成黑色。

1、将下列代码粘贴到记事本里面:
Option Explicit

Const c_strRootFolder = "C:\Temp\docs\test\" ' 包含需要处理文档的文件夹

On Error Resume Next

Dim oApp, oDoc
Dim fso, oFolder, oFile

If MsgBox("此操作将把 " & c_strRootFolder & " 目录下的全部 *.doc 和 *.docx 文件中的文字设置成黑色,此操作不可恢复。您确信要继续吗?", vbYesNoCancel Or vbDefaultButton1 Or vbQuestion, "批量处理") <> vbYes The