Private Sub OpenWordDoc(strDocName As String)
    Dim oDoc As Word.Document
    Dim objApp As Word.Application
    
    Set objApp = New Word.Application
    'Open an exisiting document
    Set oDoc = objApp.Documents.Open(strDocName, , False)
    oDoc.Activate
    'Multi-Line Textbox or RichTextBox control
    unBoundDes.Text = Replace(oDoc.Content, vbCr, vbNewLine)
    oDoc.Close SaveChanges:=False
    Set oDoc = Nothing
    objApp.Quit
    Set objApp = Nothing

End Sub

Me.Поле1.SetFocus

    oDoc.Activate
    With oDoc.ActiveWindow.Selection
        .WholeStory
        .Copy
    End With
    Me.Ïîëå1.SetFocus
    DoCmd.RunCommand acCmdPaste