בירור | בחירת מילה שלמה בוורד

[אברהם 0]

כידוע בוורד אם מסמנים מילה כזאת (בלחיצה עליה פעמיים) ולמשל להדגיש אותה ויש שם מרכאות כגון זה: משא"כ הוא מסמן רק את האותיות משא
יש פקודה בהחלפה שאם אני מסמן את האותיות הראשונות או האות האחרונה שתהיה כולה מודגשת?

[I believe]

@אברהם-0

חפש את:

<[א-ת]@"*[א-ת]@>

כמובן סמן את 'השתמש בתווים כלליים'

---

החלף ב:

^&

ולבחור עיצוב מודגש וכדו'

[אברהם 0]

@I-believe זה מחליף אבל גם מילים שאין בהם בכלל הדגשה.

[I believe]

@אברהם-0 לא זה מה שרצית?

[אברהם 0]

@I-believe רציתי מילה שחציה מודגש ומאחרי המרכאות לא מודגש.

[I believe]

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

[אברהם 0]

@I-believe אם לוחצים פעמיים על מילה בוורד, זה מסמן אותה אבל אם יש בה מרכאות זה מסמן אותה עד המרכאות. כך שאם אני אלחץ על CTRL-B זה ידגיש רק את האותיות הראשונות. איך אפשר לבחור את כל המילה או לחילופין לעשות החלפה שמילה שחלק ממנה מודגש - שתהיה כולה מודגשת.

[I believe]

@אברהם-0 אוקיי, זה אפשרי באמצעות מאקרו, מצורף:

Sub הדגשת_מילת_מרכאות()
' מדגיש מילה המכילה מרכאות אם האות הראשונה שלה מודגשת
    Dim rng As Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Text = "<[א-ת]@[" & Chr(34) & ChrW(1475) & ChrW(8221) & "]*[א-ת]@>"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
        Do While .Execute
            If rng.Characters(1).Bold = True Or rng.Characters(1).BoldBi = True Then
                rng.Bold = True
                rng.BoldBi = True
            End If
            rng.Start = rng.End
            rng.End = ActiveDocument.Content.End
        Loop
    End With
End Sub