Ms access 从access编辑word表，错误462

我正在使用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错误 我读了一些书，我有点了解发生了什么，但我不知道如何纠正它。 （这里是一个整数，检查值是否正确）。

通过更改：

Selection.InsertRowsBelow(<Integer>)

Selection.InsertRowsBelow（）

到

doc.ActiveDocument.Selection.InsertRowsBelow（）

我猜：关闭文档并在逻辑底部将appword设置为Nothing。是的，这也是我的第一直觉，但问题仍然存在。如果我重新设置项目，它会起作用，这会给你任何线索吗？一定要做一个

doc.Close

。什么是aRows？什么是错误462？错误462是：“远程服务器计算机不存在或不可用”。我需要使用适当的对象变量来限定所有的方法和属性，但是我对如何实现这一点有点不知所措。

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