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.
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.
Kod:
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