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

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

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

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

מתוזמן נעוץ נעול הועבר תוכנה
16 פוסטים 4 כותבים 367 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • שלום עולם 0ש מנותק
    שלום עולם 0ש מנותק
    שלום עולם 0
    כתב ב נערך לאחרונה על ידי
    #2

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

    Sub SelectToNextSpace()
        Dim sel As Range
        Set sel = Selection.Range
        sel.MoveEndUntil " ", wdForward
        sel.Select
    End Sub
    
    מעלה ומורידמ תגובה 1 תגובה אחרונה
    2
    • שלום עולם 0ש שלום עולם 0

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

      Sub SelectToNextSpace()
          Dim sel As Range
          Set sel = Selection.Range
          sel.MoveEndUntil " ", wdForward
          sel.Select
      End Sub
      
      מעלה ומורידמ מנותק
      מעלה ומורידמ מנותק
      מעלה ומוריד
      כתב ב נערך לאחרונה על ידי מעלה ומוריד
      #3

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

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

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

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

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

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