【发布时间】:2015-03-02 09:59:54
【问题描述】:
我有一个 Word 2013 文档 (.docx),其中包含需要替换的值。我可以找到很多代码,但由于导入 word.application 不起作用,因此无法使其工作。
我的表单有一个文本框来指定 word 文档的文件名和一个文本框供用户输入一个值 (tbCRMID)。执行后,我需要 word 文档中的值(替换为 tbCRMID.text)。
我还有很多其他的替代品要做,但是一旦我找到了一个,我应该准备好了。
这是我的代码:
Try
Dim NewOutputFile As String
Dim newApp As Object
Dim newDoc As Object
newApp = CreateObject("Word.Applicatoin")
newApp.visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
此代码生成错误"Cannot create Active X control"。
【问题讨论】:
-
以下代码产生一个关于“无法创建 Active X 控件”的错误。尝试成功打开程序,然后我将添加要打开的文档,然后使用查找/替换功能。尝试 Dim NewOutputFile As String Dim newApp As Object Dim newDoc As Object newApp = CreateObject("Word.Applicatoin") newApp.visible = True Catch ex As Exception MsgBox(ex.Message) End Try
-
将您的代码放在上面的问题中 - 编辑它。然后就可以格式化代码块了。
-
@GeorgeVaisey - 你是如何为
Microsoft Word库添加引用的? -
@KarlAnderson OP 不需要添加对 Word 的引用;他正在使用
CreateObject。 -
@ZevSpitz - 什么?就像您在回答中所说的那样,OP 需要对 Microsoft Word 对象库的引用!