Excel VBA SCript Word open en Opslaan

[SergevdH]

Vanuit Excel open ik een Word document met hulp van een template dit gaat helemaal goed nu moet ik deze alleen nog opslaan. Alles gaat goed tot de laatste regel
Weet iemand hier een oplossing voor.

Sub Copy_Excel_Cell_to_Word_Form()
Dim wdApp As Object 'Word.Application
Dim wdDoc As Object 'Word.Document

Set wdApp = CreateObject("Word.Application") 'Open new instance of Microsoft Word
wdApp.Visible = True 'Make application visible
'Open the word document
Set wdDoc = wdApp.documents.Add("N:\bedrijf-naam\Templates\Offerte\Offerte Brief V0.1.dot")

'Kopieren bookmarks Word
Worksheets("Basis").Range("D12").Copy 'Copy value
wdDoc.Bookmarks("klant_Naam").Range.PasteSpecial 'Paste to word document

Dim opslaan1 As String
Dim locatie3 As String
Dim locatie4 As String
Dim locatie5 As String
Dim MessDOCname1 As String

opslaan1 = Worksheets("Basis").Range("A7")
locatie3 = Worksheets("Basis").Range("A8")
locatie4 = "N:\Offerte\80 projecten"
locatie5 = "N:\offerte\80 projecten\" & locatie3
ChDir (locatie5)
strdocname1 = InputBox("Met welke naam moet deze file worden opgeslagen", "Bestandsnaam Specificaties", opslaan1)
MessDOCname1 = strdocname1 & ".doc"
MsgBox "De file wordt opgeslagen onder de naam: " & MessDOCname1
wdDoc.ActiveDocument.saveas MessDOCname1

End Sub