בקשה | שליטה על הגופנים בוורד

[מניין]

@צדיק-וטוב-לו-0 כתב בבקשה | שליטה על הגופנים בוורד:

@מניין כתב בבקשה | שליטה על הגופנים בוורד:

@ש-בר אמר בבקשה | שליטה על הגופנים בוורד:

@מניין איזה חלון? תעלה צילו"מ [אני כבר הצלחתי לעשות מה שהוא אמר]

נא לבדוק אם זה אכן זה, דרך אגב יש לי כאן עוד שני מקרואים שעשיתי.
fe2624f4-70f1-49bd-96f1-2f3b25d4f780-NewMacros.bas

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

אין לי מושג בזה, תברר אצל בעל ה @מאקרו בעצמו.

[יוסף בן יוסף]

@מניין כתב בבקשה | שליטה על הגופנים בוורד:

@ש-בר אמר בבקשה | שליטה על הגופנים בוורד:

@מניין איזה חלון? תעלה צילו"מ [אני כבר הצלחתי לעשות מה שהוא אמר]

נא לבדוק אם זה אכן זה, דרך אגב יש לי כאן עוד שני מקרואים שעשיתי.
fe2624f4-70f1-49bd-96f1-2f3b25d4f780-NewMacros.bas

הרב @מניין לא הצלחתי להעתיק את המאקרו, תוכל בבקשה להעתיק את התוכן שלהם כך שאוכל להדביק אותו? תודה רבה.

[דאנציג]

@יוסף-בן-יוסף
אתה יכול לפתוח גם באמצעות 'פנקס רשימות'
fe22624f4-70f1-49bd-96f1-2f3b25d4f780-newmacros.TXT
אבל יותר מדויק לייבא אותו לתוך פקודות מאקרו בויזואל בייסיק, ואין עיתותי בידי להסביר כעת.

[יוסף בן יוסף]

@דאנציג תודה!
שני המאקרואים הראשונים? אני מעתיק אותם כפי שהם?
מה הם שאר המאקרואים שיש שם?

[דאנציג]

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

[יוסף בן יוסף]

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

[דאנציג]

@יוסף-בן-יוסף
בבקשה

Sub החלפת_אות()
Attribute החלפת_אות.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.החלפת_אות"
'
' החלפת_אות Macro
'
'
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
Sub החלפת_מילה()
Attribute החלפת_מילה.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.החלפת_מילה"
'
' החלפת_מילה Macro
'
'
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

[יוסף בן יוסף]

@דאנציג כתב בבקשה | שליטה על הגופנים בוורד:

Sub החלפת_אות()
Attribute החלפת_אות.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.החלפת_אות"
'
' החלפת_אות Macro
'
'
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
Sub החלפת_מילה()
Attribute החלפת_מילה.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.החלפת_מילה"
'
' החלפת_מילה Macro
'
'
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

תודה רבה, מאד עוזר.