For Each Paragraph As Word.Paragraph In oDoc.Paragraphs
            Dim Wort As String = GetrowText(Paragraph.Range) 'Den Text ohne 
            ' Leerzeichenn am Anfang und Ende und ohne Absatzzeichen 
            If Not Wort = "" Then
                Dim found() As DataRow = ds.Tables("Übersetzungen").Select( _
                  "Deutsch = '" & Wort & "'")
                If found.Count > 0 Then
                    Paragraph.Range.Text = found(0).Item("Englisch") _
                      'Paragraph.Range.FormattedText.Text.Replace(Wort, found( 
                    ' 0).Item("Englisch"))
                    Paragraph.Range.HighlightColorIndex = HFound
                Else
                    Paragraph.Range.HighlightColorIndex = HNotFound
                    NotFounds.Add(Paragraph.Range.Text)
                End If
            End If
        Next Paragraph