Dim ListOfChangeEntry As New List(Of String)
 
            ListOfChangeEntry.Add("PreName")
            ListOfChangeEntry.Add("Name")
            ListOfChangeEntry.Add("Street")
            ListOfChangeEntry.Add("Postcode")
            ListOfChangeEntry.Add("Place")
 
            WordEvent.OpenWord()
            WordEvent.OpenDocumentFromTemplate( _
              "C:\Users\Morpheus\Documents\Visual Studio 2008\Projects\AiDaBa v" & _
              "1.0.0\AiDaBa v 1.0.0\bin\Debug\source\CouvertTemplate.dotm")
            For Each Name As String In lbxAdressList.Items
                Application.DoEvents()
                Dim i As Integer = 0
                While i < EntryCount
                    If Name = Entry(i).NameToNameCompare Then
                        WordEvent.CopyPage()
                        For Each Pro As String In ListOfChangeEntry
'Hier wird die eigentliche "Suchen und Ersetzen Funktion ausgeführt."                            
WordEvent.ReplaceText("<<" & Pro & ">>", Entry(i).GetValue(Pro))
                        Next
                        WordEvent.PastPage()
                        Exit While
                    End If
                    i += 1
                End While
            Next
 
 
 
 
 
 
 
        Catch ex As Exception
            ErrorEvent.ErrorMessage(Me.Name, "ÖffnenToolStripMenuItem_Click", _
              7, ex)
            WordEvent.CloseDoc(False)
            WordEvent.CloseWord()
            Exit Sub
        End Try

  Friend Sub ReplaceText(ByVal SearchWord As String, ByVal ReplaceWord As _
    String)
 
        WApp.Selection.ClearFormatting()
        WApp.Selection.ClearFormatting()
        With WApp.Selection.Find
            .Text = SearchWord
            .Replacement.Text = ReplaceWord
            .Forward = True
            .Wrap = wdFindeWrap.wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        WApp.Selection.Find.Execute()
        With WApp.Selection
            If .Find.Forward = True Then
                .Collapse(Direction:=wdFindeWrap.wdCollapseStart)
            Else
                .Collapse(Direction:=wdFindeWrap.wdCollapseEnd)
            End If
            .Find.Execute(Replace:=wdFindeWrap.wdReplaceOne)
            If .Find.Forward = True Then
                .Collapse(Direction:=wdFindeWrap.wdCollapseEnd)
            Else
                .Collapse(Direction:=wdFindeWrap.wdCollapseStart)
            End If
            .Find.Execute()
        End With
    End Sub