Выгрузка в ворд - VB

Формулировка задачи:

Добрый день, прошу помочь советом. Ситуация следующая: Необходимо выгрузить данные из БД в Word, но выгрузить их в новый документ, заостряю на этом внимание, т.к. через Bookmarks по "скелету" существующего файла я понял как это работает, но хотелось бы понять как сделать это именно с новым документом (созданным в процедуре vb). При этом необходимо сделать так, чтобы каждая новая запись начиналась с новой строки. Выглядит у меня это следующим образом (пример с Bookmarks):

Private Sub Кнопка198_Click()
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim rs As DAO.Recordset
Dim strSQL As String
Dim Сила, Восп As String
 
Сила = Me.Сил.Value
Восп = Me.Вос.Value
 
'берем инфу из запроса
strSQL = "SELECT * from tblPerk where (Сила <= " & Сила & ") And (Воспр <= " & Восп & ")"
 
Set wapp = New Word.Application
Set wdoc = wapp.Documents.Open("C:\Users\WeAre\Desktop\Perk.docx")
Set rs = CurrentDb.OpenRecordset(strSQL)
 
If Not rs.EOF Then rs.MoveFirst
Do Until rs.EOF
wdoc.Bookmarks("perk").Range.Text = ("player.removeperk" + " " + rs!IDPerk)
wdoc.Bookmarks("perk").Range.InsertParagraphAfter
rs.MoveNext
Loop
wdoc.SaveAs2 "C:\Users\" & Environ("username") & "\Desktop\perk1.doc"
wdoc.Close False
wapp.Quit
 
Set wdoc = Nothing
Set wapp = Nothing
Set rs = Nothing
End Sub

Не могу понять как сделать чтобы можно было через:

Private Sub Кнопка198_Click()
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim rs As DAO.Recordset
Dim strSQL As String
Dim Сила, Восп As String
 
Сила = Me.Сил.Value
Восп = Me.Вос.Value
 
'берем инфу из запроса
strSQL = "SELECT * from tblPerk where (Сила <= " & Сила & ") And (Воспр <= " & Восп & ")"
 
Set wapp = New Word.Application
Set wdoc = wapp.Documents.Add
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
If Not rs.EOF Then rs.MoveFirst
Do Until rs.EOF
'какой-то код, который будет работать
 
rs.MoveNext
Loop
wdoc.SaveAs2 "C:\Users\" & Environ("username") & "\Desktop\perk1.doc"
wdoc.Close False
wapp.Quit
 
Set wdoc = Nothing
Set wapp = Nothing
Set rs = Nothing
End Sub

Решение задачи: «Выгрузка в ворд»

textual
                            Листинг программы 
                        
                            'какой-то код, который будет работать
wdoc.Range.InsertAfter rs!IDPerk & vbCr