דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. וורד
  5. עזרה הדדית - וורד
  6. שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

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

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

    בס"ד
    פוסט מסודר עבור העלאת מאקרואים לוורד


    הנחיות עבור עורכי פוסטים

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

    שים לב! שרשור זה נועד עבור המשתמש הפשוט לכן אבקש מכולם נא לא להעלות כאן קודים אלא רק מאקרו מוכן בתוך תבנית - כדי שכולם יוכלו להשתמש בהם בקלות. כפי שיפורט להלן, מאוד קל להתקין בוורד מאקרו מוכן באופן זה.
    להוראות כיצד להכין תבנית עם מאקרו לחץ כאן
    מי שיכול אבקש ממנו שיכין את המאקרו בתוך קובץ לחילוץ עצמי שיחלץ את הקבצים למקום הראוי %AppData%/Microsoft/Word/STARTUP
    עיין כאן להוראות איך מכינים קובץ לחילוץ עצמי


    תוכן העניינים

    תוכן העניינים אינו כולל הכול ומעדכן מידי פעם.

    1. מאקרו יישור טורים בוורד
    2. מאקרו תיקון שגיאות נפוצות
    3. תבנית מחיקת פסקאות ריקות ורווח לפני פסקא
    4. הערות ברצף
    5. שילוב של כמה מאקרוים: (הקטנת והגדלת סוגריים על כל המסמך. עריכת הפניות מקושרות. עדכון הפניות מקושרות. מעבר בין מקטעים. המרת הפניות לתג).
    6. סימון שגיאה בטקסט על ידי ..?
    7. תיקון שגיאות מנצפך ועוד שיבושים נוספים
    8. עיצוב ספרי קודש
    9. עיצוב אוטומטי של ההערות שוליים כנהוג ברוב ספרי הקודש
    10. חיפוש והחלפה פרטניים
    11. עיצוב כל כותרות בטור אחד במסמך של שני טורים
    12. מעבר עמוד לפני כותרת
    13. מאקרו שמוסיף שדה למיספור אוטומטי (שימושי מאוד לספר עם סימנים רבים, ובכל סימן יש סעיפים)
    14. מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות
    15. קוד VBA להמיר בוורד ממספרים לאותיות, רגיל ובלשון נקייה.
    16. שינוי מרווח טורים רק בהערות שוליים
    17. החלפת שדה נבחר למספור אוטומטי אותיות
    18. המרת מספרים לאותיות עם לשון נקיה
    19. חיפוש ותיקון סוגריים לא סגורים
      - תיקון סוגריים גירסה 2
    20. מאקרו לגיבוי התבנית normal (הגדרות ברירת המחדל)
    21. חילוץ טקסט - מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, עיצוב לבחירת המשתמש.
    22. מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית: - והתבנית המוכנה כאן: https://mitmachim.top/post/641294
    23. החלפת אות, מילה, או פיסקה עם הסמוכה לה
    24. הערות שולים - מספור בעברית עד 1200
    25. קבלת הקוד של התיו המסומן לתורך שימוש בחיפוש והחלפה
    26. פתרון באג שצג
    27. המרה הוספה ועריכה שדה מספור אוטומטי
    28. מספור עברי מעל שצב
    29. חיפוש והחלפה באבני בניין
    30. מאקרו הפניה מקושרת אינדקס תצוגת טויטה.
    31. מאקרו שצובע את המילה הראשונה של כל עמוד בירוק ואת המילה האחרונה באדום, נצרך מאוד לתיקונים לאחר עימוד כדי לוודא שלא קפצו מילים לעמוד הבא.
    32. מאקרו הדפסה לפי רשימה
    33. מאקרו להסתרת טקסט
    34. הפניה מקושרת ממסמך למסמך
    35. הוספת עיטור לפני או אחרי כותרת
    36. מאקרו צמצום מסמך בוורד
    37. מאקרו איזון שורה אחרונה - מילה אחרונה תלושה

    הוראות להתקנת מאקרו בקלות

    להוראות כלליות לגבי מאקרו ניתן לעיין כאן

    כדי להתקין מאקרו בוורד בקלות

    1. יש להוריד את התבנית הרצויה (תבניות יובאו בפוסטים בהמשך השרשור)

    2. יש להעתיק את התבנית אל תוך התיקייה הזו:
      AppData%\Microsoft\Word\STARTUP%
      (אפשר ללחוץ על "מקש-חלונות + R" ולהזין שם את הכתובת הנ"ל)
      - רוצים להסיר מאקרו? פשוט מחקו אותו מהתיקייה הנ"ל.

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

    1. כעת המאקרו שבתבנית יהיו זמינים לכם בכל מסמך שתרצו

    2. כדי להריץ מאקרו יש להיכנס לכרטיססית תצוגה בוורד > פקודות מאקרו > הצג פקודות מאקרו ( או ללחוץ ALT +F8).

    f56ec072-2f64-4745-b9d1-7c338a06c584-image.png

    כעת בחרו במאקרו המתאים ולחצו על הפעל.


    איך ליצור קיצורי דרך למאקרו בקלות

    אפשר גם ליצור קיצורי דרך (קיצורי מקשים או לחצן) עבור כל מאקרו שתירצו וכדלהלן:

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

    c83f3ddb-b2e4-4752-859f-470a2a64af88-image.png

    9af5da5d-f045-4687-8eba-fd015e92d0e5-image.png

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

    076e7ded-3ca5-484f-ae28-6b1190c978af-image.png

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

    בהצלחה!

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

    @pcinfogmach מצורף מאקרו תיקון שגיאות - קצת שונה ממה שכבר העלת כאן מ @א.מ
    מכיוון שאני לא יודע איך סוגרים אותו, וגם בכדי שיכולו לעבור עליו - אני מצרף אותו גם בתוך קובץ TXT.
    (יש שם כמה דברים שמיועדים למי שמשתמש עם תיקון שגיאות אוטומטי (https://mitmachim.top/topic/78023/להורדה-תיקון-שגיאות-אוטומטי-בוורד/19)

    תיקון סימנים כפולים.txt

    ||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
    .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 = 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.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 Wit
    Selection.Find.Execute Replace:=wdReplaceAll
    

    ||ספויילר

    אשמח לשיפורים, הערות, והארות

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

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

      Sub סימון_תחילת_וסוף_עמוד()
          On Error GoTo ErrorHandler ' הפעלת טיפול בשגיאות
          Dim doc As Document
          Dim rng As Range
          Dim pageCount As Integer
          Dim i As Integer
          Dim firstWord As Range
          Dim lastWord As Range
          Dim secondLastWord As Range
          Dim lastWordEnd As Long
          Dim firstWordEnd As Long
          Dim hasPunctuation As Boolean
          
          Application.UndoRecord.StartCustomRecord
          ' קבלת המסמך הפעיל
          Set doc = ActiveDocument
          pageCount = doc.ComputeStatistics(wdStatisticPages)
          
          ' מעבר על כל עמוד במסמך
          For i = 1 To pageCount
              ' הגדרת טווח העמוד
              Set rng = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i)
              rng.End = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i + 1).Start
              rng.End = rng.End - 1 ' להוציא את הסימן של עמוד חדש
              
              ' סימון המילה הראשונה
              Set firstWord = rng.Words(1)
              firstWordEnd = firstWord.End
              firstWord.font.Color = RGB(1, 255, 1) ' צבע ירוק בהיר
              
              ' סימון המילה האחרונה
              Set lastWord = rng.Words(rng.Words.Count)
              lastWordEnd = lastWord.End
              
              ' בדוק אם יש סימן פיסוק בסוף המילה האחרונה
              hasPunctuation = InStr(".!?," & Chr(34), Mid(lastWord.Text, Len(lastWord.Text), 1)) > 0
              
              If hasPunctuation Then
                  ' אם יש סימן פיסוק, צובע את שתי המילים האחרונות
                  If rng.Words.Count > 1 Then
                      Set secondLastWord = rng.Words(rng.Words.Count - 1)
                      secondLastWord.font.Color = RGB(255, 1, 1) ' צבע אדום בהיר
                  End If
                  lastWord.font.Color = RGB(255, 1, 1) ' צבע אדום בהיר
              Else
                  ' אם אין סימן פיסוק, צובע רק את המילה האחרונה
                  lastWord.font.Color = RGB(255, 1, 1) ' צבע אדום בהיר
              End If
          Next i
          
          MsgBox "המאקרו הסתיים בהצלחה!", vbInformation
          Application.UndoRecord.EndCustomRecord
          Exit Sub
          
      ErrorHandler:
          Application.UndoRecord.EndCustomRecord
          MsgBox "אירעה שגיאה: " & Err.Description, vbCritical, "שגיאה"
      End Sub
      Sub חיפוש_סימונים_שלא_במקומם()
          Static currentPage As Integer
          Static errorsFound As Boolean
          Dim doc As Document
          Dim rng As Range
          Dim pageCount As Integer
          Dim i As Integer
          Dim firstWord As Range
          Dim startOfPageColor As Long
      
          ' צבע לבדיקה
          startOfPageColor = RGB(1, 255, 1) ' ירוק בהיר
      
          ' אתחול משתנים
          Set doc = ActiveDocument
          pageCount = doc.ComputeStatistics(wdStatisticPages)
      
          ' התחלת בדיקה מהעמוד הראשון אם זה ההפעלה הראשונה
          If currentPage = 0 Then
              currentPage = 1
              errorsFound = False ' איפוס מצב שגיאות
          End If
      
          ' מעבר על עמודים מהעמוד הנוכחי עד סוף המסמך
          For i = currentPage To pageCount
              ' הגדרת טווח עמוד
              Set rng = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, count:=i)
              rng.End = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, count:=i + 1).Start - 1
      
              ' בדיקה אם יש מילים בעמוד
              If rng.Words.count > 0 Then
                  ' קבלת המילה הראשונה בדיוק מתחילת העמוד
                  Set firstWord = rng.Words(1)
                  If firstWord.Information(wdActiveEndPageNumber) = i Then
                      ' בדיקת צבע המילה הראשונה
                      If firstWord.font.Color <> startOfPageColor Then
                          firstWord.Select
                          errorsFound = True ' נמצאה שגיאה
                          currentPage = i + 1 ' שמירת המיקום להמשך החיפוש
                          Exit Sub
                      End If
                  End If
              End If
          Next i
      
          ' אם הגענו לסוף המסמך
          If errorsFound Then
              MsgBox "החיפוש הסתיים, לא נמצאו עמודים נוספים שהשתנו", vbInformation
          Else
              MsgBox "החיפוש הסתיים ולא נמצאו עמודים שהשתנו", vbInformation
          End If
      
          ' איפוס המיקום והסטטוס לבדיקות חדשות
          currentPage = 0
          errorsFound = False
      End Sub
      Sub הסרת_הצבעים_המיוחדים()
          On Error GoTo ErrorHandler ' הפעלת טיפול בשגיאות
          Dim doc As Document
          Dim rng As Range
          Dim i As Integer
          Dim word As Range
          
          ' קבלת המסמך הפעיל
          Set doc = ActiveDocument
          
          ' מעבר על כל המילים במסמך
          For Each rng In doc.StoryRanges
              Do
                  For Each word In rng.Words
                      ' אם הצבע אדום בהיר או ירוק בהיר, נסיר אותו
                      If word.font.Color = RGB(1, 255, 1) Or word.font.Color = RGB(255, 1, 1) Then
                          word.font.Color = wdColorAutomatic
                      End If
                  Next word
                  Set rng = rng.NextStoryRange
              Loop While Not rng Is Nothing
          Next rng
          
          MsgBox "הצבעים הוסרו בהצלחה!", vbInformation
          Exit Sub
          
      ErrorHandler:
          MsgBox "אירעה שגיאה: " & Err.Description, vbCritical, "שגיאה"
      End Sub
      

      עריכה: לבקשת @שלמה11 כאן שיניתי את הצבעים ללא רגילים כדי שיהיה אפשרות להסרה קלה.
      נוסף לחצן לבדיקת כל המסמך אם כל הסימנים נשארו במקומם הנכון.
      וכן נוסף לחצן להסרת הצבעים.
      כמו כן נוסף אפשרות לבטל דרך קונטרול z. ועוד שיפורים

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

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

      Sub הסרת_הצבעים_המיוחדים()
      On Error GoTo ErrorHandler ' הפעלת טיפול בשגיאות
      Dim doc As Document
      Dim rng As Range
      Dim i As Integer
      Dim word As Range

      ' קבלת המסמך הפעיל
      Set doc = ActiveDocument
      
      ' מעבר על כל המילים במסמך
      For Each rng In doc.StoryRanges
          Do
              For Each word In rng.Words
                  ' אם הצבע אדום בהיר או ירוק בהיר, נסיר אותו
                  If word.font.Color = RGB(1, 255, 1) Or word.font.Color = RGB(255, 1, 1) Then
                      word.font.Color = wdColorAutomatic
                  End If
              Next word
              Set rng = rng.NextStoryRange
          Loop While Not rng Is Nothing
      Next rng
      

      אני התכוונתי לזה:

      Sub FindGreenAndRedText()
          ' חיפוש טקסט בצבע ירוק
          With Selection.Find
              .ClearFormatting
              .Font.Color = RGB(1, 255, 1)
              .Text = ""
              .Replacement.Text = ""
              .Wrap = wdFindContinue
              .Format = True
              .Execute Replace:=wdReplaceNone
          End With
      
          ' חיפוש טקסט בצבע אדום
          With Selection.Find
              .ClearFormatting
              .Font.Color = RGB(255, 1, 1)
              .Text = ""
              .Replacement.Text = ""
              .Wrap = wdFindContinue
              .Format = True
              .Execute Replace:=wdReplaceNone
          End With
      End Sub
      
      
      
      תגובה 1 תגובה אחרונה
      0
      • י מנותק
        י מנותק
        יאיר דניאל
        כתב נערך לאחרונה על ידי
        #210

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                        זה מה שהיה שם

                        איפה זה שם?

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

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

                          זה מה שהיה שם

                          איפה זה שם?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                                    @מניין תודה

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

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

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

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

                                      @מניין תודה

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

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

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

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

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

                                      @מניין תודה

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

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

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

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

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

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

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

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

                                        אם כבר אז כך:

                                        .{1,}

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

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

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

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

                                          אם כבר אז כך:

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

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

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

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

                                          אם כבר אז כך:

                                          .{1,}
                                          

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

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

                                          • התחברות

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

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