VBA Word: Find alle med fed og indsæt i combo ..

Her er måske lidt at starte med - bare til inspiration og ikke testet:

Selection.HomeKey                'Stiller cursor i start af dokument
Selection.Find.ClearFormatting
Selection.Find.Font.Bold = True  'Søgekriterium = Fed
With Selection.Find
    .Text = ""              'Søger ikke efter noget bestemt tekst
    .Forward = True        'Søger fremad
    .Format = True          'Søger efter bestemt format (fed)
    .MatchWholeWord = True  'Finder KUN hele ord
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With

Do Until Selection.Find.Found = False 'Loop til søgekriterium ikke opfyldt
  Selection.Find.Execute  'Udfører selve søgningen
Loop

Som sagt  - blot til inspiration, til der kommer noget bedre ;o)

Funker ikke. Jeg prøvede at ændre din kode til:
Do Until Selection.Find.Found = False 'Loop til søgekriterium ikke opfyldt
        Selection.Find.ClearFormatting
        Selection.Find.Font.Bold = True  'Søgekriterium = Fed
        With Selection.Find
        .Text = ""              'Søger ikke efter noget bestemt tekst
        .Replacement.Text = ""
        .Wrap = wdFindContinue
        .Forward = True        'Søger fremad
        .Format = True          'Søger efter bestemt format (fed)
        .MatchWholeWord = True  'Finder KUN hele ord
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        End With
        Selection.Find.Execute  'Udfører selve søgningen
        If Selection.Find.Found = True Then
            MsgBox Selection.Text
        Else
            MsgBox "Intet fundet"
        End If
    Loop
Men lige meget hjalp det. Andre gode forslag?

Med nedenstående kode, løste jeg selv problemet:

Selection.HomeKey

With Selection.Find
    .ClearFormatting
    .Font.Bold = True
    Do While .Execute(FindText:="", Forward:=True, _
            Format:=True) = True
        With .Parent
            MsgBox Selection.Text
        End With
    Loop
End With

Tak for inspirationen.

nicolaus