Aktives Word erkennen
(Word 2000)
Um mit VBA festzustellen, ob Word bereits aktiv ist, reicht folgender Code:
|
Dim Wrd As Word.Application ' oder "As Object", falls kein Verweis auf die Word TypeLib gesetzt ist
On Error Resume Next
Set Wrd = GetObject(Class:="Word.Application")
On Error Goto 0
If Wrd Is Nothing Then
' Word ist noch nicht gestartet
Else
' es gibt mindestens eine Instanz von Word
End If
|
|
