---

Hallo Hobel,

du kannst die Documents Collection in einer Schleife durchlaufen.

----
dim wDoc as Word ocument

for each wDoc in WordApp.Documents
  if wdoc.Name = GewünschterName then
    wdoc.Activate
  end if
next
----
HTH pablo

------------------
mfG Gerald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

lustig 

[Diese Nachricht wurde von startrek am 18. Oktober 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

freut mich, das es dir auch gefällt

ablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Man kann die einzelnen Objecte der Collection auch direkt über den Namen ansprechen, falls der bekannt ist. Das spart die Schleife.

Sub DocActivate()

Dim o_app As Object
Dim o_docs As Documents
Dim o_doc As Document

Set o_app = GetObject(, "Word.Application")
Set o_docs = o_app.Documents
o_docs("test1.doc").Activate

End Sub

------------------
APeters@BSS-Online.de

[Diese Nachricht wurde von Arne Peters am 20. Oktober 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP