מאקרו חיפוש (החלפה לקטע הנבחר בלבד)

[אלחנן אריאל]

שלום רב!

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "@77"
        .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

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

תודה רבה!

 

[tkh]

תכניס בתוך המאקרו גם את בחירת הקטע (קטע שלם בוחרים כשעומדים בתחילת הקטע ע"י SHIFT+CTRL+חץ למטה).

 

[אלחנן אריאל]

כל פעם זה קטע באורך אחר

 

[tkh]

אבל זה פסקה אחת שלמה או יותר?

 

[אלחנן אריאל]

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

 

[tkh]

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

 

[צורת הדף]

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

פתרון חלקי:
זה יפעל על כל הקטע/ים הנבחרים, לא על טקסט הנבחר בלבד.

Set p = ActiveDocument.Range(start:=Selection.Paragraphs(1).Range.start, End:=Selection.Paragraphs(Selection.Paragraphs.Count).Range.End)
    With p.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "@77"
        .Replacement.Text = "^<לא ניתן לפרסם מיילים באופן פומבי>"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With

 

[אלחנן אריאל]

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

 

[moishy]

    Dim Rng As Range

    Set Rng = Selection.Range
    With Rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "@77"
        .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
        .Execute Replace:=wdReplaceAll
    End With

 

[צורת הדף]

תיקון קל:

        .Wrap = wdFindStop