0

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

4

1 回答 1

0

你拼错了Word.Application。此外,考虑添加对 Microsoft Word 对象库的引用,然后您可以使用强类型和智能感知:

Dim newApp As New Word.Application
newApp.Visible=True
Dim newDoc = newApp.Documents.Add

有关一些好的起点,请参见此处此处。

我也在这里向您推荐我的答案它适用于 python,但原理是相同的)。

于 2013-08-22T07:32:07.057 回答