@menajemmendel
דבר ראשון אף לא חייב לך כלום אז נא להרגיע
תבקש בצורה יפה יותר
ובנוגע לשאלה שלך
תכתוב ככה
Do
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Style = singnon_actual
.Forward = True
.Format = True
.Wrap = wdFindStop
End With
Selection.Find.Execute
If Selection.EndOf(wdStory) Then
Exit Do ' Exit the loop if the end of the document is reached
End If
Selection.MoveLeft Unit:=wdCharacter, Count:=1
'Selects a first word and applies a style to it
Selection.MoveEndUntil Cset:=" ", Count:=wdForward
Selection.Style = ActiveDocument.Styles(nombre_del_Nuevo_Estilo)
Selection.MoveDown Unit:=wdParagraph, Count:=1
Loop Until Selection.Find.Found = False
בקוד זה, ההצהרה "If Selection.EndOf(wdStory) Then" בודקת אם הבחירה הגיעה לסוף המסמך, ואם כן, היא יוצאת מהלולאה באמצעות המשפט "Exit Do"