我有一个 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"
。