Schließen eines Word-Dokumentes

Bild

Betrifft: Schließen eines Word-Dokumentes
von: Andrea
Geschrieben am: 13.07.2015 15:10:07

Hallo,
ich habe ein Makro programmiert, das aus Excel heraus einen Word Serienbrief startet. Funktioniert alles prima. Nun möchte ich das Word-Original Dokument (Serienbriefvorlage) schließen und nur noch das neue Dokument offen haben.
Ich weiß aber nicht wie. Kann mir hier jemand helfen?
Schönen Dank im Voraus.
Andrea
Anbei mein Makro:


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

Bild

Betrifft: AW: Schließen eines Word-Dokumentes
von: Nepumuk
Geschrieben am: 13.07.2015 15:21:19
Hallo,
versuch es mal so:

wrdDoc.Close False

Gruß
Nepumuk

Bild

Betrifft: AW: Schließen eines Word-Dokumentes
von: Andrea
Geschrieben am: 15.07.2015 08:58:24
Hallo Nepumuk,
super! Danke das funktioniert genauso, wie ich es mir gewünscht habe.
Schönen Gruß,
Andrea

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schließen eines Word-Dokumentes"