אופיס 365 בעית התנגשות בין שני מאקרואים

[זבי]

ערכתי איזה מאקרו בוורד, והשתמשתי בתווים כללים גם כן, להלן הבאתי את המאקרו שהקלטתי בהחלף את ב.... ואז פתאום כל המאקרואים שהקלתטי וערכתי עד כה לא עבדו לי והמחשב אמר לי שיש איזה שגיאה והביא את הקוד שלה, וכך כל המקרואים לא עבדו פתאום, אז יצאתי מהתוכנה ושוב נכנסתי והכל עבד, אבל ברגע שאני משתמש שוב במאקרו הספציפי הזה, התוכנה עוד פעם מודיעה שיש שגיאה במאקרואים כשאני בא להשתמש איתם. מה ניתן לעשות למנוע התנגשות כזו? או מה לא עשיתי טוב?
Sub הצמדת_גרשיים_רחוקים_לטקסט()
'
' הצמדת_גרשיים_רחוקים_לטקסט Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """ <*> """
.Replacement.Text = """^&"""""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " """""""
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = """"" "
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[Yisrael]

יעזור אם תעלה את הודעת השגיאה ואת השורה שמסומנת כשעולה השגיאה אם יש.