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

[הללוהו ב ו]

איך אני מחפש כמה מילים דהיינו או / או, ומבצע עבור כולם החלף במילה אחת, דהיינו שהמחשב יחפש כמה מילים או בראשית או שמות או ויקרא ואת כל המילים שהוא מוצא יחליף למילה אחת, תוך פקודה אחת ?

 

[Rרחמים]

אין כזו אפשרות מובנית בתוך הוורד, אבל כאן יש תוסף שעושה את זה.

 

[הללוהו ב ו]

אין כזו אפשרות מובנית בתוך הוורד,

מאקרו יש?

 

[מתמצא]

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

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

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

 

[הללוהו ב ו]

אם תרצה להחליף את כל המילים במילה אחת

תודה ! זה גם יעזור לי, אבל אני צריך גם מאקרו שיחליף לי סוגריים מ-( ל-{ רק איפה שהסוגריים מתחיל במילה כנ"ל בראשית וכו' על אף שכתוב שם עוד מילים... והמילים בראשית ישאר ורק הסוגריים יתחלף.
וכן במקרו כנ"ל האם יש אפשרות להשאיר את המילה הראשונה ורק להוסיף כמו 'חיפוש' "אברהם /יצחק / יעקב /וכו'" וב'החלפה' להוסיף להם "אבינו" בלי להזיז את את המילה הראשונה?
ושוב תודה . עזרת לי מאוד...

 

[הללוהו ב ו]

קוד:

לא עובד לי, זה נתקע לי.

 

[מתמצא]

לי זה עובד
תוכל לעלות צילום של השגיאה?
אולי כדאי שנתמד בשרשור הזה ולא נקפוץ על 2 השרשורים

 

[הללוהו ב ו]

לי זה עובד

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

 

[מתמצא]

תנסה עכשיו

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

 

[הללוהו ב ו]

תנסה עכשיו

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

 

[מתמצא]

בבקשה

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

 

[הללוהו ב ו]

בבקשה

השני עדיין עושה לי בעיות...

 

[מתמצא]

השני עדיין עושה לי בעיות...

עדכנתי
תבדוק שוב

 

[הללוהו ב ו]

הידד !!!!
עובד!!!

 

[הללוהו ב ו]

מותר לנצל אותך לעוד כמה דברים קטנים או נלאית משגעונותי?

 

[מתמצא]

תעבור לפרטי ampSoftware1אין לכתוב כתובת מייל