Zugriff auf bereits geöffnetes WORD Fenster

Moderator: ModerationP

Zugriff auf bereits geöffnetes WORD Fenster

Beitragvon Wbsbrc2 » 02. Sep 2014, 03:13

Hallo,
ist ein Internet Explorer Fenster geöffnet, so bekommt man mit
dem untenstehenden Code Zugriff auf das geöffnete Fenster. Der Code
funktioniert aber nicht bei geöffneten Word-Fenstern. Wie muss
man den Code ändern, um Zugriff auf ein (bereits geöffnetes)
Word-Fenster zu bekommen?
Code: Alles auswählen
Dim oWindowList
Set oWindowList = CreateObject("Shell.Application").Windows
MsgBox oWindowList.Count
For Each oWindow In oWindowList
MsgBox oWindow.FullName
Next
Wbsbrc2
 

Re: Zugriff auf bereits geöffnetes WORD Fenster

Beitragvon r.mueller » 02. Sep 2014, 07:09

Hallo
Code: Alles auswählen
Dim wdApp As Object
 'ermitteln ob Word schon geöffnet
On Error Resume Next
 Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
   
If wdApp Is Nothing Then
    'damit wird verhindert das Word ein zweites Mal
    'mit CreateObject geöffnet wird
    'die erstere läst sich sonst aus dem Task nicht entfernen
 Set wdApp = CreateObject("Word.Application")
Else
   'blnWdAppLiefSchon = True 'ggf.
End If
wdApp.Visible = True
 
 'Beispiel:
MsgBox wdApp.Documents(1).FullName




Gruß
r.mueller
r.mueller
 


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste