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

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

@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 ברוך ה' עובד, אשמח אם תוכל לערוך כך שלא יהיה בתוך סוגריים [משנה א במקום (משנה א) ]. ישר כח

[shishko]

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

[shishko]

@יוסף-בן-חיים
קוד נוסף שקיבלתי מצ'אט GPT

Sub ReplaceTextInParentheses()
    Dim rng As Range
    Dim findText As String
    Dim replaceText As String
    
    Set rng = ActiveDocument.Content
    
    With rng.Find
        .ClearFormatting
        .Text = "\([א-ת]{1,2}\)"
        .Replacement.ClearFormatting
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        
        Do While .Execute
            findText = Mid(rng.Text, 2, Len(rng.Text) - 2) ' Remove parentheses
            
            ' קביעת טקסט להחלפה בצורה דינמית
            If Len(findText) > 0 Then
                replaceText = "משנה " & findText
                rng.Text = replaceText
            End If
            rng.Collapse wdCollapseEnd
        Loop
    End With
End Sub

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