Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo zusammen,

ich möchte in Excel 2013 mit einem Makro folgendes realisieren:

1. Überprüfen, ob Test2.docx geöffnet ist.  Falls ja, soll sie ohne speichern geschlossen werden.
2. Test1.docx wird geöffnet und
3. Test1.docx wird unter unter dem NamenTest2.docx abgespeichert.
4. Test2.docx soll im Vollbildmodus im Desktop-Vordergrund sein

Falls andere Word Dokumente geöffnet sein sollten, sollen sie es auch bleiben.
Die Schritte 2 und 3 konnte ich bisher erfolgreich umsetzen:

Sub WordDokumentÖffnenUndSpeichern()

Dim WordApp As New Word.Application
With WordApp
         .Visible = True
.Documents.Open Filename:="C:\Temp\Test1.docx"
.Documents("C:\Temp\Test1.docx").Activate
.ActiveDocument.SaveAs Filename:= "C:\Temp\Test2.docx"
.Documents("C:\Temp\Test2.docx").Activate
   
End With

End Sub

Was mir noch fehlt, sind die Schritte 1 und 4.
Mit welchem Befehl kann ich zu Beginn überprüfen ob Test2.docx schon geöffnet ist und diese dann schließen?
Wie gelingt es abschließend, dass sich Test2.docx im Desktopvordergrund befindet?
Mit:

AppActivate (ActiveDocument)

hat es es bei mir bisher nicht geklappt.

Für eine konkrete Hilfestellung wäre ich sehr dankbar.

Gruß
Rüdiger