aus Excel heraus prüfen ob Word geöffnet ist

[FrankyHB]

Kann mir jemand weiter helfen?

ich brauche eine Prüfung ob Word bereits gestartet ist oder nicht.

Wenn es gestartet ist, dann soll es geschlossen werden.
Wenn noch nicht geöffnet, dann soll nicht weiter passieren und das Programm weiterlaufen


Vielen Dank schon mal

Gruß Frank

[steve1da]

Einmal reicht doch?

https://www.clever-excel-forum.de/Thread...oder-nicht

[volti]

Hallo Frank,

hier eine Idee. Die Frage ist aber auch, was soll mit einem ggf. geöffneten Dokument passieren ...

Im Beispiel wird Word geschlossen, wenn kein oder nur ein Dokument geöffnet ist, ansonsten bleibt Word aktiv.

Code:

Sub Word_Schliessen()
' Word schließen
  Dim wd As Object
  
  On Error GoTo Fehler
  Set wd = GetObject(, "Word.Application")
  Select Case wd.Documents.Count
  Case 1:     wd.Documents(1).Close SaveChanges:=True
  Case Else:  Exit Sub
  End Select
  wd.Quit
Fehler:
End Sub

_________
viele Grüße
Karl-Heinz

[FrankyHB]

Hallo Karl-Heinz,

im Prinzip möchte ich erreichen, das Word komplett
geschlossen wird. Das klappt auch.

Wenn ich das ganze bei geschlossenem Word aufrufe,
bekomme ich eine Fehlermeldung.

Ich werde deinen Cide morgen früh ausprobieren - bin gerade auf Arbeit - Nachtschicht.

Gruß Frank.

[FrankyHB]

Hallo Karl-Heinz,

vielen Dank nochmal für deine Hilfe.

Das passt genau !

Lieben Gruß

Frank