Hoe Toepassingen uitlezen uit Taakbeheer??

[HansFRAP]

Ik ben opzoek naar stukje Excel VBA-code waarmee ik kan nagaan of Word reeds actief is.
Zo ja dan zou ik focus op Word willen leggen, zo niet dan wil ik Word starten.

Komt dus eigenlijk neer op: hoe lees ik lijstje Toepassingen uit uit Taakbeheer??

Wie heeft hier reeds code voor en zou deze willen posten?

 

[snb]

Sub snb()
  on error resume next
  x3=getobject("","Word.Application")
  if err.number<>0 then Msgbox "Word is niet geladen"
end sub

 

[HansFRAP]

Dank voor voorbeeldje. Is natuurlijk lekker kort.
Maar nu nog focus leggen op Word (en dan zonder select!)