Overføre excel til word - vba

Ja - er det til et eksisterende Word-dokument eller nyt?

Et eksisterende standard dokument

Eksempel (anbringes under Ark1 i .xls-filen:

Const dokumentNavn = "Dokument_2.doc"

Dim wDoc, sti
Sub OverførTilWordDokument()
On Error GoTo fejl

    sti = ActiveWorkbook.Path
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
   
    værdi = Range("A2").Value
   
    Set wDoc = CreateObject("Word.Application")
    wDoc.Documents.Open sti + dokumentNavn
       
    With wDoc
        .ActiveDocument.Bookmarks("\endofdoc").Select
        .Selection.TypeText Text:=værdi
        .ActiveDocument.Save
        .ActiveDocument.Close
        .Quit
    End With
   
fejl:
    Set wDoc = Nothing
End Sub

svar

Det får du