אופיס 365 עזרה | בהחלפה בוורד

הירשם עכשיו!
  • הוסף לסימניות
  • #1
איך אני מחפש כמה מילים דהיינו או / או, ומבצע עבור כולם החלף במילה אחת, דהיינו שהמחשב יחפש כמה מילים או בראשית או שמות או ויקרא ואת כל המילים שהוא מוצא יחליף למילה אחת, תוך פקודה אחת ?
 
  • הוסף לסימניות
  • #2
אין כזו אפשרות מובנית בתוך הוורד, אבל כאן יש תוסף שעושה את זה.
 
  • הוסף לסימניות
  • #4
www.prog.co.il

אופיס 365 - בקשה | פיתרונות ופקודות מאקרו לוורד.

אני עובד על כמה ספרים (עדיין בתחילת עריכתם...) ואני נתקל אין ספור פעמים בצורך לסדר כמה דברים באמצעות מאקרו מסוים אביא לכאן כמה דברים ואשמח שתעזרו לי: א- כשאני רוצה להחליף רק חלק מהסוגריים מכזה '() לכזה'{}' וכדו אבל לא את הכל דהיינו כל סוגריים שמתחיל במילה מסוימת כגון בראשית / שמות/ וכד' שיהיה...
www.prog.co.il www.prog.co.il

אם תרצה להחליף את כל המילים במילה אחת
זה הקוד
קוד: 
Sub ניסיון()
arrFind = array("בראשית","שמות","ויקרא","במדבר","דברים")


For f = 0 to Ubound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Replacement.Text = 'החלפה'
    Selection.Find.Execute Replace:=wdReplaceAll
next
End Sub
 
  • הוסף לסימניות
  • #5
נכתב ע"י מתמצא:
אם תרצה להחליף את כל המילים במילה אחת
לחצ/י כדי להרחיב...
תודה ! זה גם יעזור לי, אבל אני צריך גם מאקרו שיחליף לי סוגריים מ-( ל-{ רק איפה שהסוגריים מתחיל במילה כנ"ל בראשית וכו' על אף שכתוב שם עוד מילים... והמילים בראשית ישאר ורק הסוגריים יתחלף.
וכן במקרו כנ"ל האם יש אפשרות להשאיר את המילה הראשונה ורק להוסיף כמו 'חיפוש' "אברהם /יצחק / יעקב /וכו'" וב'החלפה' להוסיף להם "אבינו" בלי להזיז את את המילה הראשונה?
ושוב תודה . עזרת לי מאוד...
 
  • הוסף לסימניות
  • #7
לי זה עובד
תוכל לעלות צילום של השגיאה?
אולי כדאי שנתמד בשרשור הזה ולא נקפוץ על 2 השרשורים
 
  • הוסף לסימניות
  • #9
תנסה עכשיו
קוד: 
Sub ניסיון()
arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים")


For f = 0 To UBound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Find.Replacement.Text = "החלפה"
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
 
  • הוסף לסימניות
  • #11
בבקשה

קוד: 
Sub ניסיון()
arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים")
arrReplace = Array("בראשית_החלפה", "שמות_החלפה", "ויקרא_החלפה", "במדבר_החלפה", "דברים_החלפה")


For f = 0 To UBound(arrFind)
    Selection.Find.Text = arrFind(f)
    Selection.Find.Replacement.Text = arrReplace(f)
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
 
נערך לאחרונה ב:
  • הוסף לסימניות
  • #15
מותר לנצל אותך לעוד כמה דברים קטנים או נלאית משגעונותי?
 

פרוגבוט

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