Question

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

Answer 1

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

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

请参阅here和here了解一些不错的起点。

我也引用你的回答here（这是python，但原则是一样的。）

使用VB.NET更新MS Word文档

1 个答案: