如何将宏在所有打开的word文件执行？

Walter.JIN

我刚入门接触vba，为了工作需要，我编写了一段简单的代码，我希望能够让其在所有打开的word文件中执行，请问该如何操作？如果可以，请麻烦详细说明，谢了！Ps：我附上我写的代码截图（公司电脑office文件加密，内容拷不出来），主要功能就是在word中执行文字替换。另外，我在vba的学习中，我是工作需要什么功能才临时在网上检索、学习需要的代码，除了大学vba基础以外我对vba缺乏一个系统的、整体的认识，每条代码的具体含义、执行背景我都不是完全清楚，所以难免有些缺陷。

Walter.JIN

新增2个问题：
1、我下午工作中发现，在一份500+的word中执行上述替代宏时，页眉的替代仅应用于前200余页，剩余300余页未替换页眉中的文字，即宏未在全文范围内执行，请问这是什么情况？（解释说明：我们工作中的word文件，常常会使用分页符，由于业务需要，经常会发生页面设置纵向/横向的混合使用）
2、在工作开始之初，我手工使用Ctrl + F的全文查找与替换功能，该功能能直接查找、替换包括页眉部分、正文部分和文本框等各部分的所有目标文字，但我在编写代码的时候，需要将查找、替换功能定位到不同的部分并对应编写不同代码，请问Ctrl + F默认定位是否是全篇文档？如果是，能否在vba中直接实现该功能？
谢！

lds114

感觉使用 For Each...Next 语句 应该行

413191246se

纵横混合页面，插入的是分节符，而不是分页符，文档内容按“节”分隔；查找替换操作是否全篇，根据你的选定文字范围，或查找时的参数而定。——建议楼主在网上搜索 VBA微软官方帮助 关键词，或在本论坛查找，自行系统地学习一下。只要把宏保存在默认空白文档 Normal.dot 中，而不是某个文档中，才会对于所有Word文档有效。