דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • 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. עזרה הדדית - וורד
  6. שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
300 פוסטים 31 כותבים 24.7k צפיות 32 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • י יאיר דניאל

    עשיתי מאקרו תיקון שגיאות (ראה לעיל https://mitmachim.top/topic/51883/שיתוף-מתעדכן-אוסף-מאקרו-לוורד-אינדקס-מאקרו-שימושי-הוראות-חשובות/208?_=1737235546512)

    • איך עושים שבסוף התיקון יפתח לי חלון ובו יופיע כמה תיקונים נעשו במסמך, ואיזה תיקונים?
      הצלחתי להגיע למצב הזה- צילום מסך 2025-01-18 222030.png

    (העתקתי את הפקודה הזו מהאמקרו של "קיצורי מקשים מותאמים אישית")

    • צילום מסך 2025-01-18 222103.png

    אבל איך אני גורם לו לכתוב אלו תיקונים נעשו.

    • נ.ב. האם ישנה אפשרות לבטל\לאפשר חלונית זו לפי בחירה, או רק ע"י מחיקת הפקודה הזו מתוך המאקרו?

    • נ.ב.ב איך אני גורם להודעה להופיע למספר שניות ולאחמ"כ להיעלם בלי שאצטרך ללחוץ על אישור?
      תודה רבה!

    P מנותק
    P מנותק
    pcinfogmach
    מדריכים
    כתב נערך לאחרונה על ידי pcinfogmach
    #212

    @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

    נ.ב.ב איך אני גורם להודעה להופיע למספר שניות ולאחמ"כ להיעלם בלי שאצטרך ללחוץ על אישור?
    תודה רבה!

    אתה יכול לייצר userform ולהשתמש בו בצורה של modless
    https://bettersolutions.com/vba/userforms/modeless.htm

    מחפש מדריך ארוך יותר על הנושא של userform עיין כאן:
    https://excelmacromastery.com/vba-userform/comment-page-1/

    גמ"ח עזרה וייעוץ בנושאי מחשבים

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

      עשיתי מאקרו תיקון שגיאות (ראה לעיל https://mitmachim.top/topic/51883/שיתוף-מתעדכן-אוסף-מאקרו-לוורד-אינדקס-מאקרו-שימושי-הוראות-חשובות/208?_=1737235546512)

      • איך עושים שבסוף התיקון יפתח לי חלון ובו יופיע כמה תיקונים נעשו במסמך, ואיזה תיקונים?
        הצלחתי להגיע למצב הזה- צילום מסך 2025-01-18 222030.png

      (העתקתי את הפקודה הזו מהאמקרו של "קיצורי מקשים מותאמים אישית")

      • צילום מסך 2025-01-18 222103.png

      אבל איך אני גורם לו לכתוב אלו תיקונים נעשו.

      • נ.ב. האם ישנה אפשרות לבטל\לאפשר חלונית זו לפי בחירה, או רק ע"י מחיקת הפקודה הזו מתוך המאקרו?

      • נ.ב.ב איך אני גורם להודעה להופיע למספר שניות ולאחמ"כ להיעלם בלי שאצטרך ללחוץ על אישור?
        תודה רבה!

      P מנותק
      P מנותק
      pcinfogmach
      מדריכים
      כתב נערך לאחרונה על ידי pcinfogmach
      #213

      @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

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

      עיין כאן
      https://stackoverflow.com/a/52868742

      העיקרון הוא להשתמש עם לולאת חיפוש אבל יש לזה מחיר באיטיות

      גמ"ח עזרה וייעוץ בנושאי מחשבים

      י תגובה 1 תגובה אחרונה
      2
      • P pcinfogmach

        @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

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

        עיין כאן
        https://stackoverflow.com/a/52868742

        העיקרון הוא להשתמש עם לולאת חיפוש אבל יש לזה מחיר באיטיות

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

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

        • או אם יש מישהו שיוכל לכתוב לי את הפקודה למאקרו,, ולעלות את זה כאן.
        U תגובה 1 תגובה אחרונה
        0
        • י יאיר דניאל

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

          • או אם יש מישהו שיוכל לכתוב לי את הפקודה למאקרו,, ולעלות את זה כאן.
          U מנותק
          U מנותק
          u88
          כתב נערך לאחרונה על ידי
          #215

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

          U י 2 תגובות תגובה אחרונה
          0
          • U u88

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

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

            @u88 ===group
            זה מה שהיה שם

            Sub Demo()
            Application.ScreenUpdating = False
            Dim i As Long
            With ActiveDocument.Range
              With .Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = InputBox("What is the Text to Find")
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindStop
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                .Execute
              End With
              Do While .Find.Found
                i = i + 1
                .Collapse wdCollapseEnd
                .Find.Execute
              Loop
            End With
            Application.ScreenUpdating = True
            MsgBox i & " instances found."
            End Sub
            
            י תגובה 1 תגובה אחרונה
            0
            • U u88

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

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

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

              תגובה 1 תגובה אחרונה
              0
              • U u88

                @u88 ===group
                זה מה שהיה שם

                Sub Demo()
                Application.ScreenUpdating = False
                Dim i As Long
                With ActiveDocument.Range
                  With .Find
                    .ClearFormatting
                    .Replacement.ClearFormatting
                    .Text = InputBox("What is the Text to Find")
                    .Replacement.Text = ""
                    .Forward = True
                    .Wrap = wdFindStop
                    .Format = False
                    .MatchCase = False
                    .MatchWholeWord = False
                    .MatchWildcards = False
                    .MatchSoundsLike = False
                    .MatchAllWordForms = False
                    .Execute
                  End With
                  Do While .Find.Found
                    i = i + 1
                    .Collapse wdCollapseEnd
                    .Find.Execute
                  Loop
                End With
                Application.ScreenUpdating = True
                MsgBox i & " instances found."
                End Sub
                
                י מנותק
                י מנותק
                יאיר דניאל
                כתב נערך לאחרונה על ידי
                #218

                @u88 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                זה מה שהיה שם

                איפה זה שם?

                U תגובה 1 תגובה אחרונה
                0
                • י יאיר דניאל

                  @u88 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                  זה מה שהיה שם

                  איפה זה שם?

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

                  @יאיר-דניאל באתר ש@pcinfogmach הביא לך

                  י תגובה 1 תגובה אחרונה
                  0
                  • U u88

                    @יאיר-דניאל באתר ש@pcinfogmach הביא לך

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

                    @u88 לא הבנתי מה אתה רוצה.
                    בכ"א אני צריך משהו ספציפי, ואשמח אם מישהו יוכל לעזור לי:
                    איך אני כותב פקודת מאקרו שתציג לי (בהודעה, כך:
                    צילום מסך 2025-01-18 222030.png
                    את כל השינויים שנעשו במסמך - ע"י המאקרו של תיקון שגיאות שהעלתי למעלה.
                    אולי @pcinfogmach יוכל לעזור?

                    P מ 2 תגובות תגובה אחרונה
                    0
                    • י יאיר דניאל

                      @u88 לא הבנתי מה אתה רוצה.
                      בכ"א אני צריך משהו ספציפי, ואשמח אם מישהו יוכל לעזור לי:
                      איך אני כותב פקודת מאקרו שתציג לי (בהודעה, כך:
                      צילום מסך 2025-01-18 222030.png
                      את כל השינויים שנעשו במסמך - ע"י המאקרו של תיקון שגיאות שהעלתי למעלה.
                      אולי @pcinfogmach יוכל לעזור?

                      P מנותק
                      P מנותק
                      pcinfogmach
                      מדריכים
                      כתב נערך לאחרונה על ידי pcinfogmach
                      #221

                      @יאיר-דניאל
                      אתה מתכוויןלשאול איך כותבים את המאקרו? או שאתה מתכווין לבקש שמישהו יעשה לך את העבודה ויכתוב לך את המאקרו?

                      גמ"ח עזרה וייעוץ בנושאי מחשבים

                      תגובה 1 תגובה אחרונה
                      0
                      • י יאיר דניאל

                        @u88 לא הבנתי מה אתה רוצה.
                        בכ"א אני צריך משהו ספציפי, ואשמח אם מישהו יוכל לעזור לי:
                        איך אני כותב פקודת מאקרו שתציג לי (בהודעה, כך:
                        צילום מסך 2025-01-18 222030.png
                        את כל השינויים שנעשו במסמך - ע"י המאקרו של תיקון שגיאות שהעלתי למעלה.
                        אולי @pcinfogmach יוכל לעזור?

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

                        @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                        @u88 לא הבנתי מה אתה רוצה.
                        בכ"א אני צריך משהו ספציפי, ואשמח אם מישהו יוכל לעזור לי:
                        איך אני כותב פקודת מאקרו שתציג לי (בהודעה, כך:
                        צילום מסך 2025-01-18 222030.png
                        את כל השינויים שנעשו במסמך - ע"י המאקרו של תיקון שגיאות שהעלתי למעלה.
                        אולי @pcinfogmach יוכל לעזור?

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

                        Sub תיקון_סימנים_כפולים()
                            Dim תיקונים As String
                            Dim נמצא_תיקון As Boolean
                            Dim מספר_תיקונים As Long
                            Dim מספר_תיקונים_כולל As Long
                            
                            ' אתחול
                            תיקונים = "תיקונים שבוצעו:" & vbCrLf
                            נמצא_תיקון = False
                            מספר_תיקונים_כולל = 0
                        
                            ' ביצוע התיקונים
                            מספר_תיקונים = בצע_חיפוש_והחלפה("..", ".")
                            If מספר_תיקונים > 0 Then
                                תיקונים = תיקונים & "הוחלף '..' ב- '.' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                נמצא_תיקון = True
                                מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                            End If
                        
                            מספר_תיקונים = בצע_חיפוש_והחלפה(",,", ",")
                            If מספר_תיקונים > 0 Then
                                תיקונים = תיקונים & "הוחלף ',,' ב- ',' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                נמצא_תיקון = True
                                מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                            End If
                        
                            מספר_תיקונים = בצע_חיפוש_והחלפה("''", "'")
                            If מספר_תיקונים > 0 Then
                                תיקונים = תיקונים & "הוחלף '''' ב- ''' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                נמצא_תיקון = True
                                מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                            End If
                        
                            מספר_תיקונים = בצע_חיפוש_והחלפה("""""", """")
                            If מספר_תיקונים > 0 Then
                                תיקונים = תיקונים & "הוחלף '""""' ב- '''' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                נמצא_תיקון = True
                                מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                            End If
                        
                            מספר_תיקונים = בצע_חיפוש_והחלפה("  ", " ")
                            If מספר_תיקונים > 0 Then
                                תיקונים = תיקונים & "הוחלף '  ' ב- ' ' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                נמצא_תיקון = True
                                מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                            End If
                        
                            מספר_תיקונים = בצע_חיפוש_והחלפה(" ,", ",")
                            If מספר_תיקונים > 0 Then
                                תיקונים = תיקונים & "הוחלף ' ,' ב- ',' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                נמצא_תיקון = True
                                מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                            End If
                        
                            מספר_תיקונים = בצע_חיפוש_והחלפה(" .", ".")
                            If מספר_תיקונים > 0 Then
                                תיקונים = תיקונים & "הוחלף ' .' ב- '.' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                נמצא_תיקון = True
                                מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                            End If
                        
                            ' הודעת סיכום
                            If נמצא_תיקון And מספר_תיקונים_כולל > 0 Then
                                MsgBox תיקונים, vbInformation, "סיכום תיקונים"
                            Else
                                MsgBox "לא בוצעו תיקונים במסמך.", vbInformation, "סיכום תיקונים"
                            End If
                        End Sub
                        
                        Function בצע_חיפוש_והחלפה(טקסט_לחיפוש As String, טקסט_להחלפה As String) As Long
                            Dim מספר_החלפות As Long
                            מספר_החלפות = 0
                            
                            With Selection.Find
                                .ClearFormatting
                                .Replacement.ClearFormatting
                                .Text = טקסט_לחיפוש
                                .Replacement.Text = טקסט_להחלפה
                                .Forward = True
                                .Wrap = wdFindContinue
                                .Format = False
                                .MatchCase = False
                                .MatchWholeWord = False
                                .MatchWildcards = False
                            End With
                            
                            Do While Selection.Find.Execute(Replace:=wdReplaceOne)
                                מספר_החלפות = מספר_החלפות + 1
                            Loop
                            
                            בצע_חיפוש_והחלפה = מספר_החלפות
                        End Function
                        
                        א י 3 תגובות תגובה אחרונה
                        1
                        • מ מניין

                          @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                          @u88 לא הבנתי מה אתה רוצה.
                          בכ"א אני צריך משהו ספציפי, ואשמח אם מישהו יוכל לעזור לי:
                          איך אני כותב פקודת מאקרו שתציג לי (בהודעה, כך:
                          צילום מסך 2025-01-18 222030.png
                          את כל השינויים שנעשו במסמך - ע"י המאקרו של תיקון שגיאות שהעלתי למעלה.
                          אולי @pcinfogmach יוכל לעזור?

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

                          Sub תיקון_סימנים_כפולים()
                              Dim תיקונים As String
                              Dim נמצא_תיקון As Boolean
                              Dim מספר_תיקונים As Long
                              Dim מספר_תיקונים_כולל As Long
                              
                              ' אתחול
                              תיקונים = "תיקונים שבוצעו:" & vbCrLf
                              נמצא_תיקון = False
                              מספר_תיקונים_כולל = 0
                          
                              ' ביצוע התיקונים
                              מספר_תיקונים = בצע_חיפוש_והחלפה("..", ".")
                              If מספר_תיקונים > 0 Then
                                  תיקונים = תיקונים & "הוחלף '..' ב- '.' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                  נמצא_תיקון = True
                                  מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                              End If
                          
                              מספר_תיקונים = בצע_חיפוש_והחלפה(",,", ",")
                              If מספר_תיקונים > 0 Then
                                  תיקונים = תיקונים & "הוחלף ',,' ב- ',' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                  נמצא_תיקון = True
                                  מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                              End If
                          
                              מספר_תיקונים = בצע_חיפוש_והחלפה("''", "'")
                              If מספר_תיקונים > 0 Then
                                  תיקונים = תיקונים & "הוחלף '''' ב- ''' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                  נמצא_תיקון = True
                                  מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                              End If
                          
                              מספר_תיקונים = בצע_חיפוש_והחלפה("""""", """")
                              If מספר_תיקונים > 0 Then
                                  תיקונים = תיקונים & "הוחלף '""""' ב- '''' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                  נמצא_תיקון = True
                                  מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                              End If
                          
                              מספר_תיקונים = בצע_חיפוש_והחלפה("  ", " ")
                              If מספר_תיקונים > 0 Then
                                  תיקונים = תיקונים & "הוחלף '  ' ב- ' ' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                  נמצא_תיקון = True
                                  מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                              End If
                          
                              מספר_תיקונים = בצע_חיפוש_והחלפה(" ,", ",")
                              If מספר_תיקונים > 0 Then
                                  תיקונים = תיקונים & "הוחלף ' ,' ב- ',' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                  נמצא_תיקון = True
                                  מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                              End If
                          
                              מספר_תיקונים = בצע_חיפוש_והחלפה(" .", ".")
                              If מספר_תיקונים > 0 Then
                                  תיקונים = תיקונים & "הוחלף ' .' ב- '.' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                  נמצא_תיקון = True
                                  מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                              End If
                          
                              ' הודעת סיכום
                              If נמצא_תיקון And מספר_תיקונים_כולל > 0 Then
                                  MsgBox תיקונים, vbInformation, "סיכום תיקונים"
                              Else
                                  MsgBox "לא בוצעו תיקונים במסמך.", vbInformation, "סיכום תיקונים"
                              End If
                          End Sub
                          
                          Function בצע_חיפוש_והחלפה(טקסט_לחיפוש As String, טקסט_להחלפה As String) As Long
                              Dim מספר_החלפות As Long
                              מספר_החלפות = 0
                              
                              With Selection.Find
                                  .ClearFormatting
                                  .Replacement.ClearFormatting
                                  .Text = טקסט_לחיפוש
                                  .Replacement.Text = טקסט_להחלפה
                                  .Forward = True
                                  .Wrap = wdFindContinue
                                  .Format = False
                                  .MatchCase = False
                                  .MatchWholeWord = False
                                  .MatchWildcards = False
                              End With
                              
                              Do While Selection.Find.Execute(Replace:=wdReplaceOne)
                                  מספר_החלפות = מספר_החלפות + 1
                              Loop
                              
                              בצע_חיפוש_והחלפה = מספר_החלפות
                          End Function
                          
                          א מנותק
                          א מנותק
                          אלכסון
                          כתב נערך לאחרונה על ידי
                          #223

                          @מניין רק הערה, בד"כ כשמחפשים נקודה כפולה צריך לנסח כך: ..?[!.] כי מצוי מאד השימוש בשלוש נקודות.

                          P תגובה 1 תגובה אחרונה
                          1
                          • מ מניין

                            @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                            @u88 לא הבנתי מה אתה רוצה.
                            בכ"א אני צריך משהו ספציפי, ואשמח אם מישהו יוכל לעזור לי:
                            איך אני כותב פקודת מאקרו שתציג לי (בהודעה, כך:
                            צילום מסך 2025-01-18 222030.png
                            את כל השינויים שנעשו במסמך - ע"י המאקרו של תיקון שגיאות שהעלתי למעלה.
                            אולי @pcinfogmach יוכל לעזור?

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

                            Sub תיקון_סימנים_כפולים()
                                Dim תיקונים As String
                                Dim נמצא_תיקון As Boolean
                                Dim מספר_תיקונים As Long
                                Dim מספר_תיקונים_כולל As Long
                                
                                ' אתחול
                                תיקונים = "תיקונים שבוצעו:" & vbCrLf
                                נמצא_תיקון = False
                                מספר_תיקונים_כולל = 0
                            
                                ' ביצוע התיקונים
                                מספר_תיקונים = בצע_חיפוש_והחלפה("..", ".")
                                If מספר_תיקונים > 0 Then
                                    תיקונים = תיקונים & "הוחלף '..' ב- '.' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                    נמצא_תיקון = True
                                    מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                End If
                            
                                מספר_תיקונים = בצע_חיפוש_והחלפה(",,", ",")
                                If מספר_תיקונים > 0 Then
                                    תיקונים = תיקונים & "הוחלף ',,' ב- ',' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                    נמצא_תיקון = True
                                    מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                End If
                            
                                מספר_תיקונים = בצע_חיפוש_והחלפה("''", "'")
                                If מספר_תיקונים > 0 Then
                                    תיקונים = תיקונים & "הוחלף '''' ב- ''' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                    נמצא_תיקון = True
                                    מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                End If
                            
                                מספר_תיקונים = בצע_חיפוש_והחלפה("""""", """")
                                If מספר_תיקונים > 0 Then
                                    תיקונים = תיקונים & "הוחלף '""""' ב- '''' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                    נמצא_תיקון = True
                                    מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                End If
                            
                                מספר_תיקונים = בצע_חיפוש_והחלפה("  ", " ")
                                If מספר_תיקונים > 0 Then
                                    תיקונים = תיקונים & "הוחלף '  ' ב- ' ' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                    נמצא_תיקון = True
                                    מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                End If
                            
                                מספר_תיקונים = בצע_חיפוש_והחלפה(" ,", ",")
                                If מספר_תיקונים > 0 Then
                                    תיקונים = תיקונים & "הוחלף ' ,' ב- ',' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                    נמצא_תיקון = True
                                    מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                End If
                            
                                מספר_תיקונים = בצע_חיפוש_והחלפה(" .", ".")
                                If מספר_תיקונים > 0 Then
                                    תיקונים = תיקונים & "הוחלף ' .' ב- '.' - " & מספר_תיקונים & " פעמים" & vbCrLf
                                    נמצא_תיקון = True
                                    מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                End If
                            
                                ' הודעת סיכום
                                If נמצא_תיקון And מספר_תיקונים_כולל > 0 Then
                                    MsgBox תיקונים, vbInformation, "סיכום תיקונים"
                                Else
                                    MsgBox "לא בוצעו תיקונים במסמך.", vbInformation, "סיכום תיקונים"
                                End If
                            End Sub
                            
                            Function בצע_חיפוש_והחלפה(טקסט_לחיפוש As String, טקסט_להחלפה As String) As Long
                                Dim מספר_החלפות As Long
                                מספר_החלפות = 0
                                
                                With Selection.Find
                                    .ClearFormatting
                                    .Replacement.ClearFormatting
                                    .Text = טקסט_לחיפוש
                                    .Replacement.Text = טקסט_להחלפה
                                    .Forward = True
                                    .Wrap = wdFindContinue
                                    .Format = False
                                    .MatchCase = False
                                    .MatchWholeWord = False
                                    .MatchWildcards = False
                                End With
                                
                                Do While Selection.Find.Execute(Replace:=wdReplaceOne)
                                    מספר_החלפות = מספר_החלפות + 1
                                Loop
                                
                                בצע_חיפוש_והחלפה = מספר_החלפות
                            End Function
                            
                            י מנותק
                            י מנותק
                            יאיר דניאל
                            כתב נערך לאחרונה על ידי
                            #224

                            @מניין תודה

                            @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                            שאר הפקודות פשוט לא הבנתי מה הם עושים.

                            מה לא מובן?
                            התיקונים של המאקרו שהבאתי הם כדלהלן:
                            רווח כפול, פסיק כפול, נקודה כפולה, מרכאות כפולות, רווח ולאחמ"כ פסיק, רווח ולאחמ"כ נקודה, רווח ולאחמ"כ מרכאות, שלושה יודי"ם = כל אלו הוא מתקן.
                            (בעז"ה אני יעלה בקרוב עוד כמה וכמה הוספות על המאקרו הזה)

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

                              @מניין תודה

                              @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                              שאר הפקודות פשוט לא הבנתי מה הם עושים.

                              מה לא מובן?
                              התיקונים של המאקרו שהבאתי הם כדלהלן:
                              רווח כפול, פסיק כפול, נקודה כפולה, מרכאות כפולות, רווח ולאחמ"כ פסיק, רווח ולאחמ"כ נקודה, רווח ולאחמ"כ מרכאות, שלושה יודי"ם = כל אלו הוא מתקן.
                              (בעז"ה אני יעלה בקרוב עוד כמה וכמה הוספות על המאקרו הזה)

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

                              @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                              @מניין תודה

                              @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

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

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

                              י תגובה 1 תגובה אחרונה
                              5
                              • א אלכסון

                                @מניין רק הערה, בד"כ כשמחפשים נקודה כפולה צריך לנסח כך: ..?[!.] כי מצוי מאד השימוש בשלוש נקודות.

                                P מנותק
                                P מנותק
                                pcinfogmach
                                מדריכים
                                כתב נערך לאחרונה על ידי pcinfogmach
                                #226

                                @אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                @מניין רק הערה, בד"כ כשמחפשים נקודה כפולה צריך לנסח כך: ..?[!.] כי מצוי מאד השימוש בשלוש נקודות.

                                אם כבר אז כך:

                                .{1,}

                                גמ"ח עזרה וייעוץ בנושאי מחשבים

                                menajemmendelM י 2 תגובות תגובה אחרונה
                                1
                                • P pcinfogmach

                                  @אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                  @מניין רק הערה, בד"כ כשמחפשים נקודה כפולה צריך לנסח כך: ..?[!.] כי מצוי מאד השימוש בשלוש נקודות.

                                  אם כבר אז כך:

                                  .{1,}
                                  menajemmendelM מנותק
                                  menajemmendelM מנותק
                                  menajemmendel
                                  כתב נערך לאחרונה על ידי menajemmendel
                                  #227

                                  @pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                  @אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                  @מניין רק הערה, בד"כ כשמחפשים נקודה כפולה צריך לנסח כך: ..?[!.] כי מצוי מאד השימוש בשלוש נקודות.

                                  אם כבר אז כך:

                                  .{1,}
                                  

                                  נראה לי שהוא התכוון בדוקא למה שכתב, שבמקום שכתב 3 נקודות רוצה שישארו 3,

                                  תגובה 1 תגובה אחרונה
                                  0
                                  • P pcinfogmach

                                    @אלכסון כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                    @מניין רק הערה, בד"כ כשמחפשים נקודה כפולה צריך לנסח כך: ..?[!.] כי מצוי מאד השימוש בשלוש נקודות.

                                    אם כבר אז כך:

                                    .{1,}
                                    י מנותק
                                    י מנותק
                                    יאיר דניאל
                                    כתב נערך לאחרונה על ידי
                                    #228

                                    @pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                    אם כבר אז כך:

                                    .{1,}

                                    מה זה עושה?

                                    תגובה 1 תגובה אחרונה
                                    0
                                    • מ מניין

                                      @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                      @מניין תודה

                                      @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

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

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

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

                                      @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                      שעבדתי קשה בשבילך

                                      דבר ראשון, תודה.
                                      דבר שני - איך אני מכניס את כל הפעולות שאני רוצה שהוא יוסיף, האם כך:

                                      מספר_תיקונים = בצע_חיפוש_והחלפה("''", "'")
                                      If מספר_תיקונים > 0 Then
                                      תיקונים = תיקונים & "הוחלף ''''תו כלשהוא ''' בתו כלשהוא (- התיקון) " & מספר_תיקונים & " פעמים" & vbCrLf
                                      נמצא_תיקון = True
                                      מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                      End If

                                      @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                      ומה שלא הבנתי זה הפקודות שיש שם עם האותיות מנצפכ

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

                                      א תגובה 1 תגובה אחרונה
                                      0
                                      • י יאיר דניאל

                                        @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                        שעבדתי קשה בשבילך

                                        דבר ראשון, תודה.
                                        דבר שני - איך אני מכניס את כל הפעולות שאני רוצה שהוא יוסיף, האם כך:

                                        מספר_תיקונים = בצע_חיפוש_והחלפה("''", "'")
                                        If מספר_תיקונים > 0 Then
                                        תיקונים = תיקונים & "הוחלף ''''תו כלשהוא ''' בתו כלשהוא (- התיקון) " & מספר_תיקונים & " פעמים" & vbCrLf
                                        נמצא_תיקון = True
                                        מספר_תיקונים_כולל = מספר_תיקונים_כולל + מספר_תיקונים
                                        End If

                                        @מניין כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                        ומה שלא הבנתי זה הפקודות שיש שם עם האותיות מנצפכ

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

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

                                        @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                        לדוגמא: אם כתבתי "מכל מ קום" שזה יחליף לי את זה ב "מכל מ קום"

                                        לטעמיך - לא מספיק אות לפני, כי בזה יש ריווח לפני. אתה צריך רק לשלול אם יש גרשיים לפני.
                                        [או לעשות לולאה נוספת שכאשר יש גרשיים לפני תחזיר את האות לצבע הרגיל...]

                                        י תגובה 1 תגובה אחרונה
                                        0
                                        • א איש שלו'

                                          @יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                          לדוגמא: אם כתבתי "מכל מ קום" שזה יחליף לי את זה ב "מכל מ קום"

                                          לטעמיך - לא מספיק אות לפני, כי בזה יש ריווח לפני. אתה צריך רק לשלול אם יש גרשיים לפני.
                                          [או לעשות לולאה נוספת שכאשר יש גרשיים לפני תחזיר את האות לצבע הרגיל...]

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

                                          @איש-שלו כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

                                          אתה צריך רק לשלול אם יש גרשיים לפני.

                                          איך עושים את זה? אני לא מייבין גדול "בחיפוש והחלפה"
                                          ואגב אם אתה כן מבין בזה, אשמח גם לפתרון של השאלות האלו:
                                          https://mitmachim.top/post/905393

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

                                          • התחברות

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

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