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

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

    @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
                                • י יאיר דניאל

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

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

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

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

                                  @יאיר-דניאל
                                  תעלה את הקוד שיש לך

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

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

                                    @יאיר-דניאל
                                    תעלה את הקוד שיש לך

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

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

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

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

                                      כמה הוראות:

                                      • במאקרו "הקטנת סוגריים מרובעות" - בשורה האחרונה " Replacement.Font.SizeBi = 11" - תשנו את המספר 11 למספר הרצוי אצלכם במסמך

                                      • המאקרואים של "קפיצה כלפי מעלה" ו"קפיצה כלפי מטה" מיועדים למי שמשתמש במקלדת, ולא אוהב לגעת בעכבר, ורוצה לגלול קצת את המסמך אבל בצורה של קטעים ולא ע"י החיצים במקלדת. (מומלץ להגדיר למאקרואים אלו קיצורי מקשים במקלדת)

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

                                      • Sub דפדוף_כלפי_מטה().txt
                                        Sub דפדוף_כלפי_מעלה().txt

                                      • Sub הקטנת_סוגריים_מרובעות().txt

                                      • Sub קפיצה_לסוף_המסמך().txt

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

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

                                        כמה הוראות:

                                        • במאקרו "הקטנת סוגריים מרובעות" - בשורה האחרונה " Replacement.Font.SizeBi = 11" - תשנו את המספר 11 למספר הרצוי אצלכם במסמך

                                        • המאקרואים של "קפיצה כלפי מעלה" ו"קפיצה כלפי מטה" מיועדים למי שמשתמש במקלדת, ולא אוהב לגעת בעכבר, ורוצה לגלול קצת את המסמך אבל בצורה של קטעים ולא ע"י החיצים במקלדת. (מומלץ להגדיר למאקרואים אלו קיצורי מקשים במקלדת)

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

                                        • Sub דפדוף_כלפי_מטה().txt
                                          Sub דפדוף_כלפי_מעלה().txt

                                        • Sub הקטנת_סוגריים_מרובעות().txt

                                        • Sub קפיצה_לסוף_המסמך().txt

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

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

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

                                        לא צריך לזה שום מאקרו, יש מקש מובנה לזה במחשב CTRL + END

                                        כמו כן לגלגל כלפי מטה ומעלה יש מקש PgUp, ו PgDn, ואם אתה רוצה פסקה פסקה, אפשר פשוט CTRL+חץ למעלה או למטה, עובר פסקה פסקה

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

                                          🌟 מאקרו טקסט מתחלף בוורד🌟

                                          רוצים ליצור פירוש עם טקסט מתחלף כדוגמת רש"י או מפרשים אחרים??
                                          המאקרו שיסדר את העניינים!!

                                          איך זה עובד??

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

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

                                          תמונה להמחשה:
                                          צילום מסך 2025-02-28 151835.png

                                          להורדה מכאן

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

                                          • התחברות

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

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