פקודת מאקרו בוורד

[HUBHCBH]

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

עדיף שיהיה לי אופציה להפעיל את הפונקיצה ועוד לחצן כדי לבטל את הפונקציה, כדי שאני לא יהיה מחוייב לזה..

תודה רבה

 

[moishy]

לא שייך.

 

[cheinanit]

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

תן לי לנסות לעבוד על זה קצת...

 

[moishy]

בהצלחה.

 

[שמח לעזור]

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

תן לי לנסות לעבוד על זה קצת...

תאורטית ברור שאין כזה דבר "לא שייך", אבל מותר לומר על זה שזה לא שייך.
http://social.msdn.microsoft.com/Fo...word-documet-text-changed-or-user-typed-event

מה הבעיה לעשות בכל עת שרוצים פקודה שמקטינה כל מה שבמסמך עד עכשיו?

 

[ayg]

הפקודה

כמדומה למה שביקש פתוח הפרום אפשר להשתמש בפקודות אלו

פקודה לפתוח סוגרים - מומלץ לעשות לו קיצור דרך ctrl-0

Sub open_bracket()
    Selection.Font.Size = Selection.Font.Size - 2:    Selection.Font.SizeBi = Selection.Font.SizeBi - 2:    Selection.TypeText Text:="("
End Sub

ופקודה לסגור סוגרים - מומלץ לעשות לו קיצור דרך ctrl-9

Sub close_bracket()
    Selection.TypeText Text:=")":   Selection.Font.Size = Selection.Font.Size + 2:    Selection.Font.SizeBi = Selection.Font.SizeBi + 2
End Sub

 

[eliezer]

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

 

[ayg]

יתכן שזה היה כוונתו - אך Event לזה לא שייך כמו שכבר כתבו, ויבא בעל הפרום ויפרש בקשתו

בכל אופן כדי להכניס מסגורים צריכים להקיש shift+0 - ולפקודה אפשר להשתמש בctrl+0 ונמצאת שההקשות שוות הם [וגם בקל אפשר לבחור מתי רוצים שיקטין ומתי לא]

 

[שמח לעזור]

יתכן שזה היה כוונתו - אך Event לזה לא שייך כמו שכבר כתבו, ויבא בעל הפרום ויפרש בקשתו

בכל אופן כדי להכניס מסגורים צריכים להקיש shift+0 - ולפקודה אפשר להשתמש בctrl+0 ונמצאת שההקשות שוות הם [וגם בקל אפשר לבחור מתי רוצים שיקטין ומתי לא]

מבריק.

 

[HUBHCBH]

תודה לכולם על הששתתפות.
אנסה אחרי יום כיפור.
גמר חתימה טובה!!

 

[HUBHCBH]

אכן הכל אפשרי, תודה רבה
עזרת לי מאד.

 

[FullTime]

אכן הכל אפשרי, תודה רבה
עזרת לי מאד.

לשם דיוק.
אכן הפקודה שביקשת 'לא שייך'.

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

 

[FullTime]

כמדומה למה שביקש פתוח הפרום אפשר להשתמש בפקודות אלו

פקודה לפתוח סוגרים - מומלץ לעשות לו קיצור דרך ctrl-0
ופקודה לסגור סוגרים - מומלץ לעשות לו קיצור דרך ctrl-9

הברקה מבריקה....

 

[Rרחמים]

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

עדיף שיהיה לי אופציה להפעיל את הפונקיצה ועוד לחצן כדי לבטל את הפונקציה, כדי שאני לא יהיה מחוייב לזה..

תודה רבה

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

Private מצב_עיצוב  As Boolean
Private תו_אחרון As String

Public Sub הפעל_עצור_מצב_עיצוב_סוגריים()
    If מצב_עיצוב = False Then
        הפעל
    Else
        מצב_עיצוב = False
    End If
End Sub

Private Sub הפעל()
    מצב_עיצוב = True
    Dim טווח As Range
    Do While מצב_עיצוב = True And Selection.Start > 0
        DoEvents
        Set טווח = ActiveDocument.Range(Start:=Selection.Start - 1, _
        End:=Selection.Start)
        If טווח.Text = "(" Then
            If תו_אחרון <> "(" Then
                טווח.Font.SizeBi = טווח.Font.SizeBi - 2
                תו_אחרון = "("
            End If
        ElseIf טווח.Text = ")" Then
            If תו_אחרון <> ")" Then
                Selection.Font.SizeBi = Selection.Font.SizeBi + 2
                תו_אחרון = ")"
            End If
        Else
            תו_אחרון = טווח.Text
        End If
    Loop
End Sub

 

[הללוהו ב ו]

יש דרך שיתחלף לי הסוגריים רק כשזה מתחיל במילים מסוימים כמו כשזה מתחיל "בראשית" למשל אז יתחלף לי גם הסוגריים שאני מתחיל בה וגם הסוף על אף שיש באמצע עוד מילים?
וכשאני רוצה שזה יתחלף לסוגריים כאלה { מה עלי לעשות?

 

[Rרחמים]

יש דרך שיתחלף לי הסוגריים רק כשזה מתחיל במילים מסוימים כמו כשזה מתחיל "בראשית" למשל אז יתחלף לי גם הסוגריים שאני מתחיל בה וגם הסוף על אף שיש באמצע עוד מילים?
וכשאני רוצה שזה יתחלף לסוגריים כאלה { מה עלי לעשות?

יש דרך, ובתיכנות אפשר לעשות הכל, פנה אלי למייל להזמנת הסקריפט.
yaakobov001gmail.com

 

[הללוהו ב ו]

@רחמים @ayg
מה אני עושה כשאני רוצה כנ"ל רק שלא יוקטן הגודל של הסוגריים אלא שיתוסף לסוגריים סימון מלפניה ומלאחריה?
תודה רבה.

 

[הללוהו ב ו]

הסתדרתי...