我想使用Excel在列A中存储"tag names",在列B中存储它们关联的"replacement text" . 当代码运行时,它需要一次一个地收集每个标记(逐行),在整个Word文档中搜索这些单词,并用相应的替代品替换它们 .
我注意到页眉和页脚中的特殊标签没有被替换 . 我转向这篇文章(http://word.mvps.org/faqs/customization/ReplaceAnywhere.htm)并发现使用一系列范围(或循环浏览文档中所有可用的故事范围)我能够做到这一点 .
我改进了我的代码,正如上面链接中所建议的那样,只要我的代码嵌入到我的"Normal" Word文件中,就可以使用Word中的VBA代码来操作另一个Word文档 . 但是,目标是在读取Excel文件时使用VBA Excel操作替换 .
当我将代码移动到Excel时,我会挂起一个读取的自动化错误,
“运行时错误'-2147319779(8002801d)':自动化错误库未注册 . ”
我已经从审查注册表到使用"Word.Application.12"代替"Word.Application"寻找答案 .
我有一台带有Microsoft Office 2007的Windows 7,64位机器 . 我选择了以下库:
Excel:
Visual Basic For Applications
Microsoft Excel 12.0对象库
OLE自动化
Microsoft Access 12.0对象库
Microsoft Outlook 12.0对象库
Microsoft Word 12.0对象库
Mic