בקשה | מאקרו לוורד

[אושר]

תגובה: שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.
אם יש למישהו מאקרו לוורד שכשאני לוחץ על מקש הרווח אז זה יוסיף לי נקודה אוטומטי
תודה רבה

[ע"ה דכו"ע]

@אושר מה הבעיה ללחוץ על מקש הנקודה?

[אושר]

@ע-ה-דכו-ע לא בעיה פשוט אני לא זוכר לעשות את זה ואם יש מאקרו אני ישמח

[ע"ה דכו"ע]

@אושר כתב בבקשה | מאקרו לוורד:

@ע-ה-דכו-ע לא בעיה פשוט אני לא זוכר לעשות את זה ואם יש מאקרו אני ישמח

אתה רוצה שבכל מילה שאתה לוחץ על רווח יהיה נקודה? תסביר קצת יותר

[menajemmendel]

@אושר אני לא יודע לעשות מאקרו שיפעל ככה כל הזמן, אבל מה בעיה שלאחר שתגמור לכתוב תעשה בחפש והחלף שאחרי כל רווח יהיה נקודה (לזה אתה כן יכול לעשות מאקרו)

[106]

@אושר אפשר עם תיקון שגיאות אוטומטי
קובץ>אפשרויות>הגהה>אפשרויות תיקון שגיאות אוטומטי

[975]

@אושר כתב בבקשה | מאקרו לוורד:

אם יש למישהו מאקרו לוורד

פעם הייתי צריך משהו דומה אז שיכללתי אותו לטובתך

Spoiler

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

Sub הפעלת_רווח_לנקודה()
    CustomizationContext = NormalTemplate
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeySpacebar), _
    KeyCategory:=wdKeyCategoryMacro, Command:="AddDotAndSpace"

    MsgBox "המאקרו פועל כל רווח מוסיף נקודה.", vbInformation, "סטטוס מאקרו"
End Sub

Sub ריצת_המקרו_לא_לשימוש_אישי()
    Selection.TypeText Text:="."
    Selection.TypeText Text:=" "
End Sub

Sub עצירת_רווח_לנקודה()
    CustomizationContext = NormalTemplate
    FindKey(BuildKeyCode(wdKeySpacebar)).Clear
    
    MsgBox "המאקרו בוטל. מקש הרווח חזר לתפקוד רגיל.", vbExclamation, "סטטוס מאקרו"
End Sub

תבדוק האם זה עובד טוב
בהצלחה רבה

[shishko]

@975 כתב בבקשה | מאקרו לוורד:

Sub ריצת_המקרו_לא_לשימוש_אישי()
Selection.TypeText Text:="."
Selection.TypeText Text:=" "
End Sub

אם רוצים שהמאקרו לא יופיע צריך לקרוא לו privat sub מקווה שאייתתי נכון
עריכה: Private Sub

[975]

פוסט זה נמחק!

[shishko]

@975 כן אבל הוא בכלל לא צריך לדעת שיש עוד מאקרו ובטח לא צריך להזהיר לא לשימוש אישי אם במקום sub תגדיר את זה privat sub
עריכה: Private Sub