מאקרו לוורד

[a0504107181 gma - ארכיון]

תאריך ההודעה המקורית: 19/03/2023 22:45

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

רוב תודות

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 19/03/2023 23:32

לא זכיתי להבין למה כת"ר צריך מאקרו:
סמן את הטקסט>ctrl+י>עיצוב
[image: image.png]

[a0504107181 gma - ארכיון]

תאריך ההודעה המקורית: 19/03/2023 23:45

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

ב-יום ראשון, 19 במרץ 2023 בשעה 23:32:45 UTC+2, מעשה הכתב כתב/ה:

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 19/03/2023 23:52

הבנתי.

זו לא פקודה כ"כ מסובכת:
*יש להקדים שיש להשתמש אך ורק במקשי המקלדת *
אתה בוחר טקסט
מפעיל הקלטת מאקרו
קונטרול+י
יורד עם לחצן tab עד לעיצוב
פותח ע"י אנטר
עולה עם מקשי הניווט לגופן
יורד עם tab לצבע גופן ובוחר אדום

[a0504107181 gma - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 00:02

ייש"כ
כשאני בוחר טקסט, ופותח את תיבת חיפוש והחלפה, הוא לא מכניס אוטמטית את המילים
לתיבת החיפוש, אלא אני צריך להעתיק ולהדביק אותם בתוך תיבת החיפוש, ו[כנראה]
לכן במאקרו נרשמים המילים האלו לחיפוש והחלפה, ולא כל מילה שתיבחר

ב-יום ראשון, 19 במרץ 2023 בשעה 23:52:53 UTC+2, מעשה הכתב כתב/ה:

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 00:06

אם אתה מסמן את הטקסט ולוחץ קונטרול+י הוא לא מדביק לך את הטקסט לחיפוש והחלפה?
אצלי עכ"פ הוא מעתיק אותם לתיבת חיפוש והחלפה.

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 00:11

הבנתי. אם ככה תוכל לעשות לפני המאקרו סימון של הקובץ ובמאקרו תלחץ על ctrl+f
ואח"כ esc ואח"כ ctrl+י וכו'

[אשר מאיר שולמן - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 00:16

לפעמים הוא מדביק גם בקונטרול h. מעניין לדעת מתי כן ומתי לא

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 00:20

אולי תעשה את ההעתקה וctrl+f וesc לפני הקלטת המאקרו.

[אשר מאיר שולמן - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 00:25

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

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 08:00

המאקרו הבא לכאורה עובד

Sub Macro5()
'
' Macro5 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = Selection.Range
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = -721354753
With Selection.Find
.Replacement.text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[a0504107181 gma - ארכיון]

תאריך ההודעה המקורית: 20/03/2023 10:59

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

ב-יום שני, 20 במרץ 2023 בשעה 08:00:36 UTC+2, מעשה הכתב כתב/ה: