Schließen eines Word-Dokumentes

Sub OpenWordDocument()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Users\andrea\Documents\Managed Firewall Services\ _
ServicevertragMuster.docx")
' Angebot Makro
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\andrea\Documents\Managed Firewall Services\MSS Kalkulationstool Formular  _
20150609.xlsm" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\andrea\Documents\  _
_
_
Managed Firewall Services\MSS Kalkulationstool Formular 20150609.xlsm;Mode=Read;Extended  _
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registr" _
, SQLStatement:="SELECT * FROM `Transferdaten$`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With
'Es geht um diese Zeilen:
wrdDoc = wrdApp.Documents.Close("C:\Users\andrea\Documents\Managed Firewall Services\ _
ServicevertragMuster.docx")(SaveNoChanges)
End Sub