Dim rng As Word.Range = objDoc.Content
        Dim intFound As Integer = 0
        Dim ausgabe As String = Nothing
        rng.Find.ClearFormatting()
        rng.Find.Forward = True
        rng.Find.Text = "{(.+?)}"
 
        rng.Find.Execute()
 
        Do While rng.Find.Found = True
            intFound += 1
            rng.Find.Execute()
 
        Loop
 
        MessageBox.Show("Gefundende Strings: " & intFound.ToString())