Sub Test()
    Dim r As Range
    Set r = ActiveDocument.Bookmarks( "aaa" ).Range
    r.Text =  "вставляю текст" 
End Sub

Sub Test1()
    Dim App As Word.Application
    Dim Book As Word.Document
    Dim Range As Word.Range
    Dim rst As DAO.Recordset
    
    Set App = New Word.Application
    Set Book = App.Documents.Open( "c:\1 .doc")
    Set Range = Book.Bookmarks( "bbb" ).Range
    
    Set rst = CurrentDb.OpenRecordset( "SELECT * FROM tbl2" )
    Range.Text = rst.Fields( 0 ).Value
    
    App.Visible = True
    
    Set Range = Nothing
    Set Book = Nothing
    Set App = Nothing
    Set rst = Nothing
End Sub