Question

我使用Access编辑Word中的某些表，代码打开文档，添加X行数并插入数据：

On Error Resume Next
Error.Clear
Set appword = GetObject(, "Word.Application")
If appword Is Nothing Then
Set appword = New Word.Application
appword.Visible = True

End If
appword.Visible = True
Set doc = appword.Documents.Open(wordName, , False)

Set objTable = doc.Tables(1)
objTable.Rows(3).Select
Selection.InsertRowsBelow (aRows)

这就是它，还有一些代码可以将数据插入到各个列中。但问题是，第一次运行此代码时，它就像一个魅力，添加了适当数量的行并插入数据。它到达代码块的末尾并且不会挂起。

但是，当我尝试再次运行代码时，它崩溃了：

Selection.InsertRowsBelow (aRows)

并抛出462错误我已经完成了一些阅读，我有点理解发生了什么，但我对如何纠正它感到茫然。（这里的aRows是一个整数，检查值是否正确）。

Answer 1

通过改变来解决它：

Selection.InsertRowsBelow(<Integer>)

到

doc.ActiveDocument.Selection.InsertRowsBelow(<Integer>)

从访问编辑单词表，错误462

1 个答案: