מאקרו להזרחה, ביטול הזרחה וחיפוש הזרחה

[מהדיר ספרים - ארכיון]

תאריך ההודעה המקורית: 09/07/2023 22:31

רצו"ב מאקרו רב תכליתי לעבודה עם הזרחה.
אצלי עשיתי קיצור דרך של ALT+C שני מקשים צמודים [אני משתמש ביד ימין בשבילם]
יש לו 3 תפקידים:

1. אחרי שטקסט נבחר, לחיצה על הקצ"ד תזריח את הטקטס.
2. טקסט עם הזרחה שנבחר, המאקרו יבטל את ההזרחה וילבינו כשלג.
3. אם שום טקסט לא נבחר, הפעלת המאקרו תחפש את הטקסט המסומן הבא. [מחפש כל
   הצבעים לא רק צהוב].
   כתוצאה מכך, אם מחפשים טקסט מוזרח, ALT+C ימצא אותו. לחיצה שניה תבטל את
   ההזרחה.
   כדי לחפש את המקום המסומן הבא מבלי למחוק את הראשון, יש לעשות חץ קדימה ואז
   ללחוץ שוב על הקצ"ד.
   כשיש קטע מסומן בצהוב שטיפלתי בו, אני עולה עם החץ למעלה [לצאת מהשטח הצהוב]
   ולחצתי על קיצור הדרך פעמיים, פעם ראשונה סימן אותו ופעם שניה הלבינו.

Sub הדגשצהוב()

' Check if text is selected
If Selection.Type = wdSelectionIP Then
    ' No text selected, search and select next highlighted text
    Dim rng As Range
    Set rng = ActiveDocument.Range

    ' Set the starting point to the current selection
    rng.Start = Selection.End

    ' Find the next highlighted text
    With rng.Find
        .ClearFormatting
        .Highlight = True
        .Wrap = wdFindStop
        .Execute
    End With

    If rng.Find.Found Then
        rng.Select
    Else
        MsgBox "אין יותר טקסט מסומן עד סוף המסמך. שים לב: החיפוש לא

כולל את הערות השוליים."
End If
Else
' Check if the selected range is already highlighted
If Selection.Range.HighlightColorIndex = wdYellow Then
' If highlighted, remove the highlighting
Selection.Range.HighlightColorIndex = wdNoHighlight
Else
' If not highlighted, apply yellow highlighting
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow
End If
End If
End Sub

עבדתי קשה כדי שיחפש גם בהערות השוליים לאחר שסיים לחפש בטקסט הראשי, ולא עלתה
בידי. [אי לכך מתקבלת הודעה "אין יותר טקסט מסומן עד סוף המסמך. שים לב:
החיפוש לא כולל את הערות השוליים."

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

--

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 09/07/2023 22:40

ייש"כ עצום ורב.
לפי איך שהצגת זאת כאן, הבנתי סוף סוף עד כמה הוא שימושי.
ירבו כמותך בישראל!

מאת: [email protected]

[מאקרו vba - ארכיון]

תאריך ההודעה המקורית: 10/07/2023 13:57

תנסה את זה אולי זה יעבוד גם בהערות שוליים (וסיום), לא בדקתי את זה.

Sub הדגשצהוב()

' בדוק אם טקסט נבחר
If Selection.Type = wdSelectionIP Then
    ' לא נבחר טקסט, חפש ובחר בטקסט המודגש הבא
    Dim rng As Range
    Set rng = ActiveDocument.Range
    For i = 1 To 3

        ' הגדר את נקודת ההתחלה לבחירה הנוכחית
        rng.Start = Selection.End

        ' מצא את הטקסט המודגש הבא
        With ActiveDocument.StoryRanges(i).Find
            .ClearFormatting
            .Highlight = True
            .Forward = True
            .Wrap = wdFindAsk
            .Execute
        End With

        If rng.Find.Found Then
            rng.Select
        Else
            MsgBox "אין יותר טקסט מסומן עד סוף המסמך. "
        End If
Else
    'אם נבחר טקסט בדוק אם הטווח שנבחר כבר מודגש
    If Selection.Range.HighlightColorIndex = wdYellow Then
        'אם מודגש, הסר את ההדגשה
        Selection.Range.HighlightColorIndex = wdNoHighlight
    Else
        ' אם לא מודגש, החל הדגשה צהובה
        Options.DefaultHighlightColorIndex = wdYellow
        Selection.Range.HighlightColorIndex = wdYellow
    End If
End If

End Sub

[מהדיר ספרים - ארכיון]

תאריך ההודעה המקורית: 10/07/2023 14:00

חשבתי עליך. קיויתי שתושיט יד.
הוצאתי אתמול אולי שעתיים במצטבר בנסיונות.
אני לא יודע כלום בתכנות.
התשתמשתי בCHAT GPT
בתחילה הקלטתי הזרחה.
ביקשתי מצ'אט שיעשה לו TOGGLE
בשלב שלישי ביקשתי שכשלא נבחר טקסט שיעשה חיפוש.
לאחר כמה נסיונות קיבלתי את ששלחתי.
לעבור להערות שוליים בשום אופן לא עבד.
הוא הציע והתנצל שוב ושוב, קיבלתי תגובות שונות, באחד לא עבר להערות אלא
להתחלת הטקסט הראשי, אח"כ כן עבר לסימון הראשון בהערות אבל בלחיצה שניה חזר
לראשי, אח"כ קיבלתי הודעה שאין סימונים בהערות השוליים, אלו בערך הבעיות שהיו,
אבל כל פעם שאמרתי לו איזו תוצאה קיבלתי הוא שינה את זה והלכנו בסיבובים עד
שהתייאשתי.
אנסה את שלך עוד מעט.

--

[ש. כהן - ארכיון]

תאריך ההודעה המקורית: 10/07/2023 16:29

רק אם אפשר לפרט ולהסביר היאך עושים מכל הכיתוביות הנ"ל באנגלית מאקרו, כלומר
איפה צריך להעתיק את הנ"ל ולהדביק וכו' וכו'

מאת: [email protected]

--
תודה רבה ויום נפלא
ש. כהן

[ש. כהן - ארכיון]

תאריך ההודעה המקורית: 10/07/2023 16:31

סליחה, רק עכשיו ראיתי שיש על כך שרשור נפרד, ובחבורה קדישא דנן ביארו בטוטו"ד
את הענין

--
תודה רבה ויום נפלא
ש. כהן

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 16:44

מחילה על הקפצת האשכול הישן, בדיוק עלה לי בחיפוש, מישהו בדק את המאקרו של הרב
'מאקרו'? ישר כח.

ב-יום שני, 10 ביולי 2023 בשעה 16:31:41 UTC+3, ש. כהן כתב/ה:

[מהדיר ספרים - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 16:46

מה השאלה שלך? אני שלחתי לך בשעתו קליפ שמסביר מה לעשות עם המאקרו שלי של
הזרחה. אם זאת השאלה שלך.

מאת: מבואות ותולדות

--

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 16:47

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

מאת: [email protected]

[מהדיר ספרים - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 19:26

של הרב מאקרו לא עזר.
שלי עובד מצויין. אבל לא בהערות השוליים.

מאת: [email protected]

--

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 19:33

העתקתי ולא עשה כלום, תוכל להעתיקו שוב? תודה רבה.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207
מעוניינים במבוא לספר? ביוגרפיה לחיבור כלשהו?* תולדות לסבא שלכם?** - ב"ה
בעל ניסיון בכתיבת מאות מבואות תולדות והקדמות לספרים שונים, עורך ספרי
היסטוריה וספרים נוספים.*

מאת: [email protected]

[יהושע ו - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 19:36

אפשר בבקשה את הסרטון?

בתודה מראש

מאת: [email protected]

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 20:24

לידיעת השואלים:
לא צריך מאקרו צריך להגדיר לפקודה שמתחילה בhighlight או משהו דומה קיצור
מקשים.
יש שניים (אחת עם תוספת שתי אותיות) ואחת מהן עושה את העבודה.
בהצלחה.

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 20:48

בברירת המחדל פקודה זו ללא קיצור מקשים, יש להגדיר לה קיצור מקשים.
[image: image.png]

[מהדיר ספרים - ארכיון]

תאריך ההודעה המקורית: 08/01/2024 21:44

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

--