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

Question

有几十个word文件，想统一修改其中某一项内容，设定了宏命令后，如何设定让宏自动执行若干次，而不用打开每个文件去点击执行宏命令。

另：这几十个文件的名称没有按规律排列（如1，2，3.....）可否设定语句？
能否帮我写出代码？

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

Answer 1

打开word文档－点击文件－点击信任中心－点击信任中心设置－打开对话框－选择宏设置－启用所有宏－设置成功。

具体操作步骤如下：

打开宏功能的word文档，点击菜单栏的“文件”。

/iknow-pic.cdn.bcebos.com/1c950a7b02087bf49a98e5e9fed3572c11dfcfbe"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/1c950a7b02087bf49a98e5e9fed3572c11dfcfbe?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/1c950a7b02087bf49a98e5e9fed3572c11dfcfbe"/>

打开word系统设置页面，选择左边菜单列表中的“信任中心”。

/iknow-pic.cdn.bcebos.com/b151f8198618367aa00dcddd22738bd4b31ce52e"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/b151f8198618367aa00dcddd22738bd4b31ce52e?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/b151f8198618367aa00dcddd22738bd4b31ce52e"/>

点击右边的“信任中心设置”按钮。

/iknow-pic.cdn.bcebos.com/86d6277f9e2f0708ad769800e524b899a901f2bb"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/86d6277f9e2f0708ad769800e524b899a901f2bb?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/86d6277f9e2f0708ad769800e524b899a901f2bb"/>

打开“信任中心”设置对话框。

/iknow-pic.cdn.bcebos.com/8b13632762d0f7030b1927dc04fa513d2697c503"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/8b13632762d0f7030b1927dc04fa513d2697c503?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/8b13632762d0f7030b1927dc04fa513d2697c503"/>

选择左边功能列表中的“宏设置”。

/iknow-pic.cdn.bcebos.com/0b46f21fbe096b6345bcec5000338744ebf8ac0d"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/0b46f21fbe096b6345bcec5000338744ebf8ac0d?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/0b46f21fbe096b6345bcec5000338744ebf8ac0d"/>

选择“宏设置”最下面的“启用所有宏（不推荐：可能会运行有潜在危险的代码）”。

/iknow-pic.cdn.bcebos.com/e850352ac65c10389de87cc2be119313b07e8918"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/e850352ac65c10389de87cc2be119313b07e8918?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/e850352ac65c10389de87cc2be119313b07e8918"/>

设置成功。

Answer 2

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

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

一种办法是把代码写在一个*.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 Then WScript.Quit

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(c_strRootFolder)
Set oApp = CreateObject("Word.Application")
oApp.Visible = True

For Each oFile In oFolder.Files
If (UCase(Right(oFile.Path, 4)) = ".DOC") Or (UCase(Right(oFile.Path, 5)) = ".DOCX") Then
Set oDoc = oApp.Documents.Open(oFile.Path)
oDoc.Content.Font.Color = 0 ' wdColorBlack
oDoc.Close True
End If
Next

oApp.Quit False

Set oFolder = Nothing
Set fso = Nothing
Set oApp = Nothing

MsgBox "完成！"

2、可以根据需要修改其中的那个存放你需要处理的文件的目录名称。

3、另存为脚本文件，比如取名做“批处理.vbs”（注意不要保存成了“批处理.vbs.txt”这样的文本文件）

3、然后在资源管理器里面双击这个脚本文件，看到“完成！”结束。

如果你的Word文档不是在同一个目录下的话，可以Hi我或者发信息我再修改一下代码。本回答被提问者采纳

Answer 3

这个要求可以实现，但你自己做的时候要注意这样几个问题：
1、因为这个宏不是属于哪一个Document，所以它应该写成一个类，即写在类里面，或者写成一个加载宏
2、由于文件名没有规律，可能需要写一个窗体，在这个窗体中去选择文件，打开后由宏来处理。当然如果你先借助一些批量改名软件把文件名都先改一下，改成有规律的，那么就不需要写这个窗体了