דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. מאקרו לוורד לבחירת כל המילה כולל תווי פיסוק

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

מתוזמן נעוץ נעול הועבר תוכנה
16 פוסטים 4 כותבים 367 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • yossizY מנותק
    yossizY מנותק
    yossiz
    כתב ב נערך לאחרונה על ידי yossiz
    #6
    Const whiteSpace As String = " " & vbTab & vbCrLf
    
    Sub SelectToNextWhiteSpaceForward()
        Selection.MoveEndWhile whiteSpace, wdForward
        Selection.MoveEndUntil whiteSpace, wdForward
    End Sub
    
    Sub SelectToNextWhiteSpaceBackward()
        Selection.MoveStartWhile whiteSpace, wdBackward
        Selection.MoveStartUntil whiteSpace, wdBackward
    End Sub
    

    📧 יוסי@מייל.קום | 🌎 בלוג | ☕ קפה

    מעלה ומורידמ תגובה 1 תגובה אחרונה
    4
    • yossizY yossiz
      Const whiteSpace As String = " " & vbTab & vbCrLf
      
      Sub SelectToNextWhiteSpaceForward()
          Selection.MoveEndWhile whiteSpace, wdForward
          Selection.MoveEndUntil whiteSpace, wdForward
      End Sub
      
      Sub SelectToNextWhiteSpaceBackward()
          Selection.MoveStartWhile whiteSpace, wdBackward
          Selection.MoveStartUntil whiteSpace, wdBackward
      End Sub
      
      מעלה ומורידמ מנותק
      מעלה ומורידמ מנותק
      מעלה ומוריד
      כתב ב נערך לאחרונה על ידי מעלה ומוריד
      #7

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

      מנע בזבוז זמן, זכה את הרבים!

      yossizY תגובה 1 תגובה אחרונה
      1
      • מעלה ומורידמ מעלה ומוריד

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

        yossizY מנותק
        yossizY מנותק
        yossiz
        כתב ב נערך לאחרונה על ידי yossiz
        #8

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

        (אם באמת יש שם שורה כזו...)

        יש שורה (או כמה שורות) שמטפלים בזה אבל הם כתובים ב-++C והם לא נגישים לזרים...
        אבל אתה מעיר הערה חשובה שלא חשבתי עליו
        יכול להיות (לכאורה) שיש דרך לטפל בזה בלי ליכנס למרתפים הסודיים של מייקרוסופט אלא על ידי שכלול המאקרו

        חבר'ה אתם מוזמנים לתרום!

        📧 יוסי@מייל.קום | 🌎 בלוג | ☕ קפה

        yossizY תגובה 1 תגובה אחרונה
        1
        • yossizY yossiz

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

          (אם באמת יש שם שורה כזו...)

          יש שורה (או כמה שורות) שמטפלים בזה אבל הם כתובים ב-++C והם לא נגישים לזרים...
          אבל אתה מעיר הערה חשובה שלא חשבתי עליו
          יכול להיות (לכאורה) שיש דרך לטפל בזה בלי ליכנס למרתפים הסודיים של מייקרוסופט אלא על ידי שכלול המאקרו

          חבר'ה אתם מוזמנים לתרום!

          yossizY מנותק
          yossizY מנותק
          yossiz
          כתב ב נערך לאחרונה על ידי
          #9

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

          יכול להיות (לכאורה) שיש דרך לטפל בזה בלי ליכנס למרתפים הסודיים של מייקרוסופט אלא על ידי שכלול המאקרו

          Const whiteSpace As String = " " & vbTab & vbCrLf
          
          Sub SelectToNextWhiteSpaceForward()
              If Selection.StartIsActive And Not Selection.Type = wdSelectionIP Then
                  Selection.MoveStartWhile whiteSpace, wdForward
                  Selection.MoveStartUntil whiteSpace, wdForward
                  Selection.StartIsActive = True
              Else
                  Selection.MoveEndWhile whiteSpace, wdForward
                  Selection.MoveEndUntil whiteSpace, wdForward
              End If
          End Sub
          
          Sub SelectToNextWhiteSpaceBackward()
              If Selection.StartIsActive Or Selection.Type = wdSelectionIP Then
                  Selection.MoveStartWhile whiteSpace, wdBackward
                  Selection.MoveStartUntil whiteSpace, wdBackward
                  Selection.StartIsActive = True
              Else
                  Selection.MoveEndWhile whiteSpace, wdBackward
                  Selection.MoveEndUntil whiteSpace, wdBackward
              End If
          End Sub
          

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

          📧 יוסי@מייל.קום | 🌎 בלוג | ☕ קפה

          מעלה ומורידמ 2 תגובות תגובה אחרונה
          5
          • yossizY yossiz

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

            יכול להיות (לכאורה) שיש דרך לטפל בזה בלי ליכנס למרתפים הסודיים של מייקרוסופט אלא על ידי שכלול המאקרו

            Const whiteSpace As String = " " & vbTab & vbCrLf
            
            Sub SelectToNextWhiteSpaceForward()
                If Selection.StartIsActive And Not Selection.Type = wdSelectionIP Then
                    Selection.MoveStartWhile whiteSpace, wdForward
                    Selection.MoveStartUntil whiteSpace, wdForward
                    Selection.StartIsActive = True
                Else
                    Selection.MoveEndWhile whiteSpace, wdForward
                    Selection.MoveEndUntil whiteSpace, wdForward
                End If
            End Sub
            
            Sub SelectToNextWhiteSpaceBackward()
                If Selection.StartIsActive Or Selection.Type = wdSelectionIP Then
                    Selection.MoveStartWhile whiteSpace, wdBackward
                    Selection.MoveStartUntil whiteSpace, wdBackward
                    Selection.StartIsActive = True
                Else
                    Selection.MoveEndWhile whiteSpace, wdBackward
                    Selection.MoveEndUntil whiteSpace, wdBackward
                End If
            End Sub
            

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

            מעלה ומורידמ מנותק
            מעלה ומורידמ מנותק
            מעלה ומוריד
            כתב ב נערך לאחרונה על ידי מעלה ומוריד
            #10

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

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

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

            20230515_140143.mp4

            מנע בזבוז זמן, זכה את הרבים!

            תגובה 1 תגובה אחרונה
            1
            • מעלה ומורידמ מנותק
              מעלה ומורידמ מנותק
              מעלה ומוריד
              כתב ב נערך לאחרונה על ידי מעלה ומוריד
              #11

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

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

              מנע בזבוז זמן, זכה את הרבים!

              תגובה 1 תגובה אחרונה
              2
              • מעלה ומורידמ מנותק
                מעלה ומורידמ מנותק
                מעלה ומוריד
                כתב ב נערך לאחרונה על ידי מעלה ומוריד
                #12

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

                מנע בזבוז זמן, זכה את הרבים!

                yossizY תגובה 1 תגובה אחרונה
                1
                • yossizY yossiz

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

                  יכול להיות (לכאורה) שיש דרך לטפל בזה בלי ליכנס למרתפים הסודיים של מייקרוסופט אלא על ידי שכלול המאקרו

                  Const whiteSpace As String = " " & vbTab & vbCrLf
                  
                  Sub SelectToNextWhiteSpaceForward()
                      If Selection.StartIsActive And Not Selection.Type = wdSelectionIP Then
                          Selection.MoveStartWhile whiteSpace, wdForward
                          Selection.MoveStartUntil whiteSpace, wdForward
                          Selection.StartIsActive = True
                      Else
                          Selection.MoveEndWhile whiteSpace, wdForward
                          Selection.MoveEndUntil whiteSpace, wdForward
                      End If
                  End Sub
                  
                  Sub SelectToNextWhiteSpaceBackward()
                      If Selection.StartIsActive Or Selection.Type = wdSelectionIP Then
                          Selection.MoveStartWhile whiteSpace, wdBackward
                          Selection.MoveStartUntil whiteSpace, wdBackward
                          Selection.StartIsActive = True
                      Else
                          Selection.MoveEndWhile whiteSpace, wdBackward
                          Selection.MoveEndUntil whiteSpace, wdBackward
                      End If
                  End Sub
                  

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

                  מעלה ומורידמ מנותק
                  מעלה ומורידמ מנותק
                  מעלה ומוריד
                  כתב ב נערך לאחרונה על ידי
                  #13

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

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

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

                  מנע בזבוז זמן, זכה את הרבים!

                  תגובה 1 תגובה אחרונה
                  0
                  • מ מנותק
                    מ מנותק
                    מאקרו
                    כתב ב נערך לאחרונה על ידי
                    #14

                    כתבתי על זה מאקרו בעבר בפורום אופיס
                    כאן

                    תגובה 1 תגובה אחרונה
                    2
                    • מעלה ומורידמ מעלה ומוריד

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

                      yossizY מנותק
                      yossizY מנותק
                      yossiz
                      כתב ב נערך לאחרונה על ידי yossiz
                      #15

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

                      החלום שלי (נכון ל15/5/23 14:39)

                      עכשיו 10:30 18/5/23, האם החלום כבר התגשם?

                      כי להכין עבור ctrl+right ו-ctrl+left הוא יותר קל

                      Const whiteSpace As String = " " & vbTab & vbCrLf
                      
                      Sub MoveToNextWhiteSpaceForward()
                          Selection.MoveWhile whiteSpace, wdForward
                          Selection.MoveUntil whiteSpace, wdForward
                      End Sub
                      
                      Sub MoveToNextWhiteSpaceBackward()
                          Selection.MoveWhile whiteSpace, wdBackward
                          Selection.MoveUntil whiteSpace, wdBackward
                      End Sub
                      

                      📧 יוסי@מייל.קום | 🌎 בלוג | ☕ קפה

                      מעלה ומורידמ תגובה 1 תגובה אחרונה
                      2
                      • yossizY yossiz

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

                        החלום שלי (נכון ל15/5/23 14:39)

                        עכשיו 10:30 18/5/23, האם החלום כבר התגשם?

                        כי להכין עבור ctrl+right ו-ctrl+left הוא יותר קל

                        Const whiteSpace As String = " " & vbTab & vbCrLf
                        
                        Sub MoveToNextWhiteSpaceForward()
                            Selection.MoveWhile whiteSpace, wdForward
                            Selection.MoveUntil whiteSpace, wdForward
                        End Sub
                        
                        Sub MoveToNextWhiteSpaceBackward()
                            Selection.MoveWhile whiteSpace, wdBackward
                            Selection.MoveUntil whiteSpace, wdBackward
                        End Sub
                        
                        מעלה ומורידמ מנותק
                        מעלה ומורידמ מנותק
                        מעלה ומוריד
                        כתב ב נערך לאחרונה על ידי
                        #16

                        תודה רבה איש יקר ועניו!
                        מתנגן לי משום מה 'חזו חזו'...

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

                        עכשיו 10:30 18/5/23, האם החלום כבר התגשם?

                        🙂

                        היינו כחולמים...

                        מנע בזבוז זמן, זכה את הרבים!

                        תגובה 1 תגובה אחרונה
                        2
                        תגובה
                        • תגובה כנושא
                        התחברו כדי לפרסם תגובה
                        • מהישן לחדש
                        • מהחדש לישן
                        • הכי הרבה הצבעות


                        בא תתחבר לדף היומי!
                        • התחברות

                        • אין לך חשבון עדיין? הרשמה

                        • התחברו או הירשמו כדי לחפש.
                        • פוסט ראשון
                          פוסט אחרון
                        0
                        • דף הבית
                        • קטגוריות
                        • פוסטים אחרונים
                        • משתמשים
                        • חיפוש
                        • חוקי הפורום