Feststellen ob Word läuft?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Option Explicit

Sub Check_Word()
    Dim myWord As Object
    'Fehlerroutine für die Objectabfrage aktivieren
    On Error Resume Next
    'Abfragen einer besthenden WORD-Instanz um wiederholtes starten zu verhindern
    '9 = Word 2000, 10 = Word XP
    Set myWord = GetObject(Class:="Word.Application")
    If Err.Number <> 0 Then
        'Fehlervariable leeren wenn Instanz noch nicht besteht
        Err.Clear
        'Zuweisung der Instanz
        Set myWord = CreateObject("Word.Application.10")
        'Instanz öffnen
        'Um das ganze etwas im Hintergrund laufen zu lassen
        'kann man den Status "wdWindowStateMinimize" verwenden
        myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
    Else
        'Instanz besteht bereits
        myWord.Activate
        'Instanz in der Vordergrund bringen oder
        'mit "wdWindowStateMinimize" im Hintergrund ausführen
        myWord.Visible = True: myWord.WindowState = wdWindowStateMaximize
    End If
    'Hier muss der der Dateiname stehen der verwendet werden soll
    'Es sollte aber eine Dokumentvorlage verwendet werden
    'um keine Änderungen an den Textmarken beim einfügen zu verursachen
    myWord.Application.Documents.Open "C:\Test.doc"
    Set myWord = Nothing
End Sub

Gruss Rainer

Hallo
Sorry,... Object vergessen
Option Explicit

Sub Check_Word()
    Dim myWord As Object
    'Fehlerroutine für die Objectabfrage aktivieren
    On Error Resume Next
    'Abfragen einer besthenden WORD-Instanz um wiederholtes starten zu verhindern
    '9 = Word 2000, 10 = Word XP
    Set myWord = GetObject(Class:="Word.Application")
    If Err.Number <> 0 Then
        'Fehlervariable leeren wenn Instanz noch nicht besteht
        Err.Clear
        'Zuweisung der Instanz
        Set myWord = CreateObject("Word.Application")
        'Instanz öffnen
        'Um das ganze etwas im Hintergrund laufen zu lassen
        'kann man den Status "wdWindowStateMinimize" verwenden
        myWord.Visible = True: myWord.WindowState = myWord.wdWindowStateMaximize
    Else
        'Instanz besteht bereits
        myWord.Activate
        'Instanz in der Vordergrund bringen oder
        'mit "wdWindowStateMinimize" im Hintergrund ausführen
        myWord.Visible = True: myWord.WindowState = myWord.wdWindowStateMaximize
    End If
    'Hier muss der der Dateiname stehen der verwendet werden soll
    'Es sollte aber eine Dokumentvorlage verwendet werden
    'um keine Änderungen an den Textmarken beim einfügen zu verursachen
    myWord.Application.Documents.Open "C:\Test.doc"
    Set myWord = Nothing
End Sub

Gruss Rainer

Hallo, Option Explicit Sub teste() Dim oWMI As Object, cPro As Object Set oWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2") Set cPro = oWMI.ExecQuery _ ("Select * from Win32_Process Where Name = 'winword.exe'") If cPro.Count = 0 Then MsgBox "Word läuft nicht!" Else MsgBox "Word läuft!" End If End Sub Gruß K.Rola

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread