@מענין-לשמוע זה עובד
Sub HighlightAndAddQuotesHebrewBi()
Dim selectedRange As Range
' הגדרת הטווח שנבחר
Set selectedRange = Selection.Range
' בדיקה שנבחר טקסט
If Selection.Type = wdSelectionIP Then Exit Sub
' הדגשת הטקסט (גם רגיל וגם לשפות RTL)
selectedRange.Font.Bold = True
selectedRange.Font.BoldBi = True
' הוספת גרש בסוף וביטול הדגשה כפולה
selectedRange.InsertAfter "'"
With selectedRange.Characters.Last.Font
.Bold = False
.BoldBi = False
End With
' הוספת גרש בהתחלה וביטול הדגשה כפולה
selectedRange.InsertBefore "'"
With selectedRange.Characters.First.Font
.Bold = False
.BoldBi = False
End With
' העברת הסמן לסוף הקטע וביטול הדגשה להמשך כתיבה
Selection.Collapse wdCollapseEnd
Selection.Font.Bold = False
Selection.Font.BoldBi = False
End Sub

