תחומים - פורום חרדי מקצועי

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

Sub PrintCustomKeyBindingsShort()

    Dim kb As KeyBinding
    Dim msg As String
    
    For Each kb In Application.KeyBindings
        If kb.KeyCategory = wdKeyCategoryMacro Then
            Dim keyDetails As String
            keyDetails = kb.KeyString & " — " & Replace(kb.Command, "Normal.NewMacros.", "")
            
            msg = msg & keyDetails & vbCrLf
        End If
    Next kb
    
    MsgBox msg, vbInformation + vbRightToLeft, "מקשי קיצור מותאמים אישית"
End Sub

@yossiz כתב במאקרו לוורד לבחירת כל המילה כולל תווי פיסוק:

יש עדיין באג קטנצ'יק, נראה אם תעלה על זה...

לכאורה אתה יכול להתגבר עליו אם הבחירה גם תתחיל מתו שאינו רווח

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

• מאקרואים מותאמים אישית, עמל של שעות לאורך שנים.
• מקשי קיצור להפעלת פקודות ופקודות מאקרו, מעייף לשחזר הכל.

הנה דוגמה: https://tchumim.com/post/147744

בחסות GPT מצ"ב מאקרו לגיבוי של תבנית הנורמל, אצלי הכנסתי אותו בסרגל גישה מהירה ובכל פעם שאכניס מאקרו חדש לא נותר לי אלא ללחוץ על גיבוי...

Sub BackupNormalDotm()
    Dim fso As Object
    Dim sourcePath As String
    Dim destPath As String
    Dim fileName As String
    Dim dateTimeStamp As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    sourcePath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\"
    destPath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\NormalBackup\"
    
    dateTimeStamp = Format(Now, "dd_mm_yy_hh_mm_ss")
    
    fileName = "Normal.dotm"
    
    If Not fso.FolderExists(destPath) Then
        fso.CreateFolder destPath
    End If
    
    If fso.FileExists(sourcePath & fileName) Then
        fso.CopyFile sourcePath & fileName, destPath & Left(fileName, Len(fileName) - 5) & "_" & dateTimeStamp & ".dotm"
        
        MsgBox "הקובץ הועתק בהצלחה ונוסף לתיקיית הגיבוי."
    Else
        MsgBox "הקובץ המקורי אינו קיים."
    End If
    
    Set fso = Nothing
End Sub

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

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

@yossiz החלום שלי (נכון ל15/5/23 14:39) הוא להכין מאקרו כזה גם על Ctrl+Left וCtel+Right (הרי גם הם בעייתיים בדיוק באותה מידה)
ובמקביל להכין מאקרו שיגדיר את המאקרואים הללו שיפעלו לפי קיצורי המקשים המתאימים, כגון זה: https://tchumim.com/post/153061
ואז בלחיצת כפתור אני מאפשר לכלל העורכים בקבוצה הנ"ל לבצע את כלל ההגדרות הנצרכות להאי שופרא
כרגע אני מאמין שלא אצליח להסביר להם איך להתנהל עם המאקרו'ס...

@מעלה-ומוריד כתב בגיבוי קיצורי מקשים בוורד:

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

אני רואה דרך אחרת (בעזרת סבא ג'יפיטי)

Sub קיצור_א_ב_ג()
    '
    ' קיצור א_ב_ג Macro
    '
    '
    CustomizationContext = NormalTemplate
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyE, wdKeyControl, wdKeyAlt), _
        KeyCategory:=wdKeyCategoryMacro, Command:="א_ב_ג"
End Sub

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

האם יש דרך לגבות את ההתאמות האישיות של קיצורי המקשים לפקודות בוורד?

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

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

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

@yossiz והלכת בדרכיו...

@yossiz כתב במאקרו לוורד לבחירת כל המילה כולל תווי פיסוק:

יש עדיין באג קטנצ'יק, נראה אם תעלה על זה...

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

20230515_140143.mp4

@yossiz יש דרך לערוך את הפקודות המובנות בוורד?
למה אני שואל? כי אני רוצה בעצמי קצת לעשות משהו.
מה שהגדרתי עכשיו הוא ש Ctrl+Shift+Left/Right מבצעים את המאקרו שצירפת
אולם במצב הרגיל של וורד כאשר Ctrl+Shift+Left מבצע את הפקודה WordLeftExtend ובוחר נניח 3 מילים, ואז אני עושה Ctrl+Shift+Right הוא מוריד מילה אחת מהבחירה, ואילו כעת הוא פשוט בוחר עוד מילה מימין לטקסט המסומן...
(הובנתי?) לכן הייתי רוצה לראות את קוד הפקודה WordLeftExtend ולראות את השורה שאחראית על כך שבמצב בחירה הקיצור Ctrl+Shift+Right לא מפעיל את הפקודה WordLeftExtend אלא מוריד מילה מהבחירה (אם באמת יש שם שורה כזו...)

@yossiz תודה רבה!
איזו הקלה...
האם תוכל להתאים מאקרו זה גם לבחירה מהסוף להתחלה? (Ctrl+Shift+right)

@שלום-עולם-0 כתב במאקרו לוורד לבחירת כל המילה כולל תווי פיסוק:

לא מבין איפה זה כ"כ עוזר (תמיד אפשר ללחוץ שוב ולקבל את המילה הבאה בשלמותה), עכ"פ הקוד הזה עשוי לעזור

תודה שהשקעת גם בלי להבין!...

לגבי הקוד, אני צריך משהו שיחליף את Ctrl+Shift+left, הקוד שלך אכן בוחר את המילה בשלימותה, אבל הפעלה חוזרת של המאקרו לא בוחרת את המילה הבאה

בוורד, כאשר משתמשים בCtrl+Shift+Left/Right לבחירת המילה הבאה הבחירה נעצרת בתוי הפיסוק כגון " או ( או ,
ברוב השימושים של בחירה זו נצרכת בחירת כל המילה עד לתו הרווח
לעיתים קרובות כאשר בתוך הטקסט יש ציונים כגון (ל"א, ב') התענוג מושלם
ניסיתי מכמה כיוונים ליצור מאקרו שיבחר את כל התווים מהמקום שבו הסמן עומד עד לתו הרווח, ונכשלתי במטרה זו
אם יהיה לי כזה מאקרו, אקצה אותו לCtrl+Shift+Left/Right ולישראל יהיה טוב מאד
אני לא רוצה להטריח אף אחד בשביל הנוחות שלי, אמנם האמת היא שסביר להניח שיש בזה תועלת גדולה דרבים
אודה מאד לכל עזרה!

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

Sub CheckForSpaces()
    Dim currentChar As String
    Dim i As Integer
    
    For i = 1 To Len(Selection.Text)
        currentChar = Mid(Selection.Text, i, 1)
        If currentChar = " " Then
            Exit For
        Else
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        End If
    Next i
End Sub

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

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

עריכה: ושיתאים לשידור אלחוטי כהמלצת @יעקב-ישראל

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

@dovid כתב בהעיצוב החדש בפורום:

למה אצלי זה יוצא אחרת?

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

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