使用VBA Makro从Word中的Excel打印数据

Question

我正在尝试将Excel表格中的数据打印到已存在的单词文件中已存在的表格。

excel中的我的数据是一个简单的问题，例如：“天气怎么样？”

现在我想将这个问题打印成一个单词表。 Word文件和表格已经存在。

首先，我从我的excel makro打开word文件。

Dim AppWD As Object

Set AppWD = CreateObject("Word.Application") 'Word als Objekt starten

AppWD.Visible = True
AppWD.documents.Open "file location"

doc.Unprotect

这很好用，但是我首先尝试删除该表中的一行作为测试，我这样做：

AppWD.Tables.Item(1).Rows(2).Delete

但这是问题，这不起作用。 我总是得到运行时错误'424'： 需要对象

我认为问题在于我的makro不知道它必须写入单词而不是写入我的excelsheet。

Answer 1

这是因为您没有正确创建和使用对象。这是你在想什么？ （的 UNTESTED ）

Dim AppWD As Object, doc As Object

Set AppWD = CreateObject("Word.Application")

AppWD.Visible = True

Set doc = AppWD.documents.Open("file location")

doc.Unprotect

doc.Tables.Item(1).Rows(2).Delete