עזרה | החלפת סוגריים בוורד

[dmp]

@מלאכת-מחשבת תנסה את זה

ArrayString = Array("בראשית", "שמות")
For Each s In ArrayString
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\((" & s & ")(*)\)"
        .Replacement.Text = "{‎\1\2‎}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchDiacritics = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next

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

[מגדלים]

@dmp עובד!
מעולה!!!
אם תוכל גם לפנות ל"איך להוסיף שאילה בפקודה בוורד, ועוד."

[מלאכת מחשבת]

@dmp ג"א מצטרף לדברי @מגדלים , ביצוע יפה!!!
וכשאני מוסיף הרבה דברים שאני צריך לרדת שורה האם אני צריך להוסיף משהו מיוחד, או סתם להמשיך בתוך הסוגריים הזה?

[מגדלים]

@dmp האם תוכלו לקצר את הקוד הנ"ל לקוד זה שכרגע זה עובד לי רק על המילים שמופיעות בלולאה בשורה מס' 1 למעלה בלי תוספת מילים ואני רוצה שזה כן יתאים לקוד הנ"ל של @מלאכת-מחשבת :

arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים")

For f = 0 To UBound(arrFind)
    Selection.Find.Text = "(" & arrFind(f) & ")"
    Selection.Find.Replacement.Text = "{" & arrFind(f) & "}"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next

כמובן להכניס בתוך המאקרו וכנ"ל.

[dmp]

@מגדלים לא ניתן להוסיף בשורה 1?

[מגדלים]

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

[dmp]

@מגדלים
מבחינת הקוד זה זהה לקוד שהבאתי לעיל, חוץ משני הבדלים:
א. הטקסט של החיפוש והחלפה, תנסה להוסיף * לפני הסוגר השני, שהמשמעות היא לחפש "בראשית" שאחריו כל תו שהוא (או יותר מתו אחד) ואחר כך סוגר. וכן תעשה בטקסט של ההחלפה.
ב. עליך להגדיר שהחיפוש יתבצע עם תוים כלליים, ולכן תוסיף את השורה הבאה (בין שורה 5 ל-7):

Selection.Find.MatchWildcards = True

כמו כן מומלץ להוסיף את השורות של ClearFormatting (שורות 2-3 בקוד שהבאתי למעלה) על מנת שהחיפוש לא יתבסס על עיצוב שהגדרת בעת חיפוש קודם, פעולה זו מוחקת את הגדרת העיצוב הנוכחית ומגדירה חיפוש ללא עיצוב.
אם זה עדיין לא עובד, פשוט תשתמש בקוד הנ"ל עם טקסט החיפוש של @מלאכת-מחשבת
בהצלחה!!!

[מגדלים]

@dmp אם כבר ..
כשאני רוצה לכתוב כנ"ל בתיבת חיפוש שיחליף אותיות באנגלית.. ואני רוצה עם ההגדרה כמו שיש בוורד של "חפש את כל המילים הדומות" דהיינו גם אותיות רשיות וגם אותיות קטנות אלו מילים אני צריך להכניס?
כזה:

[מגדלים]

@dmp בשורה 1 כשיש לי יותר מילים מכמה שנכנס בשורה איך אני יורד שורה?

[dmp]

@מגדלים

"בראשית _
שמות"

וכו'
דהיינו רווח ואחריו_

[מלאכת מחשבת]

פוסט זה נמחק!