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

                                איך עושים בחיפוש והחלפה, תיקון לשגיאות הבאות:
                                ,א = אם יש פסיק ואז אות, שירד הפסיק לפני האות ויהיה אחריה.
                                שלום(וברכה) = אם התו הפותח של סוגריים, צמוד למילה הקודמת - איך מכניסים ריווח לפני הסוגריים [החלף: "^$(" ב: "^& (" גורם שהתוצאה תהיה כך: "( (" ]
                                שלום.(וברכה) = אם התו הפותח של סוגריים, צמוד לנקודה או פסיק - איך מכניסים ריווח לפני הסוגריים.
                                שלום)וברכה = אם התו הסוגר של סוגריים, צמוד למילה הבאה - איך מכניסין ריווח אחרי הסוגריים.

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

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

                                איך עושים בחיפוש והחלפה, תיקון לשגיאות הבאות:
                                ,א = אם יש פסיק ואז אות, שירד הפסיק לפני האות ויהיה אחריה.

                                פסיק ומילה.png

                                שלום(וברכה) = אם התו הפותח של סוגריים, צמוד למילה הקודמת - איך מכניסים ריווח לפני הסוגריים [החלף: "^$(" ב: "^& (" גורם שהתוצאה תהיה כך: "( (" ]
                                שלום.(וברכה) = אם התו הפותח של סוגריים, צמוד לנקודה או פסיק - איך מכניסים ריווח לפני הסוגריים.

                                זה פתרון לשני המופעים הנ"ל:
                                רווח בין מילה לסוגר.png

                                שלום)וברכה = אם התו הסוגר של סוגריים, צמוד למילה הבאה - איך מכניסין ריווח אחרי הסוגריים.

                                רווח אחרי סוגר.png

                                תגובה 1 תגובה אחרונה
                                2
                                • ש מנותק
                                  ש מנותק
                                  שלמה11
                                  כתב נערך לאחרונה על ידי שלמה11
                                  #233

                                  📋 מאקרו הדפסה לפי רשימה 📋

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

                                  👏 לא עוד!! הנה המאקרו שיעשה את העבודה בשבילכם 👏

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

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

                                    📋 מאקרו הדפסה לפי רשימה 📋

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

                                    👏 לא עוד!! הנה המאקרו שיעשה את העבודה בשבילכם 👏

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

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

                                    @שלמה11 יש לזה אפציה מובנית בוורד ”מיזוג דואר”

                                    ש תגובה 1 תגובה אחרונה
                                    4
                                    • menajemmendelM menajemmendel

                                      @שלמה11 יש לזה אפציה מובנית בוורד ”מיזוג דואר”

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

                                      @menajemmendel צודק...😕

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

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

                                        @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
                                        
                                        י מנותק
                                        י מנותק
                                        יאיר דניאל
                                        כתב נערך לאחרונה על ידי יאיר דניאל
                                        #236

                                        @מניין הוספתי כמה דברים (- מצורף הקובץ עם ההוספות), וזה מה שהוא כותב לי, למה???
                                        תודה רבה!צילום מסך 2025-01-24 004355.png
                                        צילום מסך 2025-01-24 004416.png

                                        ‏‏‫מסמך טקסט ‫חדש (2).txt

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

                                          מאקרו תיקון שגיאות - מתעדכן

                                          התיקונים שהוא עושה:

                                          • הוא מסיר:
                                            רווח כפול
                                            פסיק כפול
                                            נקודה כפולה
                                            מרכאות כפולות
                                            רווח ולאחמ"כ פסיק
                                            רווח ולאחמ"כ נקודה
                                            רווח ולאחמ"כ מרכאות

                                          • שלושה יודי"ם - מחליף ל שתיים

                                          • הוא מסמן את אותיות מנצפך (מ,ן,ץ,ף,ך) שיש רווח לפניהם, או שהם באמצע מילה - בצבע אדום.

                                          • מסמן אותיות שעומדות בפנ"ע (-כלומר עם רווח לפניהם ואחריהם) באדום.

                                          • הופך פיסקה 2 פיסקאות ריקות - לפיסקה 1

                                          • מסיר אותיות מנצפכ כפולות.
                                            (לדוגמא: "םם" - מחליף ב "ם")

                                          • הופך סוגריים הפוכים.
                                            (לדוגמא: ")שלום(" מחליף ב"(שלום)"). [מצוי בייבוא מאנגלית לעברית (יש לבעיה זו כבר מאקרו מובנה בווינודס)]

                                          • מוסיף רווח לפני ואחרי סוגריים - איפה שחסר.
                                            (לדוגמא: "שלום(וברכה)" \ "(שלום)וברכה". מחליף ב "שלום (וברכה)" \ "(שלום) וברכה")

                                          • מעביר נקודה, פסיק, וגרש למקומם הראוי, במקרה של הקלדה אחרי הרווח במקום לפני.
                                            (לדוגמא: "שלום ,וברכה" \ "שלום .וברכה" מחליף ב"שלום, וברכה" \ "שלום. וברכה")

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

                                          נ.ב. מי שנוהג לכתוב כך: סימן א' או שורש ח' לא נצרך לתיקון זה.

                                          נ.ב.ב. אם ישנם עוד מילים כנ"ל אשמח שיסבו את תשומת ליבי

                                          אשמח להערות והארות וכן להוספות.
                                          מאקרו תיקון סימנים כפולים ועוד.txt

                                          קובץ וורד - דוגמא לפעילות המאקרו:
                                          בדיקת מאקרו תיקון סימנים כפולים.docx

                                          Sub תיקון_סימנים_כפולים_ועוד()
                                          '
                                          ' תיקון_סימנים_כפולים_ועוד Macro
                                          '
                                          '
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = "..[!.]"
                                          .Replacement.Text = ". "
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = ".{4,}"
                                          .Replacement.Text = "..."
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = ",,"
                                          .Replacement.Text = ","
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = "םם"
                                          .Replacement.Text = "ם"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ןן"
                                          .Replacement.Text = "ן"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ץץ"
                                          .Replacement.Text = "ץ"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ףף"
                                          .Replacement.Text = "ף"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ךך"
                                          .Replacement.Text = "ך"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ם"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ן"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ץ"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ף"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ך"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          Selection.Find.Replacement.Font.Color = wdColorRed
                                          With Selection.Find
                                          .Text = "ם^$"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ן^$"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ץ^$"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ף^$"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ך^$"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          Selection.Find.Replacement.Font.Color = wdColorAutomatic
                                          With Selection.Find
                                          .Text = ".[! ]?"
                                          .Replacement.Text = "@.^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = "@.."
                                          .Replacement.Text = ". "
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = ",[! ]?"
                                          .Replacement.Text = "@,^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = "@,,"
                                          .Replacement.Text = ","
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = "(.)([! ^13]>)"
                                          .Replacement.Text = "\1 \2"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "(,)([! ^13]
                                          >)"
                                          .Replacement.Text = "\1 \2"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "(')([! ^13]*>)"
                                          .Replacement.Text = "\1 \2"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = "([! ^13'""])([([])"
                                          .Replacement.Text = "\1 \2"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "([)]])([! ^13.,'""?!])"
                                          .Replacement.Text = "\1 \2"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          Selection.Find.Replacement.Font.Color = wdColorRed
                                          With Selection.Find
                                          .Text = " [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " [א-ת]^13"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          Selection.Find.Replacement.Font.Color = wdColorAutomatic
                                          With Selection.Find
                                          .Text = "ג [א-ת]^13"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ש [א-ת]^13"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "' [א-ת]^13"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ק [א-ת]^13"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ן [א-ת]^13"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ת [א-ת]^13"
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          Selection.Find.Replacement.Font.Color = wdColorAutomatic
                                          With Selection.Find
                                          .Text = "ן [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ש [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ק [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ת [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ף [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "ג [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = "' [א-ת] "
                                          .Replacement.Text = "^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = "ייי"
                                          .Replacement.Text = "יי"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ) "
                                          .Replacement.Text = " ("
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = " ) "
                                          .Replacement.Text = " ("
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = " ( "
                                          .Replacement.Text = ") "
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          With Selection.Find
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = " "
                                          .Replacement.Text = " "
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchAllWordForms = False
                                          .MatchSoundsLike = False
                                          .MatchWildcards = True
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = " ^p"
                                          .Replacement.Text = "^p"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ^p^p"
                                          .Replacement.Text = "^p"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.ClearFormatting
                                          Selection.Find.Replacement.ClearFormatting
                                          With Selection.Find
                                          .Text = " ,"
                                          .Replacement.Text = ","
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          With Selection.Find
                                          .Text = " ."
                                          .Replacement.Text = "."
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = False
                                          .MatchCase = False
                                          .MatchWholeWord = False
                                          .MatchKashida = False
                                          .MatchDiacritics = False
                                          .MatchAlefHamza = False
                                          .MatchControl = False
                                          .MatchWildcards = False
                                          .MatchSoundsLike = False
                                          .MatchAllWordForms = False
                                          End With
                                          Selection.Find.Execute Replace:=wdReplaceAll
                                          End With
                                          End Sub

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

                                          • התחברות

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

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