מדריך | מדריך - איך להכין תוסף לוורד בקלות

[menajemmendel]

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

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

ב. בVBA ראיתי שאפשר למחוק את השורות שקשורות לCASE דהיינו במקום
במקום

Sub smallbutton1(ByVal control As IRibbonControl)
Select Case control.id
  Case Is = "smallbutton1"
    Macros.macro1
End Select
End Sub

אפשר לכתבו רק

Sub smallbutton1(ByVal control As IRibbonControl)
    Macros.macro1
End Sub

בינתיים לא ראיתי שום בעיה בילעדיהם, אבל אולי אני טועה

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

Option Explicit
Public myRibbon As IRibbonUI
Sub Onload(ribbon As IRibbonUI)
'המאקרו הזה יוצר את סרגל הכלים - לא לגעת
Set myRibbon = ribbon
End Sub

תודה רבה

[pcinfogmach]

@menajemmendel תודה רבה על ההערות המחכימות רק נוסיף כמה הבהרות

@menajemmendel כתב במדריך | מדריך - איך להכין תוסף לוורד בקלות:

בעורך אפשר לכתוב כל הפרטים ששייכים לאותו כפתור באותו שורה,

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

@menajemmendel כתב במדריך | מדריך - איך להכין תוסף לוורד בקלות:

ב. בVBA ראיתי שאפשר למחוק את השורות שקשורות לCASE דהיינו במקום

בעיקרון כן
המקרה של ה-case נמצא שם כדי שאם ירצו להוסיף עוד פקודות בכפתור יוכלו לעשות זאת בקלות על ידי הוספת case נוסף, וכמו שיש בכפתורים המשולבים שהראיתי בתבנית.

@menajemmendel כתב במדריך | מדריך - איך להכין תוסף לוורד בקלות:

מה שכתבת וכן הOPTION EXPLICIT ו ''לא לגעת'' אכן ברוב חוצפתי נגעתי ומחקתי אותו ועובד כרגיל

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

[pcinfogmach]

@menajemmendel כתב במדריך | מדריך - איך להכין תוסף לוורד בקלות:

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

הנה:

<button idMso="Cut" />\

"cut" זהו הקוד בשביל הכפתור "גזור", יש להחליף לפי השם שמופיע על הכפתור על ידי ריחוף מעליו עם סמן העכבר.

יש הרבה כפתורים שהקוד בהם הוא קצת שונה

<control idMso="BreaksGallery"/>

[menajemmendel]

@pcinfogmach כתב במדריך | מדריך - איך להכין תוסף לוורד בקלות:

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

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

[מאקרו]

@menajemmendel אפשר בתפריט של הוספת פריטים לרצועת הכלים לראות את השם באנגלית ע"י ריחוף.

[menajemmendel]

@מאקרו תודה

[pcinfogmach]

@menajemmendel
לגבי הקוד עבור כפתורים מובנים עכשיו ראיתי ש יש הרבה כפתורים שהקוד בהם הוא קצת שונה

<control idMso="BreaksGallery"/>

[menajemmendel]

@pcinfogmach ואיך יודעים מתי buton ומתי control?

[pcinfogmach]

@menajemmendel
על פי רוב זה control אם זה לא עובד תנסה את button
רצלי וורד נותן התראת שגיאה אם השתמשתי בפקודה הלא נכונה כשאני פותח את התבנית

[pcinfogmach]

@pcinfogmach
עריכה: הכנתי לכם תבנית חדשה שמתאימה גם לגירסאות חדשות יותר של וורד
עריכה2: עכשיו התבנית גם מכיל בתוכו את המדריך
תבנית חדשה.zip