וורד - מדריך לשימוש בפקודות מאקרו

[ספרא]

לבקשת אחד החברים, הנני מצרף מדריך קצר לשימוש במאקרו; כתבתי את המדריך לפני כמה שנים, וקצר זמני מלבקרו כעת, רק הוספתי התאמה ל2010, עמכם המחילה:
(פתחתי אשכול נפרד, לפי שהדבר יכול להועיל להרבה שחסרים ידע בסיסי זה).

מדריך למאקרו

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

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

3. הקלטת מאקרו תתבצע כך: כלים / מאקרו / הקלטת מאקרו חדש (וורד 2003) או: מפתחים/ תחת קוד - הקלט מאקרו (וורד 2010). (לחילופין דבל קליק על REC המופיע בשורת המצב בוורד).
לאחר הבקשה להקלטת מאקרו, כל פעולה (בע"מ!) שתעשה בוורד, נרשמת כקוד.

4. לאחר שסיימנו לבצע את הפעולות שברצוננו להקליט, נעצור את ההקלטה באמצעות הלחצן המופיע בסרגל הכלים עצירת הקלטה.

5. הקודים נרשמים במודול תחת Normal, אשר בחלון Visual Basic של וורד. לדף זה נגיע ע"י לחיצה על Alt + F11, (או לחלופין כלים / מאקרו / Visual Basic Editor (וורד 2003) או: מפתחים/ תחת קוד - Visual Basic (וורד 2010).

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

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

כשאנו מקבלים קוד מוכן, ורוצים להשתמש בו, נפעל כך:
א. פותחים את Visual Basic Editor, ומעתיקים לתוך המודול אשר בNormal את הקוד.

ב. כל מאקרו חייב להתחיל בשם הפקודה, (כגון: Sub ploni) ולסיים ב End Sub. כך שאם מישהו מעלה קוד לפורום, בלא שם המאקרו, ואין חתימה End Sub, עלינו להוסיפם לבד.


השימוש במאקרו לאחר כתיבתו או הקלטתו:

לחיצה על Alt + F8, (או לחילופין כלים / מאקרו / פקודות מאקרו. שם נבחר במאקרו הרצוי, על פי שמו, ונלחץ הפעל.

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

בהצלחה!

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

[בריושמא]

כדי להכין פקודת מאקרו אין צורך לדעת תכנות.
נער הייתי גם זקנתי, ותכנות עדיין לא למדתי. כך החלטתי כשהגיע המחשב האישי הראשון ארצה.
ובכל השנים הללו יצרתי פקודות מאקרו רבות בעזרת ההקלטה שמאפשרת תוכנת וורד.
אבל לשם כך חייבים להכיר כלל אחד שהוא חובה:
בלי עכבר.
כאשר ניגשים להקליט מאקרו אין משתמשים בעכבר.
לחיצה על עכבר אינה קביעה לוגית, אלא בנקודה מסוימת על המסך. ומחר יישאנה הרוח אל מקום אחד, אקראי לחלוטין.
על כן כל פקודה צריכה להיות מוגדרת באופן לוגי.
לדוגמה: אם רוצים לבחור פסקה שלמה אין טעם לצבוע עם העכבר, כי הפסקה הנוכחית כוללת שלוש שורות,
והפסקה הבאה תכלול שש שורות. או אז המאקרו יצבע רק שלוש שורות ממנה ולא את כולה.
על כן עוזבים את העכבר. מקישים F8 להפעלת בחירה, ומקישים ctrl וחץ למטה. כך נצבעת הפסקה בשלמותה,
אם שלוש שורות בה או אם שש שורות בה.
וכך הלאה.
אם משתמשים בפקודות לוגיות ולא בעכבר - אפשר להקליט פקודות מאקרו בקלות, בהצלחה ובלי שום תקלה ואכזבה.
בהצלחה !

[הכתב והמכתב]

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

[בריושמא]

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

באותו מקום אפשר גם ללחוץ על 'לוח מקשים' וליצור מקש קיצור לכל מאקרו.

כל שכתבתי - לפי וורד 2003 כתבתי.
והמתקדמים (לכאורה) ועובדים עם וורד מאוחר יותר - יבקשו את הנ"ל על פי גרסתם.
אינני יודע כיצד. נשארתי מאחור.

[ספרא]

כפי הידוע לי, בוורד 2010 כבר אין אפשרות לשנות את תמונת הלחצן.
אם מישהו יודע אחרת, אשמח לפירוט.

[מראה כהנים]

שלום.

יש לי טקסט שההדגשות שבו מסומנות בכוכבית בתחילת וסוף המילה / משפט (כמו בטקסט מוואטסאפ. לדוגמא: הכבישים היו *רותחים* באותו הקיץ. או: דג *סקרן שט לו בים* וסביבו הרבה דגים)

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

כלומר, את כל המסומן בכוכביות לפני ואחרי המילה / משפט להמיר לטקסט מודגש בלבד וללא הכוכביות.

ניסיתי את הפקודת מאקרו הזו:

Sub RemoveAsterisksAndBold()

Dim doc As Document
Set doc = ActiveDocument

Dim rng As Range
For Each rng In doc.StoryRanges
If InStr(rng.Text, "*") Then
rng.Font.Bold = True
rng.Text = Replace(rng.Text, "*", "")
End If
Next rng

End Sub

ולא ממש מצליח.

יש למישהו רעיון?

[תבא]

שלום.

יש לי טקסט שההדגשות שבו מסומנות בכוכבית בתחילת וסוף המילה / משפט (כמו בטקסט מוואטסאפ. לדוגמא: הכבישים היו *רותחים* באותו הקיץ. או: דג *סקרן שט לו בים* וסביבו הרבה דגים)

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

כלומר, את כל המסומן בכוכביות לפני ואחרי המילה / משפט להמיר לטקסט מודגש בלבד וללא הכוכביות.

ניסיתי את הפקודת מאקרו הזו:

Sub RemoveAsterisksAndBold()

Dim doc As Document
Set doc = ActiveDocument

Dim rng As Range
For Each rng In doc.StoryRanges
If InStr(rng.Text, "*") Then
rng.Font.Bold = True
rng.Text = Replace(rng.Text, "*", "")
End If
Next rng

End Sub

ולא ממש מצליח.

יש למישהו רעיון?

אם אכן הכוכביות צמודות לטקסט כמו שכתבת, אפשר לעשות החלפה כללית של רווח+כוכבית לסימון כלשהו כגון #+אנטר,
כך כל הכוכביות הראשונות מוחלפות לתחילת שורה.
לאחר מכן להקליט מאקרו: חפש כוכבית>סמן עד תחילת השורה (shift+homm) >הדגש (CTRL+B)> עבור לסוף השורה (END)
הEND בסוף הוא כדי שלא יחפש שוב ושוב את אותה כוכבית
לאחר שסיימת את השימוש במאקרו יש למחוק את ה# אנטר ע"י החלפה, כדי שיחזור להיות בשורה אחת.

[בריושמא]

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

בבקשה:
Sub Macro4()
'
' Macro4 Macro
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = "&"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "&*&"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "&"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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

[מראה כהנים]

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

בבקשה:
Sub Macro4()
'
' Macro4 Macro
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = "&"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "&*&"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "&"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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

בריושמא, תודה גדולה על הפקודה!!
ועדיין, את הפעולה האחרונה והכי חשובה - להדגיש את הטקסט שהיה מסומן בכוכבית לפני ואחרי, הפקודה הזו לא מצליחה לעשות.

היש מאן דהו שיוכל לעזור בעניין זה?

[בריושמא]

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

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

היש מאן דהו שיוכל לעזור בעניין זה?

הנה מאקרו חדש:
Sub Macro2()
'
' Macro2 Macro
' מאקרו הוקלט ב- ‏12/12/2023 על-ידי יוסף
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = "%"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("הדגשה")
With Selection.Find
.Text = "%*%"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "%"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

בדוק נא, וכתוב האם הוא עושה את רצונך.

[מראה כהנים]

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

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

היש מאן דהו שיוכל לעזור בעניין זה?

הנה מאקרו חדש:
Sub Macro2()
'
' Macro2 Macro
' מאקרו הוקלט ב- ‏12/12/2023 על-ידי יוסף
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = "%"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("הדגשה")
With Selection.Find
.Text = "%*%"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "%"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

בדוק נא, וכתוב האם הוא עושה את רצונך.

תודה ענקית! ותודה מיוחדת על הסבלנות!

עכשיו זה עשה את הפעולה המלאה.
אבל, במקום להדגיש את הטקסט (מה שמתקבל בצירוף Ctrl+B), פקודת המאקרו עיצבה אותו נטוי (מה שמתקבל בצירוף Ctrl+I)

אודה מאוד אם ניתן להחליף את ההוראה מהנטיית הטקסט להדגשתו! שוב תודה גדולה וחנוכה שמח!

[בריושמא]

עכשיו זה עשה את הפעולה המלאה.
אבל, במקום להדגיש את הטקסט (מה שמתקבל בצירוף Ctrl+B), פקודת המאקרו עיצבה אותו נטוי (מה שמתקבל בצירוף Ctrl+I)

אודה מאוד אם ניתן להחליף את ההוראה מהנטיית הטקסט להדגשתו! שוב תודה גדולה וחנוכה שמח!

הבעיה היא זאת:
כאשר אני מעצב את הטקסט כגופן מודגש - בעת הפעלת המאקרו וורד מבטל את ההדגשה.
רק אם אני מעצב את הטקסט בסגנון הדגשה - בעת הפעלת המאקרו וורד איננו מבטל את ההדגשה.
כנראה שאצלך סגנון 'הדגשה' מוגדר כגופן נטוי.
שנה אצלך את הסגנון 'הדגשה' לגופן מודגש.
או אז המאקרו יעצב את הטקסט בגופן מודגש.
כתוב נא האם פעולה זו הועילה.

[מראה כהנים]

עכשיו זה עשה את הפעולה המלאה.
אבל, במקום להדגיש את הטקסט (מה שמתקבל בצירוף Ctrl+B), פקודת המאקרו עיצבה אותו נטוי (מה שמתקבל בצירוף Ctrl+I)

אודה מאוד אם ניתן להחליף את ההוראה מהנטיית הטקסט להדגשתו! שוב תודה גדולה וחנוכה שמח!

הבעיה היא זאת:
כאשר אני מעצב את הטקסט כגופן מודגש - בעת הפעלת המאקרו וורד מבטל את ההדגשה.
רק אם אני מעצב את הטקסט בסגנון הדגשה - בעת הפעלת המאקרו וורד איננו מבטל את ההדגשה.
כנראה שאצלך סגנון 'הדגשה' מוגדר כגופן נטוי.
שנה אצלך את הסגנון 'הדגשה' לגופן מודגש.
או אז המאקרו יעצב את הטקסט בגופן מודגש.
כתוב נא האם פעולה זו הועילה.

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