כללי נוסחה להחלפת טקסט

[זאבי]

האם יש אפשרות להפוך בקלות טקסט שלם?
דהיינו את כל התהלים להתחיל מהסוף להתחלה לפי מילים
הללוקה קה תהלל וכו'

 

[אברהם]

היכנס לוורד, הקש Alt+F8 (פקודות מאקר&#1493.
בתיבה "שם המאקרו" רשום LtrRun והקש על צור.

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

 

[זאבי]

משום מה זה לא עובד לי בדיוק טוב
הוא מחליף בחלק מהטקסט מילים ובחלק אותיות

 

[זאבי]

איך עושים קיצור דרך למאקרו ?
אולי שם הבעיה שלי

 

[צורת הדף]

מאקרו להחלפת טקסט מלמטה למעלה:

העתק ממה שכתבתי כאן

פותחים VBA (ע"י Alt+F11), ומדביקים הקוד:

Sub ChangeWordsDirection()
For i = 1 To ActiveDocument.Words.Count
Set rng = ActiveDocument.Words(i)
mywords = rng & mywords
Next
Selection.TypeText (mywords)
End Sub

לפני שמריצים המאקרו ממולץ להשים ריווח לפני כל סוף פיסקה (לפני האנטר), אחרת יצמדו שני מילים ראשונים. וגם למחוק כל ה-Punctuation marks (נקודות, נקודתיים, פסיק וכו').

אם לא הסדרת דווח.