@יעב-ץ
בוודאי רק שזה יותר נח.
תלחץ F8 ותחפש את המאקרו הערת וכו' ותלחץ על הפעל.

לא הבנתי מה הכוונה

@יעב-ץ כתב:

על התנהגות המסמך

איך אתה רוצה שהוא ידע מה לסמן? זה דברים קבועים או תיקונים?

@יעב-ץ כתב:

בלי להכביד על התוכנה או המסמך

לכאורה זה לא אמור להכביד, אפשר להגדיר כל כמה דקות או יופעל.

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

Spoiler

@יעב-ץ
נכון,
יצרתי מאקרו [ושיפצתי בעזרת קלוד].
נשאר לך רק לעשות קיצור דרך.

Sub הערת_סקירה_בהערת_שוליים()
    Dim cmt As Comment
    Dim txt As String

    txt = InputBox("הקלד את הערת הסקירה:", "הערת סקירה")
    If txt = "" Then Exit Sub

    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Range.HighlightColorIndex = wdYellow

    ActiveWindow.View.SeekView = wdSeekMainDocument

    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

    Set cmt = Selection.Comments.Add(Range:=Selection.Range)
    cmt.Range.Text = txt

    ' סגירת חלונית הסקירה - אחרי ההוספה
    If ActiveWindow.Panes.Count > 1 Then
        ActiveWindow.Panes(2).Close
    End If
    ActiveWindow.View.SeekView = wdSeekMainDocument
End Sub

@יעב-ץ
לא קיים!
גם הרב @יואל-שילה בבקלות לא מצא לזה פתרון.
האפשרות היחידה היא להזריח את הטקסט בהערה ולכתוב הערת סקירה בהפנייה להערת שוליים / סיום.

@איש-קטן
זה לא אתר,
תלחץ על הקישור ותוסיף אות P בסוף שיהיה ZIP
אחרי שהקובץ ירד תלחץ לחצן ימני ותבחר חילוץ הכל
[בוינוודוס 11, ב10 צריך תוכנת חילוץ WINRAR או WINZIP].

@איש-קטן
תראה דוגמה מקלוד [חינמי].

צריך להוסיף P בסוף ולחלץ.

comic.zi

@איש-קטן
השאלה לא כמה היא כבדה אלא כמה עמודים.

אם זה תרגום להבנה בלבד אפשר בAI לקבל תוצאה בהחלט סבירה.
מומלץ לעלות כל פעם כמה עמודים, ולראות מתי הוא מתחיל להמציא ולפספס.

@aiib כתב:

לא ישלמו בכל פעם מנהל הסניף יצטרך להמתין לגמר הפרסומות?

אפשר להקיש 3 פעמים סולמית, לנתק ולהתקשר שוב.
או לשלם 10 ש"ח לחודש.

@itamar
שלחתי

@itamar
בבקשה מדריך למשתמש בעברית

תתחדש ותהנה

cv_dcpj1310_1360dw_4350_4550_uke_HE-compressed1.pdf

@חד-גדיא
כוונתך שזה 'חשוך' ולכן א"א למחוק,
וזה בגלל שאתה לא הבעלים של הקובץ ולכן אתה לא יכול למחוק אותו [כמו שכתב @האיש-הלבן ].
במקום זה תסמן את האפשרות האחרונה 'ההצעה לא שימושית'.

@0772637000
הקדמת אותי...

@אברהם-0
כדאי לגבות את הקבצים לפני שאתה מפעיל את הקובץ BAT.

מצרף את מה שקלוד כתב לי
צריך להוסיף T
תיקון גרש כפול למרכאות.BA

@אברהם-0
תפתח אותם בוורד ותעשה החלפה [קונטרול H].

@aulpan
יש גם את זה
https://www.highrez.co.uk/downloads/XMouseButtonControl.htm

תוספת לדברי הרב @שמעון-פרידנן,
אם מדובר תוך כדי כתיבה, אפשר לייבא את כל המקור, להפעיל מעקב אחר שינויים ולכתוב את הפירוש, אח"כ להפעיל את המאקרו המצורף (לא אני כתבתי).

ולכאורה את העיצוב יותר נוח ופשוט לעשות בתוכנות לעימוד וטקסט רץ.

Sub ביאור_משולב()
Dim doc As Document
Dim rev As Revision
Dim rng As Range
Dim i As Long
Dim tempRange As Range

Set doc = ActiveDocument

' 1. בדיקה אם יש שינויים
If doc.Revisions.Count = 0 Then
MsgBox "לא נמצאו שינויים במסמך.", vbExclamation
Exit Sub
End If

' 2. בחירת הגופן - נשתמש בטקסט זמני כדי "ללכוד" את בחירת המשתמש
MsgBox "בחלון הבא, בחר את הגופן והעיצוב שברצונך להחיל על התוספות.", vbInformation

' יצירת טווח זמני בסוף המסמך כדי לקלוט את העיצוב
Set tempRange = doc.Range(doc.Content.End - 1, doc.Content.End - 1)
tempRange.Select

' הצגת חלון הגופן
If Application.Dialogs(wdDialogFormatFont).Show = -1 Then
' המשתמש אישר - העיצוב כעת נמצא ב-Selection.Font
Else
' ביטול
Exit Sub
End If

' 3. ביצוע השינויים
Application.ScreenUpdating = False
doc.TrackRevisions = False ' כיבוי מעקב כדי שהעיצוב לא ייחשב כשינוי חדש

' מעבר על השינויים מהסוף להתחלה
For i = doc.Revisions.Count To 1 Step -1
Set rev = doc.Revisions(i)

' טיפול בתוספות טקסט
If rev.Type = wdRevisionInsert Then
' הגדרת הטווח של השינוי
Set rng = rev.Range

' קבלת השינוי (הופך לטקסט רגיל)
rev.Accept

' החלת העיצוב מהדגימה ששמרנו ב-Selection
rng.Font = Selection.Font

' טיפול במחיקות (פשוט לאשר שימחקו)
ElseIf rev.Type = wdRevisionDelete Then
rev.Accept

' אישור שאר סוגי השינויים
Else
rev.Accept
End If
Next i

' ניקוי: מחיקת הטקסט הזמני אם נוצר (במקרה שהסמן היה בסוף)
' והחזרת המצב לקדמותו
Application.ScreenUpdating = True

MsgBox "הפעולה הושלמה! כל התוספות עוצבו לפי בחירתך.", vbInformation
End Sub

@לייזער-ס
א. תנסה לחפש קוד אחר (יכול להיות שהקוד הנוכחי מתחבר אבל משובש).
ב. יש שעון שבת עם הרבה תוכניות, יש כמה סוגים נמכר גם במשנת יוסף.

צילום מסך 2026-09-30 150845.zi

@YAHBDK
לא יודע האם זה יקדם אותך, בשלב ראשון בניתי מאקרו שישנה את הסגנונות בטקסט, הבעיה היא שהכותרות גם מוגדרות באותו סגנון, ולכן צריך לעבור על זה.
מתוקן

Spoiler

Sub מאקרו()
'
' מאקרו Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("טקסט_רץ_גמרא")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("טקסט_רץ_פירוש")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

@YAHBDK
כל תחילת מקטע תעשה הערת שוליים חדשה.

Spoiler

@YAHBDK
לכאורה אין צורך בתוסף, תגדיר סגנונות לכותרות, לפונט של הגמ' ולפונט של הפירוש,
ואת החלק התחתון בהערת שוליים.

@מטען-נייד
תפנה לשירות לקוחות, יש להם שירות מעולה [גם עם המחשב כבר לא באחריות].
09-8304848