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

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

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

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

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

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

    Sub SelectToNextSpace()
        Dim sel As Range
        Set sel = Selection.Range
        sel.MoveEndUntil " ", wdForward
        sel.Select
    End Sub
    
    מעלה ומורידמ תגובה 1 תגובה אחרונה
    2
    • מעלה ומורידמ מנותק
      מעלה ומורידמ מנותק
      מעלה ומוריד
      השיב לשלום עולם 0 ב נערך לאחרונה על ידי מעלה ומוריד
      #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
        • מעלה ומורידמ מנותק
          מעלה ומורידמ מנותק
          מעלה ומוריד
          השיב לyossiz ב נערך לאחרונה על ידי
          #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
            • מעלה ומורידמ מנותק
              מעלה ומורידמ מנותק
              מעלה ומוריד
              השיב לyossiz ב נערך לאחרונה על ידי מעלה ומוריד
              #7

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

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

              yossizY תגובה 1 תגובה אחרונה
              1
              • yossizY מנותק
                yossizY מנותק
                yossiz
                השיב למעלה ומוריד ב נערך לאחרונה על ידי yossiz
                #8

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

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

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

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

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

                yossizY תגובה 1 תגובה אחרונה
                1
                • yossizY מנותק
                  yossizY מנותק
                  yossiz
                  השיב ל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
                  • מעלה ומורידמ מנותק
                    מעלה ומורידמ מנותק
                    מעלה ומוריד
                    השיב לyossiz ב נערך לאחרונה על ידי מעלה ומוריד
                    #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
                        • מעלה ומורידמ מנותק
                          מעלה ומורידמ מנותק
                          מעלה ומוריד
                          השיב לyossiz ב נערך לאחרונה על ידי
                          #13

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

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

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

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

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

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

                            תגובה 1 תגובה אחרונה
                            2
                            • 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
                              • מעלה ומורידמ מנותק
                                מעלה ומורידמ מנותק
                                מעלה ומוריד
                                השיב לyossiz ב נערך לאחרונה על ידי
                                #16

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

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

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

                                🙂

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

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

                                תגובה 1 תגובה אחרונה
                                2

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

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

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