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

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

   מספר_תיקונים = בצע_חיפוש_והחלפה("p^p", "^p^")
    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