Кто знает как определить Range так чтоб когда открывается документ Word со всеми записями в самом конце строилась таблица

в макро ето записывается .SELECTION.ENDKEY Unit:=wdStory

kak ето написать в коде в vb?

я работаю с Object без Reference

на такую строку

Set wdRng = wordApp.Selection.EndKey(Unit:=wdStory)

ругается пишет "bed parametr"

тогда кричит Run Time error '424' "object Required"

Bad parameter
Может есть еще идеи?

Public Function ConvertMissionsFromAccessToWord(DocPath As String, TemplatePath As String, ProtocolID As Long)
Dim cn As ADODB.Connection, rs As ADODB.Recordset, dbPath As String

Dim SqlStr As String
Dim TableWord As Object 'Word.Table
Dim DocWord As Object 'Word.Document
Dim celTable As Object 'Cell
Dim rowTable As Object 'Row
Dim wdRng As Object 'range
'Dim myRange As Object 'Range

Dim i As Integer
On Error GoTo Err_h:

Set cn = New ADODB.Connection
'create connection
dbPath = "C:\prdata2003.mdb"
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Persist Security Info=False"


Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.ActiveConnection = cn


SqlStr = "Select mi_mision, mi_up_mision From t_mission where mi_pr_code = " + CStr(ProtocolID) + " ORDER BY mi_up_mision "
rs.Open SqlStr, cn, adOpenStatic, adLockBatchOptimistic, adCmdText

If rs.RecordCount > 0 Then

Call OpenWord 'open word application
wordApp.Documents.Add TemplatePath 'path of tamplate
wordApp.ActiveDocument.SaveAs DocPath 'Save tamplate as a file we need create
Set DocWord = wordApp.ActiveDocument
Set wdRng = wordApp.Selection.EndKey(6) --->кричит



Set TableWord = wordApp.ActiveDocument.Tables.Add(wdRng, NumRows:=rs.RecordCount * 3, NumColumns:=1)

rs.MoveFirst
Dim str As String, k As Integer
str = rs.Fields("mi_up_mision")
k = 0

For i = 1 To rs.RecordCount
TableWord.Cell(i + k, 1).Range.Text = rs.Fields("mi_up_mision")
next
wordApp.Visible = True

Set wordApp = Nothing


'close recordset
rs.Close
Set rs = Nothing

'close connection
cn.Close
Set cn = Nothing

ConvertMissionsFromAccessToWord = True
Exit Function
Err_h:
MsgBox Err.Description + Err.Number
'Set wdRng = Nothing
Set wordApp = Nothing


'close recordset
rs.Close
Set rs = Nothing

'close connection
cn.Close
Set cn = Nothing

ConvertMissionsFromAccessToWord = False

End Function
Private Sub OpenWord()
On Error GoTo Err_h:
If Not wordApp Is Nothing Then
Set wordApp = GetObject(, "Word.Application")
Else
Set wordApp = CreateObject("word.Application")
End If
Exit Sub
Err_h:
MsgBox ("")
End Sub

Спасибо Уже не важно

Я поставила bookmark

Просто хотелось обоитись без него