将多个文档内容逐一拷贝粘贴到另一文档后面的语句

Private Sub Command1_Click()

Dim wordapp As New Word.application, doc As New Document, pathtemp As String
  Set doc = wordapp.Documents.Open(App.Path & "\papertemp.doc")
  doc.Content.Select
  Do While Not rs.EOF
  pathtemp = App.Path & "\temp.doc"
  LoadFile rs("word"), pathtemp    '你写的过程吧
  With wordapp.selection
                  .InsertFile FileName:=pathtemp, ConfirmConversions:=False
                  .InsertParagraphAfter
                  .InsertBreak Type:=wdSectionBreakNextPage
                  .Collapse Direction:=wdCollapseEnd
  End With
  Kill pathtemp
  rs.movenext
  Loop
  doc.Save
  End If
End Sub

以上是我在网上搞到的，但执行到LoadFile rs("word"), pathtemp时，提示“子程序或函数未定义”，请高手帮忙解释一下，如何解决啊？