Dim quelldoku As Document
Dim fundwort As String
Dim fundbereich As Range
Dim zwischenspeicher As String
Set quelldoku = ThisDocument
fundwort = "__product_name*/"
Set fundbereich = quelldoku.Range
With fundbereich.Find
.Text = fundwort
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
fundbereich.Find.Execute
Do While fundbereich.Find.Execute = True
fundbereich.Select
zwischenspeicher = Selection.Text
Selection.Expand unit:=wdLine
Loop
End With
MsgBox (zwischenspeicher)