Imports Microsoft.Office.Interop
Public Class AuswahldialogWord
    Dim Proc() As Process
    Dim FlagWdApp As Boolean    'Flag - True: Word wurde bereits estartet
    Dim WordAppl As Word.Application
 
    Private Sub AuswahldialogWord_Load(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles MyBase.Load
        'Überprüfen ob Wordinstanz gestartet ist
        'Variable initieren
        Proc = Process.GetProcesses
        'Alle Prozesse durchlaufen
        For Each Process In Proc
            If (Process.ProcessName.IndexOf("WINWORD") > -1) Then
                FlagWdApp = True
            End If
        Next Process
 
        'Objekt in Abhängigkeit, ob Wordinstanz gestartet ist oder nicht, der 
        ' Variablen "WdApp" zuweisen
        If FlagWdApp = True Then
            WordAppl = GetObject(, "Word.Application")
 
            For Each WdDoc In WordAppl.Documents
                LstbxDokumente.Items.Add(WdDoc.name)
            Next
            WordAppl.Visible = True
        Else
            'MsgBox("Nichts geöffnet")
            'WordAppl = CreateObject("Word.Application")
        End If
    End Sub
 
    Private Sub btnNeu_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnNeu.Click
 
        'Wenn Word läuft
        If FlagWdApp = True Then
            WordAppl.Documents.Add()
            WordAppl.Visible = True
        End If
 
        'Wenn Word nicht läuft
        If FlagWdApp = False Then
            WordAppl = CreateObject("Word.Application")
            WordAppl.Documents.Add()
            WordAppl.Visible = True
        End If
 
        LstbxDokumente.Items.Clear()
 
        For Each WdDoc In WordAppl.Documents
            LstbxDokumente.Items.Add(WdDoc.name)
        Next
 
    End Sub
 
    Private Sub BtnOhne_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtnOhne.Click
        Me.Close()
    End Sub
 
    Private Sub LstbxDokumente_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles LstbxDokumente.DoubleClick
 
        If Not LstbxDokumente.Items.Count = 0 Then
            WordAppl.Documents(LstbxDokumente.SelectedIndex).Activate()
            Me.Close()
        Else
            MsgBox("Bitte zuerst ein Dokument öffnen!")
        End If
 
    End Sub
 
 
    Private Sub BtnAktualisieren_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles BtnAktualisieren.Click
        LstbxDokumente.Items.Clear()
        FlagWdApp = False
        'Überprüfen ob Wordinstanz gestartet ist
        'Variable initieren
        Proc = Process.GetProcesses
        'Alle Prozesse durchlaufen
        For Each Process In Proc
            If (Process.ProcessName.IndexOf("WINWORD") > -1) Then
                FlagWdApp = True
            End If
        Next Process
 
        If FlagWdApp = True Then
            Try
                For Each WdDoc In WordAppl.Documents
                    LstbxDokumente.Items.Add(WdDoc.name)
                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            MsgBox("Word läuft nicht")
        End If
 
    End Sub
 
    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtnOK.Click
 
        If Not LstbxDokumente.Items.Count = 0 Then
            If LstbxDokumente.SelectedItem = Nothing Then
                LstbxDokumente.SetSelected(0, True)
            End If
            WordAppl.Documents(LstbxDokumente.SelectedItem).Activate()
        Else
            MsgBox("Bitte zuerst ein Dokument öffnen!")
        End If
 
        Me.Hide()
        Dokutool.Show()
 
    End Sub
 
    Private Sub AuswahldialogWord_FormClosing(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        If Not LstbxDokumente.Items.Count = 0 Then
            If LstbxDokumente.SelectedItem = Nothing Then
                LstbxDokumente.SetSelected(0, True)
            End If
            WordAppl.Documents(LstbxDokumente.SelectedItem).Activate()
        Else
            MsgBox("Bitte zuerst ein Dokument öffnen!")
        End If
 
        Me.Hide()
        Dokutool.Show()
 
    End Sub
 
End Class