עזרה | הגדשה מוסתרת בתוך הטקסט

[אפי זינגר]

באמצע טקסט רציף לא מודגש
אם אני לוחץ אנטר, השורה החדשה מודגשת!

גם חפש החלף באמצעות מקרו מזהה הדגשות לא קיימות!

מצורף הקובץ והמקרו
תודה גדולה לעוזרים!
הדגשה נסתרת.docx

Sub DeCodeBold5()
    Dim rng As Range
    Dim objUndo As UndoRecord

    ' --- שלב 1: טיפול במעברי קטע מודגשים ---
    Set rng = ActiveDocument.Range
    With rng.Find
        .ClearFormatting
        .Font.Bold = True
        .Text = "^p"
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = False
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False ' תווים כלליים
        .Execute Replace:=wdReplaceAll
    End With

    ' --- שלב 2: הוספת תגיות סביב טקסט מודגש ---
    Set rng = ActiveDocument.Range
    With rng.Find
        .ClearFormatting
        .Font.Bold = True
        .Text = ""
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .Replacement.Text = "@1^&$1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll
    End With
    
End Sub

[אפי זינגר]

זה בגלל שמוגדר הדגשה לטינית ולא בעברית.