Sub RESIM_NO_BOLD()
On Error Resume Next
Selection.HomeKey Unit:=wdStory
For R = 1 To 999

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Resim Yazısı")

With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

Selection.Words(1).Bold = True
Selection.Words(2).Bold = True
Selection.Words(3).Bold = True
Selection.Words(4).Bold = True
Selection.Words(5).Bold = True
Selection.Collapse wdCollapseEnd
If Selection.Find.Found = False Then Exit For
Next
End Sub