Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open( _
      Filename:="D:\1\Breitenstandard_d.doc")
    
    'wdApp.Visible = True
    
    With wdDoc
        .Bookmarks("Bookmark1").Select
        wdApp.Selection.Text = Range("A1").Value
        .Bookmarks("Bookmark2").Select
        wdApp.Selection.Text = Range("A2").Value
    End With

    wdDoc.Close SaveChanges:=wdSaveChanges
    wdApp.Quit

    Set wdDoc = Nothing
    Set wdApp = Nothing