בקשת מידע | מקרו בוורד שיהפוך לי מ1 ל2 ומ2 ל1.

[מגדלים]

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

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

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

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

@dmp אם בלולאה אוכל להחליף מילה אחד לשתים ושתים לאחד בלי שהשתים שהחלפתי מאחד ישתנה, אשמח אם תוכל לבצע כזה פעולה...

[dmp]

@מלאכת-מחשבת תנסה את זה ותעדכן עם עובד

For Each w In ActiveDocument.Words
    Select Case w
     Case "1": w.Text = "2"
     Case "2": w.Text = "1"
     Case "3": w.Text = "4"
     Case "4": w.Text = "3"
    End Select
Next

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

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

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

[dmp]

@מלאכת-מחשבת אמר בבקשת מידע | מקרו בוורד שיהפוך לי מ1 ל2 ומ2 ל1.:

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

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

[מגדלים]

@dmp אני ניסיתי עכשיו "עוד פעם" וזה תוקע לי את הכל.

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

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

[dmp]

@מלאכת-מחשבת צודק!!!
בדקתי עכשיו וזה אכן נתקע, אבל בנוסח הזה זה אכן עובד

For i = 1 To ActiveDocument.Words.Count
Set w = ActiveDocument.Words(i)
    Select Case w
     Case "1 ": w.Text = "2 "
     Case "2 ": w.Text = "1 "
     Case "3 ": w.Text = "4 "
     Case "4 ": w.Text = "3 "
    End Select
Next

[מגדלים]

@dmp עובד!

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

@dmp מעולה!
האם תוכל לעבור על מה שכתבתי כאן https://mitmachim.top/post/363091 ?

[dmp]

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