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

[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

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

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

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

[menajemmendel]

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

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

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

[shishko]

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

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

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

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