word中的宏如何设定自动执行
来源:百度知道 编辑:UC知道 时间:2024/05/24 11:54:53
另:这几十个文件的名称没有按规律排列(如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