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

[מניין]

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

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

נסיתי כבר, ונראה לי שחייבים תנאי.

[נוכחות]

פוסט זה נמחק!

[מניין]

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

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

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

[נוכחות]

פוסט זה נמחק!

[מניין]

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

@מניין

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

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

[נוכחות]

פוסט זה נמחק!

[es0583292679]

@נוכחות אני לא יודע על איזה חלון מדובר, אבל בעבר זכורני שבחיפוש והחלפה - כדי שלא ישאל האם להתחיל שוב מתחילת המסמך - אז הוספנו Close וב"ה זה עשה את ההחלפה ללא הפתיחה ההיא בסוף.

[מניין]

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

@נוכחות אני לא יודע על איזה חלון מדובר, אבל בעבר זכורני שבחיפוש והחלפה - כדי שלא ישאל האם להתחיל שוב מתחילת המסמך - אז הוספנו Clos וב"ה זה עשה את ההחלפה ללא הפתיחה ההיא בסוף.

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

[מאקרו]

פרסמתי כאן קוד לזה, פתחתי נושא חדש.

[צדיק וטוב לו 0]

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

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

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

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

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

[מניין]

@צדיק-וטוב-לו-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

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