Dim p as New Process
dim test as System.Diagnostics.Process
For Each test In p.GetProcesses
            If test.ProcessName = "WINWORD" Then
                     'Und hier könntest du weiter machen
            End If
Next