ich öffne mit einem Makro eine Word-Datei, lese den Inhalt aus und will diese Datei wieder schließen. Dabei kommt es beim schließen dann zu der Frage ob der Inhalt der Zwischenablage nach dem beenden von Word anderen Anwendungen zur Verfügung stehen soll. Dies möchte ich nicht und die Frage soll auch nicht erscheinen. Mit
Application.DisplayAlerts = False oder AppWD.DisplayAlerts = False
klappt die Unterdrückung der Frage leider nicht. Wie kann ich also die Zwischenablage vor dem schließen von Word leeren, damit diese Abfrage nicht mehr erscheint?
Hier mal das Makro:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim WDfile As Variant
Dim AppWD As Object, RngWD As Object
Dim i As Long, lRow As Long
WDfile = Application.GetOpenFilename("PLZ-Datei (*.doc), *.doc")
If WDfile = False Then Exit Sub
Set AppWD = CreateObject("Word.Application")
AppWD.documents.Open WDfile
Set RngWD = AppWD.documents.Open(WDfile).Range
RngWD.Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Hilfe"
ActiveSheet.Paste
AppWD.documents(WDfile).Close SaveChanges:=False 'Hier kommt die Abfrage
AppWD.Quit
Set AppWD = Nothing
Set RngWD = Nothing
weiterer Ablauf
Application.ScreenUpdating = True
End Sub