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

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

    1. קודם כל צריך לפרוס את כל המסמך לשני טורים ולכוון את המרווחים.
    2. לוחצים על הלחצן 'מחזיר לטור אחד לפי כותרת' ושואל איזה סגנון רוצים להחזיר לטור אחד.
    3. שואל אם רוצים רק על פיסקא אחת או על כל המסמך, וכמובן אפשר ללחוץ על ביטול.
    4. המאקרו מנקה אוטומטי את כל סוגי הכפילויות שנוצרות בגלל הפעולה.
    5. אם רוצים אפשר לבטל הכל בלחיצה על קונטרול Z.
    6. יש אפשרות לעשות את הפעולה גם על כמה סגנונות בכל פעם על סגנון אחר או לחזור על אותו סגנון, והמאקרו מוחקת כל הכפילויות.
    7. אם רוצים להסיר ולהחזיר לשני טורים, יש לחצן נוסף 'מבטל פסקאות שעוצבו לטור אחד ומחזיר לשני טורים', יש שאלת בחירה לאחת משתי אפשרויות, או לבטל במקום אחד, או לבטל הכל בכל המסמך [במקרה שהסתבך, גם בזה יש אפשרות ביטול בלחיצה אחת קונטרול Z].
    Sub מחזיר_לטור_אחד_לפי_כותרת()
        Dim Alerts As Boolean
        Dim a As Boolean
        Dim headingName As String
        Dim para As paragraph
        Dim section As section
        Dim inSelectedHeading As Boolean
        Dim userChoice As VbMsgBoxResult
        Dim deleteParagraphBreaks As VbMsgBoxResult
        On Error GoTo ErrorHandler
        Application.UndoRecord.StartCustomRecord "החזרת לטור אחד לפי כותרת"
        Alerts = Application.DisplayAlerts
        Application.DisplayAlerts = wdAlertsNone
        Application.ScreenUpdating = False
        headingName = InputBox("הזן את שם הכותרת שברצונך לשנות לטור אחד:", "בחירת כותרת")
        If headingName = "" Then
            MsgBox "לא הוזנה כותרת. הפעולה בוטלה.", vbExclamation
            Exit Sub
        End If
        userChoice = MsgBox("האם ברצונך להחיל את השינוי על כל המסמך?", vbYesNoCancel + vbQuestion, "בחירת היקף פעולה")
        If userChoice = vbCancel Then
            MsgBox "הפעולה בוטלה.", vbExclamation
            Exit Sub
        End If
        If userChoice = vbNo Then
            Selection.MoveDown Unit:=wdParagraph, count:=1
        Else
            Selection.HomeKey Unit:=wdStory
        End If
        Do
            Selection.Find.ClearFormatting
            With Selection.Find
                .Style = headingName
                .Text = "^$"
                .Forward = True
                .Wrap = wdFindStop
                .Format = True
                .MatchCase = False
                .MatchWholeWord = False
                .MatchControl = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            a = Selection.Find.Execute
            If a = True Then
                Selection.Paragraphs(1).Range.Select
                ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _
                    InsertBreak Type:=wdSectionBreakContinuous
                Selection.Start = Selection.Start + 1
                ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _
                    Type:=wdSectionBreakContinuous
                With Selection.pageSetup.TextColumns
                    .SetCount numColumns:=1
                    .EvenlySpaced = True
                    .LineBetween = False
                End With
                Selection.MoveRight Unit:=wdCharacter, count:=1
            End If
        Loop While a = True And (userChoice = vbYes)
        Call מחיקת_מעברים_מיותרים
        Selection.HomeKey Unit:=wdStory
        MsgBox "הפעולה הושלמה! ניתן לבטל את כל השינויים באמצעות Ctrl+Z.", vbInformation
    Cleanup:
        Application.DisplayAlerts = Alerts
        Application.ScreenUpdating = True
        Application.UndoRecord.EndCustomRecord
        Exit Sub
    ErrorHandler:
        MsgBox "אירעה שגיאה: " & Err.Description, vbCritical
        Resume Cleanup
    End Sub
    Private Sub מחיקת_מעברים_מיותרים()
        Dim sectionBreakRange As Range
        Dim paraBefore As Range
        Dim paraAfter As Range
        Application.ScreenUpdating = False
        Selection.HomeKey Unit:=wdStory
        If Selection.Find.Execute(FindText:="^b", MatchWildcards:=False, Forward:=True, Wrap:=wdFindStop) = True Then
            If Selection.Start = 0 Then
                Selection.Delete
            End If
        End If
        Dim found As Boolean
        Dim specialChar As String: specialChar = ";~;"
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting: .Text = "^b^b": .Forward = True: .Wrap = wdFindStop: .Format = False: .MatchWildcards = False
        End With
        Do While Selection.Find.Execute
            Selection.Collapse Direction:=wdCollapseEnd: Selection.TypeText Text:=specialChar
        Loop
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting: .Text = "^b" & specialChar: .Forward = True: .Wrap = wdFindStop: .Format = False: .MatchWildcards = False
        End With
        Do While Selection.Find.Execute
            Selection.Delete
        Loop
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting: .Text = specialChar: .Forward = True: .Wrap = wdFindStop: .Format = False: .MatchWildcards = False
        End With
        Do While Selection.Find.Execute
            Selection.Delete
        Loop
        Selection.HomeKey Unit:=wdStory
        Do While Selection.Find.Execute(FindText:="^b", MatchWildcards:=False, Forward:=True, Wrap:=wdFindStop) = True
            Set sectionBreakRange = Selection.Range
            If sectionBreakRange.Start > 0 Then
                On Error Resume Next
                Set paraBefore = sectionBreakRange.Paragraphs(1).Range.Previous(wdParagraph, 1)
                Set paraAfter = sectionBreakRange.Paragraphs(1).Range.Next(wdParagraph, 1)
                On Error GoTo 0
                If Not paraBefore Is Nothing And Not paraAfter Is Nothing Then
                    If paraBefore.pageSetup.TextColumns.count = 1 And _
                       paraAfter.pageSetup.TextColumns.count = 1 Then
                        sectionBreakRange.Delete
                    End If
                End If
            End If
            Selection.Start = sectionBreakRange.Start
            Selection.Collapse Direction:=wdCollapseEnd
        Loop
        Application.ScreenUpdating = True
    End Sub
    Sub מבטל_פסקאות_שעוצבו_לטור_אחד_ומחזיר_לשני_טורים()
        On Error GoTo ErrorHandler ' הפעלת טיפול בשגיאות
        Dim userChoice As VbMsgBoxResult
        userChoice = MsgBox("מחזיר פיסקא נוכחית לשני טורים. האם ברצונך לעשות פעולה זו על כל המסמך?", vbYesNo + vbQuestion, "מחיקת מעברי מקטע")
        If userChoice = vbYes Then
            Call מחיקת_מעברי_מקטע_בכל_המסמך
        ElseIf userChoice = vbNo Then
            Call מחיקת_מעברי_מקטע_בפסקא_נוכחית
        Else
            MsgBox "הפעולה בוטלה.", vbInformation
        End If
        Exit Sub
    
    ErrorHandler:
        MsgBox "אירעה שגיאה: " & Err.Description, vbCritical, "שגיאה"
    End Sub
    Private Sub מחיקת_מעברי_מקטע_בכל_המסמך()
        On Error GoTo ErrorHandler ' הפעלת טיפול בשגיאות
        Dim para As paragraph
        Dim paraRange As Range
        Dim sectionRange As Range
        Application.UndoRecord.StartCustomRecord
        Application.ScreenUpdating = False
        Selection.HomeKey Unit:=wdStory
        For Each para In ActiveDocument.Paragraphs
            Set paraRange = para.Range
            If paraRange.pageSetup.TextColumns.count = 1 Then
                Set sectionRange = paraRange.Duplicate
                sectionRange.Collapse wdCollapseEnd
                sectionRange.MoveEnd Unit:=wdCharacter, count:=1
                
                If sectionRange.Text = Chr(12) Then
                    sectionRange.Delete
                    With ActiveDocument.Range(paraRange.Start - 1, paraRange.Start)
                        If .Text = Chr(12) Then
                            .Delete
                        End If
                    End With
                End If
            End If
        Next para
        MsgBox "הפעולה הסתיימה בהצלחה על כל המסמך", vbInformation
        Application.ScreenUpdating = True
        Application.UndoRecord.EndCustomRecord
        Exit Sub
    
    ErrorHandler:
        Application.ScreenUpdating = True
        Application.UndoRecord.EndCustomRecord
        MsgBox "אירעה שגיאה: " & Err.Description, vbCritical, "שגיאה"
    End Sub
    
    Private Sub מחיקת_מעברי_מקטע_בפסקא_נוכחית()
        On Error GoTo ErrorHandler ' הפעלת טיפול בשגיאות
        Dim currentPara As paragraph
        Dim paraRange As Range
        Dim sectionRange As Range
        Application.UndoRecord.StartCustomRecord
        Application.ScreenUpdating = False
        If Selection.Range.Paragraphs.count = 0 Then
            MsgBox "נא לעמוד בתוך פסקה בטור אחד.", vbExclamation
            GoTo Cleanup
        End If
        Set currentPara = Selection.Range.Paragraphs(1)
        Set paraRange = currentPara.Range
        If currentPara.Range.pageSetup.TextColumns.count <> 1 Then
            MsgBox "נא לעמוד בפסקה בטור אחד בלבד.", vbExclamation
            GoTo Cleanup
        End If
        Set sectionRange = paraRange.Duplicate
        sectionRange.Collapse wdCollapseEnd
        sectionRange.MoveEnd Unit:=wdCharacter, count:=1
        If sectionRange.Text <> Chr(12) Then
            MsgBox "נא לעמוד בפסקה האחרונה לפני מעבר לשני טורים.", vbExclamation
            GoTo Cleanup
        End If
        sectionRange.Delete
        With Selection.Find
            .ClearFormatting
            .Text = "^b"
            .Forward = False
            .Wrap = wdFindStop
            If .Execute Then Selection.Delete
        End With
        MsgBox "הפעולה הושלמה בהצלחה עבור הפסקה הנוכחית", vbInformation
    
    Cleanup:
        Application.ScreenUpdating = True
        Application.UndoRecord.EndCustomRecord
        Exit Sub
    
    ErrorHandler:
        Application.ScreenUpdating = True
        Application.UndoRecord.EndCustomRecord
        MsgBox "אירעה שגיאה: " & Err.Description, vbCritical, "שגיאה"
    End Sub
    

    שוה בדיקה

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

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

    @מניין אני רואה שבכמה מאקרו אתה מוסיף את האפשרות של ביטול פעולה אחרונה, וזה מאד עוזר, אבל חשוב מאד, לדעת שאם אתה מוסיף את זה אז עוד יותר חשוב להוסיף גם error handeling, כמו שהסברתי כאן (אחרת עלול לגרום לבעיות שאחריתם מי ישורנו)

    מ תגובה 1 תגובה אחרונה
    3
    • menajemmendelM menajemmendel

      @מניין אני רואה שבכמה מאקרו אתה מוסיף את האפשרות של ביטול פעולה אחרונה, וזה מאד עוזר, אבל חשוב מאד, לדעת שאם אתה מוסיף את זה אז עוד יותר חשוב להוסיף גם error handeling, כמו שהסברתי כאן (אחרת עלול לגרום לבעיות שאחריתם מי ישורנו)

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

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

      @מניין אני רואה שבכמה מאקרו אתה מוסיף את האפשרות של ביטול פעולה אחרונה, וזה מאד עוזר, אבל חשוב מאד, לדעת שאם אתה מוסיף את זה אז עוד יותר חשוב להוסיף גם error handeling, כמו שהסברתי כאן (אחרת עלול לגרום לבעיות שאחריתם מי ישורנו)

      עודכן כאן וגם כאן

      תגובה 1 תגובה אחרונה
      0
      • מ מניין התייחס לנושא זה
      • 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

                                          • התחברות

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

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