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

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

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

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

מתוזמן נעוץ נעול הועבר תוכנה
16 פוסטים 4 כותבים 367 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • yossizY מנותק
    yossizY מנותק
    yossiz
    כתב ב נערך לאחרונה על ידי
    #4
    Sub SelectToNextSpace()
        Dim sel As Range
        Set sel = Selection.Range
        sel.MoveEnd 1
        While sel.Characters.Last = " "
            sel.MoveEnd 1
        Wend
        sel.MoveEndUntil " ", wdForward
        sel.Select
    End Sub
    

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

    מעלה ומורידמ תגובה 1 תגובה אחרונה
    3
    • yossizY yossiz
      Sub SelectToNextSpace()
          Dim sel As Range
          Set sel = Selection.Range
          sel.MoveEnd 1
          While sel.Characters.Last = " "
              sel.MoveEnd 1
          Wend
          sel.MoveEndUntil " ", wdForward
          sel.Select
      End Sub
      
      מעלה ומורידמ מנותק
      מעלה ומורידמ מנותק
      מעלה ומוריד
      כתב ב נערך לאחרונה על ידי
      #5

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

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

      תגובה 1 תגובה אחרונה
      1
      • 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
                            • דף הבית
                            • קטגוריות
                            • פוסטים אחרונים
                            • משתמשים
                            • חיפוש
                            • חוקי הפורום