@ששמעון
יישר כח,
הסתדרתי
זה המאקרו:
Sub Macro5()
'
' Macro5 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = Selection.Range
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = -721354753
With Selection.Find
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

@ששמעון
איך אני עושה מאקרו בוורד, אם אני רוצה לחפש כל פעם מילים משתנות, לפי בחירה, וכל פעם שיחפש את המילים הנבחרות ויהפוך אותם לצבע אדום?
ניסיתי לעשות והוא הופך את המילים של החיפוש הראשון שעליהם יהיה את המאקרו, ולא כל פעם לפי הבחירה