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

[מאקרו 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

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

--