Word - Vurgulanmış cümlelerin listelenmesi

[necati]

Merhabalar,
Aşağıdaki kod ile bir dökümandaki (kırmızı, mavi vs. renkler isteğe bağlı) vurgulanmış cümleleri yine aynı dökümanın en altına raporlamaktayım. Fakat raporda vurgular olmadan cümleler peşpeşe sıralanmakta. Yapmak istediğim şey hem cümlelerdeki renk vurguları aynen gelsin, hem de her renk değişiminde cümle grupları arasına bir parafraf bıraksın. İlgilenenlere teşekkür ederim.

Sub VurguluKelimeSec()
Dim hah As String
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = ""
        .Format = True
        .Highlight = True
            ReDim b(1000)
            Do While .Execute
                i = i + 1
                hah = Selection.Text
                b(i) = hah
                Selection.MoveRight Unit:=wdCharacter, Count:=1
            Loop
        .Execute
    End With
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:="Rapor:"
    For e = 1 To i
    Selection.TypeText Text:=b(e)
    Next
End Sub

 

[necati]

Soruma test belgesi ekledim.