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

[אביעד]

@מלאכת-מחשבת
פשוט מאוד
תכנס לחפש והחלף
תכתוב

\(*\)

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

[dmp]

@מלאכת-מחשבת נראה לי שאפשר לעשות קובץ טקסט פשוט שמכיל את כל הערכים לחיפוש כאשר כל מילה בשורה נפרדת כזה:
בראשית
שמות
בבא קמא
ב"ק
וכו' וכו', ואח"כ ניתן לכתוב במאקרו שיחזור שוב ושוב על הפעולה של ההחלפה הנ"ל שתתייחס כל פעם לשורה אחרת מהקובץ של המראי מקומות.

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

@dmp איך, תוכל לכתוב לי מקרו לדוגמא?

[מגדלים]

@אביעד בכלל לא פותר את הפיתרון ל @מלאכת-מחשבת !
מה שביקש.

[dmp]

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

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

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

[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]

@מגדלים

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

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

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

פוסט זה נמחק!