Domino 9 und frühere Versionen > Entwicklung

Prüfen ob Office-Anwendung (z.B. Word) geöffnet

<< < (2/2)

animate:
eine Möglichkeit ohne API:

set x = GetObject("","Word.Application")
if x is nothing then...


müsste klappen. Bei "Word.Application" bin ich mir nicht ganz sicher, ob das so heißt. Steht aber in der Registry.

*edit*

kann auch sein, dass bei der Zeile

set x = GetObject("","Word.Application")

ein Fehler geschmissen wird. den kannst du dann abfangen und weißt bescheid.

eknori:
yxoo, schmeisst einen error

Sub Click(Source As Button)
   On Error Goto error_handle
   Dim x As Variant
   Set x = GetObject("","Word.Application")
   Msgbox "yoo"
   Exit Sub
error_handle:
   Msgbox "nö"
   Resume do_some_stuff
do_some_stuff:
' your_stuff_goes_here
End Sub


Ulrich

TMC:
Danke Thomas für den Tipp.

Nach ein wenig testen hier ein Script das (zumindest unter WinXP) klappt in R5:

Sub Click(Source As Button)
   On Error 208 Goto AppNotOpen
   Dim vAppOpenChecker As Variant
   Set vAppOpenChecker = GetObject("","Word.Application")
   Msgbox "Word ist geöffnet !"
   
   Exit Sub
   
AppNotOpen:
   Msgbox "Word ist nicht offen"
   Exit Sub
   
End Sub


Matthias

Navigation

[0] Themen-Index

[*] Vorherige Sete