Guten Tag
Es ist vermutlich nicht leicht, aus dem Excel eine Word Datei zu öffnen. Verschwiegen, wenn das Word offen ist, dieses wieder in den Vordergrund zu bekommen. Das öffnen von einer Word Datei habe ich wunderbar hin gekriegt. Nun sollte unterstehende Formel im VBA überprüfen, ob die Datei bereits geöffnet ist, Dies funktioniert auch! Doch wie zum Teufel kann ich machen, dass wenn die Datei offen ist, diese gleich angezeigt wird? Habe X-Varianten gesucht und getestet, aber keine war eine Lösung welche auch funktionierte. Kann mir da vielleicht jemand behilflich sein?
Dim Pfad
Dim WdApp As Object
Dim wdDok As Object
Pfad = Tabelle12.Range("D3").Value
On Error Resume Next
Open Pfad For Binary Access Read Lock Read As 1
Close #1
If Err.Number = 70 Then
'Datei ist offen
Beep
MsgBox Pfad & " ist geöffnet"
Else
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.documents.Open(Filename:=Pfad, ReadOnly:=True)
WdApp.Visible = True
WdApp.Activate
Set wdDok = Nothing
Set WdApp = Nothing
End If
On Error GoTo 0
Zum Voraus, besten Dank für Eure Unterstützung. Bin für ein par Stunden Weg. Aber freue mich Eure Lösungen. Bis bald. Gruss Daniel