שאלה | מחפש דרך יעילה להרצת "חיפוש והחלפה" של רשימת מילים קבועה

[דאנציג]

@ישיבישער כתב:

חיפשתיו ולא מצאתיו..

משהו שיכול לעזור.

ומצאתי את הפוסט שכתב על זה

[אברהם 0]

@דאנציג למה אתה לא מקליט מאקרו?

[ישיבישער]

@אברהם-0 כתב:

למה אתה לא מקליט מאקרו?

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

[I believe]

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

Sub החלפת_מילים_רבות()
    Application.ScreenUpdating = False
    ' =========================================================================
    ' שורות ההחלפה - ניתן לערוך בקלות
    ' =========================================================================
    החלף "סברה", "סברא"                   '1
    החלף "על ליבא", "אליבא"               '2
    החלף "רב חיים", "ר' חיים"             '3
    החלף "קושיה", "קושיא"                 '4
    החלף "גבנה", "גבנא"                   '5
    החלף "כאימא", "קיימא"                 '6
    החלף "קיימלון", "קיימא לן"            '7
    החלף "הכול פנים", "על כל פנים"        '8
    החלף "מלכס", "מלקות"                  '9
    החלף "פסיחה", "פתיחה"                 '10
    ' =========================================================================
    Application.ScreenUpdating = True
    MsgBox "תהליך ההחלפות הסתיים בהצלחה!", vbInformation, "אנה - עוזרת פיתוח"
End Sub

Sub החלף(ByVal txtFind As String, ByVal txtReplace As String)
    'פונקציית עזר
    Dim rng As Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = txtFind
        .Replacement.Text = txtReplace
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
End Sub

[ישיבישער]

@I-believe כתב:

בכל מקרה, מצורף מאקרו נוח שהכנתי בעבר עבור החלפות מרובות

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

[אברהם 0]

@ישיבישער אם אני רוצה להוסיף בפקודת מאקרו דברים בודדים אני עושה כך:

כתבתי לדוגמא 3 פקודות מאקרו להחלפה עם רווח בין כל החלפה, תסמן א' מהם ותעתיק אותו באחד הרווחים. שם תכתוב מה שאתה צריך במקום למשל 5 תכתוב - 8 ובמקום הנהגה - חומש

חשוב להדגיש שטעות אחת משבשת את כל הפקודות! כדאי לשמור בתור קובץ TXT את כל המאקרואים. בהוספת פקודות בדר"כ לא אמור להיות בעיה.

With Selection.Find
.Text = "5"
.Replacement.Text = "הנהגה"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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

With Selection.Find
.Text = "4"
.Replacement.Text = "משפט"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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

With Selection.Find
.Text = "6"
.Replacement.Text = "מוסר"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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

[ישיבישער]

@אברהם-0 כתב:

אם אני רוצה להוסיף בפקודת מאקרו דברים בודדים אני עושה כך...

תודה על המענה, אבל נראה לי שלא כל כך הובנתי.

הקושי שלי הוא לא איך לערוך את שורות הקוד עצמן , אלא השלב הטכני שלפני: איך אני בכלל מכניס קוד מוכן לתוך וורד ללא הקלטה?

עד היום כל המאקרואים שלי נוצרו אך ורק דרך לחצן "הקלטת מאקרו" של וורד.
אין לי מושג:

1. איפה פותחים את עורך הקוד כדי להדביק את הקוד ש-@I-believe הביא לי?
2. איפה צריך להדביק אותו כדי שוורד יזהה אותו?
3. ואיך בסוף התהליך אני הופך את המאקרו הזה ללחצן נגיש בסרגל הכלים המהיר או משייך לו קיצור מקשים?

אשמח מאוד להסבר בענין, תודה מראש.

[אברהם 0]

@ישיבישער כשאתה בוורד תלחץ ALT F11

[ישיבישער]

@אברהם-0 כתב:

כשאתה בוורד תלחץ ALT F11

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

[ישיבישער]

ישיבישער כתב:

איך עושים, מה ואיפה עושים,

אחי, להגיד לי "תלחץ ALT + F11" זה כמו להגיד למישהו שלא יודע לנהוג "פשוט תלחץ על הגז".

זה לא מספיק, כי גם אם אני לוחץ על הקיצור ונפתח לי חלון הקוד:

אני לא יודע איפה בדיוק להדביק את הקוד בתוך עץ התיקיות שם (באיזה "מודול" או קובץ תבנית) כדי שזה יעבוד בכל קובץ וורד שאפתח.

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

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