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

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

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

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

    י מנותק
    י מנותק
    יאיר דניאל
    כתב נערך לאחרונה על ידי
    #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
                • י מנותק
                  י מנותק
                  יאיר דניאל
                  כתב נערך לאחרונה על ידי יאיר דניאל
                  #238
                  פוסט זה נמחק!
                  ש תגובה 1 תגובה אחרונה
                  3
                  • י יאיר דניאל

                    פוסט זה נמחק!

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

                    מי שמועניין מאקרו להסתרת טקסט
                    https://mitmachim.top/topic/79487/בקשת-מידע-טשטוש-טקסט-בוורד

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

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

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

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

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

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

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

                      • הופך פיסקה 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

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

                      @יאיר-דניאל בנוגע לתיקון נקודה כפולה - כבר כתבתי למעלה שהרבה פעמים כותבים שלוש נקודות ...
                      ובצורה שאתה עשית זה יהפוך להיות רק שתיים.
                      לכן החיפוש צריך להיות "..[!]." להחליף ב "..." וכן למקרה שיצא 4 נקודות צריך לחפש: ".{4,}" החלף ב"..."

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

                        @יאיר-דניאל בנוגע לתיקון נקודה כפולה - כבר כתבתי למעלה שהרבה פעמים כותבים שלוש נקודות ...
                        ובצורה שאתה עשית זה יהפוך להיות רק שתיים.
                        לכן החיפוש צריך להיות "..[!]." להחליף ב "..." וכן למקרה שיצא 4 נקודות צריך לחפש: ".{4,}" החלף ב"..."

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

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

                        לכן החיפוש צריך להיות "..[!]." להחליף ב "..."

                        לא הבנתי את הפקודה שלך - מה זה אומר לעשות? א"א לעשות ב"חפש את" ..[!]. זהו טקסט לא חוקי.
                        אם כבר אפשר לעשות כך: חפש את - .{2,} החלף ב - .

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

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

                          לכן החיפוש צריך להיות "..[!]." להחליף ב "..."

                          לא הבנתי את הפקודה שלך - מה זה אומר לעשות? א"א לעשות ב"חפש את" ..[!]. זהו טקסט לא חוקי.
                          אם כבר אפשר לעשות כך: חפש את - .{2,} החלף ב - .

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

                          @יאיר-דניאל סליחה טעות, הנקודה צריכה להיות בתוך הסוגריים.
                          אבל ליתר דיוק החיפוש צריך להיות כך: (?[!.])(..)(?[!.]) החלף ב \1.\3

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

                            @יאיר-דניאל סליחה טעות, הנקודה צריכה להיות בתוך הסוגריים.
                            אבל ליתר דיוק החיפוש צריך להיות כך: (?[!.])(..)(?[!.]) החלף ב \1.\3

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

                            @אלכסון לא הבנתי בשביל מה כל הסיבוך הזה - הרבה יותר פשוט כמו שאמרת, חפש את "..[!.]" החלף ב"."
                            בדרך כלל לא קורה לאנשים שהם מקלידים ארבע פעמים נקודה בטעות..., אלא א"כ הם התכוונו להקליד ... ויצא להם ....
                            ולזה מועיל הפקודה הבאה - חפש את "...." החלף ב "..." (וכמובן - להפעיל פקודה זו לפני הקודמת), או פשוט יותר חפש את ".{4,}" החלף ב"..."
                            אגב שתי הפקודות האלו כבר הוכנסו (היום) במאקרו שהעליתי לעיל.

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

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

                              @pcinfogmach

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

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

                                @pcinfogmach

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

                                @יאיר-דניאל
                                לא הבנתי על איזה פקודה אתה מדבר

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

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

                                  @יאיר-דניאל
                                  לא הבנתי על איזה פקודה אתה מדבר

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

                                  @pcinfogmach צודק, סליחה לא צירפתי את התמונה
                                  ‏‏לכידה.PNG

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

                                    @pcinfogmach צודק, סליחה לא צירפתי את התמונה
                                    ‏‏לכידה.PNG

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

                                    @יאיר-דניאל
                                    תנסה כך:
                                    cd5fbb38-666d-4491-a2e0-a46fe7c0f74b-image.png

                                    נ.ב אם אפשר הייתי מעדיף ששאלות ממין זה יהיו בשרשור של החיפוש והחלפה לא בשרשור של מאקרו - תודה מראש

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

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

                                      @יאיר-דניאל
                                      תנסה כך:
                                      cd5fbb38-666d-4491-a2e0-a46fe7c0f74b-image.png

                                      נ.ב אם אפשר הייתי מעדיף ששאלות ממין זה יהיו בשרשור של החיפוש והחלפה לא בשרשור של מאקרו - תודה מראש

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

                                      @pcinfogmach איך אני עושה פקודת מאקרו כדלהלן:
                                      אני מעוניין ליצור פקודת מאקרו להערת שוליים בגודל ובכתב מסויים. שגם מספר הערה לא יהיה כמו הברירת מחדל, (10 נקודות) אלא יהיה 9 נקודות, וגם הכתב יהיה בגודל 9 נקודות ולא 10.
                                      איך עושים זאת?
                                      אגב אם יש לך תשובה לזה https://mitmachim.top/post/918133 אשמח לקבלה. תודה רבה!

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

                                        @pcinfogmach איך אני עושה פקודת מאקרו כדלהלן:
                                        אני מעוניין ליצור פקודת מאקרו להערת שוליים בגודל ובכתב מסויים. שגם מספר הערה לא יהיה כמו הברירת מחדל, (10 נקודות) אלא יהיה 9 נקודות, וגם הכתב יהיה בגודל 9 נקודות ולא 10.
                                        איך עושים זאת?
                                        אגב אם יש לך תשובה לזה https://mitmachim.top/post/918133 אשמח לקבלה. תודה רבה!

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

                                        @יאיר-דניאל
                                        נשמע שאתה רוצה לעשות לולאה על הערות שוליים
                                        לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שוליים

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

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

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

                                          @יאיר-דניאל
                                          נשמע שאתה רוצה לעשות לולאה על הערות שוליים
                                          לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שוליים

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

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

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

                                          נשמע שאתה רוצה לעשות לולאה על הערות שוליים
                                          לולאה ממין זה תיתן לך גישה גם להפניה וגם להערת שוליים

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

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

                                          • התחברות

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

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