דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. אקסל
  5. VBA - excel
  6. עזרה הדדית - VBA excel
  7. עזרה | פתרונות בוורד

עזרה | פתרונות בוורד

מתוזמן נעוץ נעול הועבר לא נפתר עזרה הדדית - VBA excel
61 פוסטים 9 כותבים 1.5k צפיות 7 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • D dmp

    @מגדלים תחליף את השורה הבאה:

    .Wrap = wdFindAsk
    

    לקוד זה:

    .Wrap = wdFindStop
    

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

    If Selection.Start = Selection.End Then Exit Sub
    

    וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...

    מגדליםמ מנותק
    מגדליםמ מנותק
    מגדלים
    צוות פיקוח מדריכים
    כתב ב נערך לאחרונה על ידי
    #46

    @dmp

    @dmp אמר בעזרה | פתרונות בוורד:

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

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

    מ תגובה 1 תגובה אחרונה
    0
    • מ מלאכת מחשבת

      @dmp @מגדלים

      תודה רבה!!!
      עושה אחלה של עבודה!!!

      זה מה שחיפשתי.

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

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

      מ תגובה 1 תגובה אחרונה
      0
      • D dmp

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

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

        @dmp מה זה "יציאה מהשיגרה"?
        והשאילה אם יעיל לכל מקרו זה גם לגבי שאר הקודים שהבאת.

        D תגובה 1 תגובה אחרונה
        1
        • מ מלאכת מחשבת

          @dmp מה זה "יציאה מהשיגרה"?
          והשאילה אם יעיל לכל מקרו זה גם לגבי שאר הקודים שהבאת.

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

          @מלאכת-מחשבת יציא מהמאקרו.
          כן, בכל פקודה של החלפה.

          תגובה 1 תגובה אחרונה
          0
          • מ מלאכת מחשבת

            @dmp @מגדלים

            תודה רבה!!!
            עושה אחלה של עבודה!!!

            זה מה שחיפשתי.

            מגדליםמ מנותק
            מגדליםמ מנותק
            מגדלים
            צוות פיקוח מדריכים
            כתב ב נערך לאחרונה על ידי
            #50

            @מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:

            @dmp

            תודה רבה!!!
            עושה אחלה של עבודה!!!

            זה מה שחיפשתי.

            גם אני מצטרף!
            ומחכים לשמוע תגובות על הנ"ל...

            תגובה 1 תגובה אחרונה
            1
            • מ מלאכת מחשבת

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

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

              2. באם יש דרך שאוכל להוסיף מילים מסוימים או קידודים לפני ואחרי מילה ע"י בחירה במילה מסוימת ובחירת הפקודה. (-אסביר את עצמי אני רוצה להוסיף למשל לפני ואחרי מילים מסוימים שאבחר, איזשהו קידוד *** למשל וכדו' וע"י שאני בוחר באמצעות העכבר במילים מסוימים נוצר מה שבחרתי לפני ואחרי אותו המילה שבחרתי...)

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

              תודה רבה.

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

              @מלאכת-מחשבת

              חפש תוסף בשם משלים לוורד
              מערכת עימוד תורני שאברך בנה
              יתכן שפעם אחרונה ראיתי לפני עשור

              כאן
              https://mitmachim.top/topic/6120/תוספת-עיצוב-ספרי-קודש-לוורד

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

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

                תגובה 1 תגובה אחרונה
                0
                • D dmp

                  @מגדלים תחליף את השורה הבאה:

                  .Wrap = wdFindAsk
                  

                  לקוד זה:

                  .Wrap = wdFindStop
                  

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

                  If Selection.Start = Selection.End Then Exit Sub
                  

                  וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...

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

                  @dmp אמר בעזרה | פתרונות בוורד:

                  וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...

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

                  .Text = " <[א-ת]"
                  

                  וכן בהחלף ב: להוסיף רווח לפני הקידוד הראשון, לדוגמא:

                  .Replacement.Text = " $^&$"
                  

                  תעדכנו עם עבד...

                  לגבי תחילת פיסקה צריך לחפש

                  .Text = "^13<[א-ת]"
                  
                  מגדליםמ תגובה 1 תגובה אחרונה
                  2
                  • D dmp

                    @dmp אמר בעזרה | פתרונות בוורד:

                    וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...

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

                    .Text = " <[א-ת]"
                    

                    וכן בהחלף ב: להוסיף רווח לפני הקידוד הראשון, לדוגמא:

                    .Replacement.Text = " $^&$"
                    

                    תעדכנו עם עבד...

                    לגבי תחילת פיסקה צריך לחפש

                    .Text = "^13<[א-ת]"
                    
                    מגדליםמ מנותק
                    מגדליםמ מנותק
                    מגדלים
                    צוות פיקוח מדריכים
                    כתב ב נערך לאחרונה על ידי
                    #54

                    @dmp חשבתי מיד בהתחלה כך אבל אני צריך את שתיהם בכל חיפוש דהיינו גם של תחילת שורה וגם של המשך ואז בפעם אחד לא הצלחתי להגדיר שתיהם...

                    D תגובה 1 תגובה אחרונה
                    1
                    • מגדליםמ מגדלים

                      @dmp חשבתי מיד בהתחלה כך אבל אני צריך את שתיהם בכל חיפוש דהיינו גם של תחילת שורה וגם של המשך ואז בפעם אחד לא הצלחתי להגדיר שתיהם...

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

                      @מגדלים זה לכאורה הקוד המלא והנכון

                      Sub קידוד_בתחילת_מילה()
                      
                      'חיפוש רווח ותחילת מילה
                          Selection.Find.ClearFormatting
                          Selection.Find.Replacement.ClearFormatting
                          With Selection.Find
                              .Text = " (<[א-ת])"
                              .Replacement.Text = " $\1$"
                              .Forward = True
                              .Wrap = wdFindStop
                              .Format = False
                              .MatchWildcards = True
                          End With
                          Selection.Find.Execute Replace:=wdReplaceAll
                      'חיפוש סוף פיסקה ותחילת מילה
                          Selection.Find.Text = "^13(<[א-ת])"
                          Selection.Find.Replacement.Text = "^13$\1$"
                          Selection.Find.Execute Replace:=wdReplaceAll
                          
                      End Sub
                      
                      מגדליםמ תגובה 1 תגובה אחרונה
                      2
                      • D dmp

                        @מגדלים זה לכאורה הקוד המלא והנכון

                        Sub קידוד_בתחילת_מילה()
                        
                        'חיפוש רווח ותחילת מילה
                            Selection.Find.ClearFormatting
                            Selection.Find.Replacement.ClearFormatting
                            With Selection.Find
                                .Text = " (<[א-ת])"
                                .Replacement.Text = " $\1$"
                                .Forward = True
                                .Wrap = wdFindStop
                                .Format = False
                                .MatchWildcards = True
                            End With
                            Selection.Find.Execute Replace:=wdReplaceAll
                        'חיפוש סוף פיסקה ותחילת מילה
                            Selection.Find.Text = "^13(<[א-ת])"
                            Selection.Find.Replacement.Text = "^13$\1$"
                            Selection.Find.Execute Replace:=wdReplaceAll
                            
                        End Sub
                        
                        מגדליםמ מנותק
                        מגדליםמ מנותק
                        מגדלים
                        צוות פיקוח מדריכים
                        כתב ב נערך לאחרונה על ידי
                        #56

                        @dmp זה יחפש לי גם בתחילת מילה וגם בתחילת שורה?

                        D תגובה 1 תגובה אחרונה
                        1
                        • מגדליםמ מגדלים

                          @dmp זה יחפש לי גם בתחילת מילה וגם בתחילת שורה?

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

                          @מגדלים לכאורה, תנסה ותעדכן

                          מגדליםמ תגובה 1 תגובה אחרונה
                          1
                          • D dmp

                            @מגדלים לכאורה, תנסה ותעדכן

                            מגדליםמ מנותק
                            מגדליםמ מנותק
                            מגדלים
                            צוות פיקוח מדריכים
                            כתב ב נערך לאחרונה על ידי
                            #58

                            @dmp ואיפה מכניסים את המילים לפני ואחרי שבהם אני רוצה להוסיף?
                            כמו הפקודה שהבאתי למעלה עם מילים לפני ואחרי..

                            D תגובה 1 תגובה אחרונה
                            1
                            • מגדליםמ מגדלים

                              @dmp ואיפה מכניסים את המילים לפני ואחרי שבהם אני רוצה להוסיף?
                              כמו הפקודה שהבאתי למעלה עם מילים לפני ואחרי..

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

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

                              מגדליםמ תגובה 1 תגובה אחרונה
                              1
                              • D dmp

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

                                מגדליםמ מנותק
                                מגדליםמ מנותק
                                מגדלים
                                צוות פיקוח מדריכים
                                כתב ב נערך לאחרונה על ידי מגדלים
                                #60

                                @dmp הוא לא עובד בתחילת פיסקה רק אם התחלתי כבר מסוף הפיסקה הקודמת... צריך משהו שיחליף גם בתחילת שורה / פיסקה גם מבלי לבחור בסוף הפיסקה הקודמת.

                                D תגובה 1 תגובה אחרונה
                                1
                                • מגדליםמ מגדלים

                                  @dmp הוא לא עובד בתחילת פיסקה רק אם התחלתי כבר מסוף הפיסקה הקודמת... צריך משהו שיחליף גם בתחילת שורה / פיסקה גם מבלי לבחור בסוף הפיסקה הקודמת.

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

                                  @מגדלים הצלחתי!!!

                                  Dim MyRange As Range
                                  Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.Start)
                                  If MyRange.Text = Chr(13) Or MyRange.Text = " " Then
                                  Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.End)
                                  MyRange.Select
                                  End If
                                  

                                  להוסיף ממש בהתחלה (בשורה 2)👍

                                  תגובה 1 תגובה אחרונה
                                  2
                                  • מגדליםמ מגדלים העביר נושא זה מ-עזרה הדדית - תוכנות ב-
                                  • מגדליםמ מגדלים העביר נושא זה מ-עזרה הדדית - וורד ב-

                                  • התחברות

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

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