בקשת מידע | עזרה בוורד ב'החלפה' - מאקרו VBA

[יוסף בן חיים]

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

[shishko]

@יוסף-בן-חיים
צודק מתנצל סידרתי את זה
תעדכן שבאמת עובד

Sub החלפת_סוגריים_למשנה()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "("
        .Replacement.Text = ";"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ")"
        .Replacement.Text = "~"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(;)(?~)"
        .Replacement.Text = "\1משנה \2"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(;)(??~)"
        .Replacement.Text = "\1משנה \2"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ";"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "~"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

בהצלחה

[ginyes]

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

[יוסף בן חיים]

@ginyes זו בדיוק הבעיה

[menajemmendel]

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

[יוסף בן חיים]

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

[menajemmendel]

@יוסף-בן-חיים
תעשה חיפוש כמו שכתבתי לך

^13(^$)

ובהחלף תעשה סימון

אחרי זה בחיפוש תעשה סימון, ותחליף אנטר סוגריים לאנטר משנה סוגריים

אחרי זה תעשה אותו דבר על שתי אותיות (כי יש משנה יא יב וכו')

יש דרך ישירה לעשות את זה אבל יותר מסובכת למתחילים

[יום חדש מתחיל]

@יוסף-בן-חיים
https://mitmachim.top/topic/71108/בירור-כיצד-מוסיפים-טקסט-בוורד-לפני-ואחרי-טקסט-שאינו-קבוע/7

[יוסף בן חיים]

@menajemmendel כתב בהסבר | עזרה בורד ב'החלפה':

אחרי זה בחיפוש תעשה סימון, ותחליף אנטר סוגריים לאנטר משנה סוגריים

חלק זה לא הבנתי כוונתך

[menajemmendel]

@יוסף-בן-חיים כתב בהסבר | עזרה בורד ב'החלפה':

חלק זה לא הבנתי כוונתך

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

[יוסף בן חיים]

@menajemmendel לא נמצא תוצאות

[shishko]

@יוסף-בן-חיים תעשה פקודת מאקרו חדשה
ותעתיק מכאן

Sub הוספת_משנה_בין_הסוגריים()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "("
.Replacement.Text = ";"
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ")"
.Replacement.Text = "~"
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(;)(?~)"
.Replacement.Text = "\1משנה \2"
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ";"
.Replacement.Text = "("
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "~"
.Replacement.Text = ")"
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ואז תפעיל על המסמך
לי זה עבד, אם לא עובד לך תעדכן

[דוד משה 1]

פוסט זה נמחק!

[shishko]

פוסט זה נמחק!

[דוד משה 1]

אם נטפרי אז צילום מסך 2024-07-30 192045.rar

[shishko]

@דוד-משה-1
עדיף שתקח מכאן מתוקן גם במקרה של שני אותיות אחרי הסוגריים

Sub הוספת_משנה_בין_הסוגריים()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "("
        .Replacement.Text = ";"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ")"
        .Replacement.Text = "~"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(;)(?~)"
        .Replacement.Text = "\1משנה \2"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(;)(??~)"
        .Replacement.Text = "\1משנה \2"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ";"
        .Replacement.Text = "("
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "~"
        .Replacement.Text = ")"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

בהצלחה תעדכן שעבד

@דוד-משה-1 תודה רבה

[menajemmendel]

@יוסף-בן-חיים כתב בהסבר | עזרה בורד ב'החלפה':

@menajemmendel לא נמצא תוצאות

כנראה לא עשית טוב. האם הבנת את העיקרון של הרעיון שלי?

[יוסף בן חיים]

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

[יוסף בן חיים]

@shishko בהתחלה זה הלך, אבל אח"כ לא, זה מה שמופיע:

[shishko]

@יוסף-בן-חיים
צודק מתנצל סידרתי את זה
תעדכן שבאמת עובד

Sub החלפת_סוגריים_למשנה()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "("
        .Replacement.Text = ";"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ")"
        .Replacement.Text = "~"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(;)(?~)"
        .Replacement.Text = "\1משנה \2"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(;)(??~)"
        .Replacement.Text = "\1משנה \2"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ";"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "~"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

בהצלחה

[יוסף בן חיים]

@shishko ברוך ה' עובד, אשמח אם תוכל לערוך כך שלא יהיה בתוך סוגריים [משנה א במקום (משנה א) ]. ישר כח