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

    @menajemmendel למה זה?

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

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

    @menajemmendel למה זה?

    זה תגובה לבקשת @מניין כאן (שביקש אם מישהו יכול לכתוב קוד שיעבוד גם בשתי טורים).

    menajemmendelM מ 2 תגובות תגובה אחרונה
    0
    • menajemmendelM menajemmendel התייחס לנושא זה
    • menajemmendelM menajemmendel

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

      @menajemmendel למה זה?

      זה תגובה לבקשת @מניין כאן (שביקש אם מישהו יכול לכתוב קוד שיעבוד גם בשתי טורים).

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

      📜 המאקרו המהפכני שכולם חיכו לו - חובה בכל מחשב! 📜

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

      🔍 הכירו את המאקרו
      מאקרו חדשני שמאפשר לספור כמה פעמים מופיעות אותיות מסוימות במסמך וורד! כן, שמעתם נכון!
      הכלי הזה יאפשר לכם:
      1️⃣ לגלות באילו אותיות אתם משתמשים הכי הרבה – אולי תגלו שאותיות כמו "צ" ו-"ף" זוכות להזנחה חמורה!
      2️⃣ להבין לעומק את סגנון הכתיבה שלכם – מה זה אומר עליכם אם האות "ת" מופיעה פי שניים מהאות "א"? (התשובה: הרבה).
      3️⃣ להרגיש מתוחכמים יותר מכל החברים שלכם, כי יש לכם מאקרו של מיספור אותיות וזה בדיוק מה שחסר להם בחיים שלהם.

      🤔 למי זה מתאים?

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

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

      👑 אז למה אתם מחכים?
      לחצו עכשיו על הקוד וצאו למסע שאפילו אילון מאסק עוד לא העז לחלום עליו!

      Sub arraySample()
      Dim otiot(1 To 22) As String
      Dim otiotNumber(1 To 22) As Integer
      Dim olddoc As Document
      Dim newdoc As Document
      
      otiot(1) = "א"
      otiot(2) = "ב"
      otiot(3) = "ג"
      otiot(4) = "ד"
      otiot(5) = "ה"
      otiot(6) = "ו"
      otiot(7) = "ז"
      otiot(8) = "ח"
      otiot(9) = "ט"
      otiot(10) = "י"
      otiot(11) = "כ"
      otiot(12) = "ל"
      otiot(13) = "מ"
      otiot(14) = "נ"
      otiot(15) = "ס"
      otiot(16) = "ע"
      otiot(17) = "פ"
      otiot(18) = "צ"
      otiot(19) = "ק"
      otiot(20) = "ר"
      otiot(21) = "ש"
      otiot(22) = "ת"
      
      Set olddoc = ActiveDocument
      Set newdoc = Documents.Add
      
      For i = LBound(otiot) To UBound(otiot)
          otiotNumber(i) = Len(olddoc.Range) - Len(Replace(olddoc.Range, otiot(i), ""))
          newdoc.Range.InsertAfter otiot(i) & " מופיע " & otiotNumber(i) & " מספר פעמים" & vbCr
      Next i
      
      newdoc.Activate
      
      End Sub
      
      צ תגובה 1 תגובה אחרונה
      1
      • menajemmendelM menajemmendel

        📜 המאקרו המהפכני שכולם חיכו לו - חובה בכל מחשב! 📜

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

        🔍 הכירו את המאקרו
        מאקרו חדשני שמאפשר לספור כמה פעמים מופיעות אותיות מסוימות במסמך וורד! כן, שמעתם נכון!
        הכלי הזה יאפשר לכם:
        1️⃣ לגלות באילו אותיות אתם משתמשים הכי הרבה – אולי תגלו שאותיות כמו "צ" ו-"ף" זוכות להזנחה חמורה!
        2️⃣ להבין לעומק את סגנון הכתיבה שלכם – מה זה אומר עליכם אם האות "ת" מופיעה פי שניים מהאות "א"? (התשובה: הרבה).
        3️⃣ להרגיש מתוחכמים יותר מכל החברים שלכם, כי יש לכם מאקרו של מיספור אותיות וזה בדיוק מה שחסר להם בחיים שלהם.

        🤔 למי זה מתאים?

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

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

        👑 אז למה אתם מחכים?
        לחצו עכשיו על הקוד וצאו למסע שאפילו אילון מאסק עוד לא העז לחלום עליו!

        Sub arraySample()
        Dim otiot(1 To 22) As String
        Dim otiotNumber(1 To 22) As Integer
        Dim olddoc As Document
        Dim newdoc As Document
        
        otiot(1) = "א"
        otiot(2) = "ב"
        otiot(3) = "ג"
        otiot(4) = "ד"
        otiot(5) = "ה"
        otiot(6) = "ו"
        otiot(7) = "ז"
        otiot(8) = "ח"
        otiot(9) = "ט"
        otiot(10) = "י"
        otiot(11) = "כ"
        otiot(12) = "ל"
        otiot(13) = "מ"
        otiot(14) = "נ"
        otiot(15) = "ס"
        otiot(16) = "ע"
        otiot(17) = "פ"
        otiot(18) = "צ"
        otiot(19) = "ק"
        otiot(20) = "ר"
        otiot(21) = "ש"
        otiot(22) = "ת"
        
        Set olddoc = ActiveDocument
        Set newdoc = Documents.Add
        
        For i = LBound(otiot) To UBound(otiot)
            otiotNumber(i) = Len(olddoc.Range) - Len(Replace(olddoc.Range, otiot(i), ""))
            newdoc.Range.InsertAfter otiot(i) & " מופיע " & otiotNumber(i) & " מספר פעמים" & vbCr
        Next i
        
        newdoc.Activate
        
        End Sub
        
        צ מנותק
        צ מנותק
        צדיק וטוב לו 0
        כתב נערך לאחרונה על ידי
        #187

        @menajemmendel הוא עובד גם אותיות סופיות?
        (אגב, מה הבעיה לספור דרך החיפוש פשוט של וורד?)

        U menajemmendelM 2 תגובות תגובה אחרונה
        1
        • צ צדיק וטוב לו 0

          @menajemmendel הוא עובד גם אותיות סופיות?
          (אגב, מה הבעיה לספור דרך החיפוש פשוט של וורד?)

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

          @צדיק-וטוב-לו-0 הוא לא עובד על אותיות סופיות אבל אפשר להוסיף תראה שבשורה 2 ובשורה 3 כתוב שיש 22 מופעים של אותיות אז תוסיף אחרי שורה 28 את הקוד של האות (כמו אחת האותיות לפני) ותכתוב שם מה שאתה רוצה (רק לא לשכוח לעדכן בקוד למעלה מספר מופעים ( otiot)

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

            @menajemmendel הוא עובד גם אותיות סופיות?
            (אגב, מה הבעיה לספור דרך החיפוש פשוט של וורד?)

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

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

            (אגב, מה הבעיה לספור דרך החיפוש פשוט של וורד?)

            0

            כאן אתה מקבל דו''ח, וגם כולם בבת אחת, לא צריך לעשות אחד אחד

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

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

              @menajemmendel למה זה?

              זה תגובה לבקשת @מניין כאן (שביקש אם מישהו יכול לכתוב קוד שיעבוד גם בשתי טורים).

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

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

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

              @menajemmendel למה זה?

              זה תגובה לבקשת @מניין כאן (שביקש אם מישהו יכול לכתוב קוד שיעבוד גם בשתי טורים).

              כנראה לא הסברתי את עצמי טוב, אני רציתי שיהיה כמו בתמונה המצורפת, והמאקרו שלך לא פתר את זה, אבל למעשה זה לא נצרך כי מספיק שיש סימון בתחילת העמוד ובסוף העמוד, ולכן מחקתי את הבקשה.
              רק עדיין מעניין אותי אם יש אפשרות כזאת של מאקרו שימצא את סוף הטור של צד ימין ואת תחילת הטור של צד שמאל, ניסיתי בgpt בכמה וכמה שיטות והוא לא הצליח בשום אופן.
              4d73c7c8-dd91-4032-9cc3-60ca7877a73b-image.png

              menajemmendelM P 2 תגובות תגובה אחרונה
              0
              • מ מניין

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

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

                @menajemmendel למה זה?

                זה תגובה לבקשת @מניין כאן (שביקש אם מישהו יכול לכתוב קוד שיעבוד גם בשתי טורים).

                כנראה לא הסברתי את עצמי טוב, אני רציתי שיהיה כמו בתמונה המצורפת, והמאקרו שלך לא פתר את זה, אבל למעשה זה לא נצרך כי מספיק שיש סימון בתחילת העמוד ובסוף העמוד, ולכן מחקתי את הבקשה.
                רק עדיין מעניין אותי אם יש אפשרות כזאת של מאקרו שימצא את סוף הטור של צד ימין ואת תחילת הטור של צד שמאל, ניסיתי בgpt בכמה וכמה שיטות והוא לא הצליח בשום אופן.
                4d73c7c8-dd91-4032-9cc3-60ca7877a73b-image.png

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

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

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

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

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

                  @menajemmendel למה זה?

                  זה תגובה לבקשת @מניין כאן (שביקש אם מישהו יכול לכתוב קוד שיעבוד גם בשתי טורים).

                  כנראה לא הסברתי את עצמי טוב, אני רציתי שיהיה כמו בתמונה המצורפת, והמאקרו שלך לא פתר את זה, אבל למעשה זה לא נצרך כי מספיק שיש סימון בתחילת העמוד ובסוף העמוד, ולכן מחקתי את הבקשה.
                  רק עדיין מעניין אותי אם יש אפשרות כזאת של מאקרו שימצא את סוף הטור של צד ימין ואת תחילת הטור של צד שמאל, ניסיתי בgpt בכמה וכמה שיטות והוא לא הצליח בשום אופן.
                  4d73c7c8-dd91-4032-9cc3-60ca7877a73b-image.png

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

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

                  ניסיתי בgpt בכמה וכמה שיטות והוא לא הצליח בשום אופן.

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

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

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

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

                    ניסיתי בgpt בכמה וכמה שיטות והוא לא הצליח בשום אופן.

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

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

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

                    @pcinfogmach אני אישית משתמש בשיטה אחרת (לדעתי יותר טובה, לולאה, שבודקת אם הטקטס בשורה הזו נמוך מבחינת גובה יותר מהטקסט בשורה הקודמת)

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

                      @pcinfogmach אני אישית משתמש בשיטה אחרת (לדעתי יותר טובה, לולאה, שבודקת אם הטקטס בשורה הזו נמוך מבחינת גובה יותר מהטקסט בשורה הקודמת)

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

                      🌀 המאקרו שישים סוף לעוגמת הנפש – סידור מילים בסדר עולה! 🌀

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

                      הבעיה הידועה:

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

                      כמה פעמים אמרתם לעצמכם:

                      • "למה המילים האלה לא מסודרות בצורה נורמלית?"
                      • "איך אני אמור לקרוא את זה?"
                      • "איזו עוגמת נפש!"
                      • מישהו שולח לכם חידוש תורה, ואתם שואלים את עצמכם: "למה 'מצווה' מגיעה לפני 'ברכה'? זה לא הגיוני!"

                      🔄 הפתרון – המאקרו החדש שלי!

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

                      📌 איך זה עובד?
                      זה פשוט גאוני – המאקרו משתמש באלגוריתם ה"בועה" (Bubble Sort), הידוע כאלגוריתם שמביא סדר לעולם, ומסדר את המילים שלכם כמו שחלמתם.
                      דוגמאות לשימושים מעשיים:
                      • סידור כתבות מבולגנות מהעיתון.
                      • מיון חידושי תורה כך שגם החברותא שלכם יבין מה קורה.
                      • סידור מכתבים מחברים כדי שתוכלו סוף סוף להבין מה הם רוצים להגיד.

                      📣 תגובות נרגשות מהשטח:

                      💬 "סידור המילים שינה לי את החיים. סוף סוף אני יכול לקרוא בלי להתרגז."
                      💬 "חשבתי שבלגן בטקסטים זה גזירת גורל, אבל המאקרו הזה פתח לי את העיניים."
                      💬 "Bubble Sort? יותר כמו Life Sort! החיים שלי מסודרים עכשיו."
                      💬 "זה לא רק כלי, זה פילוסופיית חיים. כל המילים במקום אחד – מדהים."
                      💬 "מאז שסידרתי את רשימת המכולת שלי, הכל מרגיש טוב יותר."

                      💔 למי שאין את המאקרו הזה:

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

                      🛠️ אז למה אתם מחכים?

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

                      Sub ARRAYSAMPLE2()
                      Dim otext As String
                      Dim wordList() As String
                      Dim temporal As String
                      Dim newdoc As Document
                      Dim confirmation As VbMsgBoxResult
                      
                          
                          confirmation = MsgBox("אל תשתמשו בסמך גדול, כי יקח לזה הרבה זמן, רצונך למהשיך", _
                                          vbYesNo + vbQuestion)
                      
                      If confirmation = vbYes Then
                          
                          otext = ActiveDocument.Content
                          wordList = Split(otext, " ")
                          
                          
                          'sort with Bubble Sort method
                              For i = LBound(wordList) To (UBound(wordList) - 1)
                                  For j = i + 1 To UBound(wordList)
                                      If wordList(i) > wordList(j) Then
                                          temporal = wordList(i)
                                          wordList(i) = wordList(j)
                                          wordList(j) = temporal
                                      End If
                                      DoEvents
                                  Next j
                              Next i
                          
                          
                          Set newdoc = Documents.Add
                          newdoc.Content.InsertAfter Join(wordList, ", ")
                      
                      End If
                      End Sub
                      
                      צ ד 2 תגובות תגובה אחרונה
                      0
                      • menajemmendelM menajemmendel

                        🌀 המאקרו שישים סוף לעוגמת הנפש – סידור מילים בסדר עולה! 🌀

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

                        הבעיה הידועה:

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

                        כמה פעמים אמרתם לעצמכם:

                        • "למה המילים האלה לא מסודרות בצורה נורמלית?"
                        • "איך אני אמור לקרוא את זה?"
                        • "איזו עוגמת נפש!"
                        • מישהו שולח לכם חידוש תורה, ואתם שואלים את עצמכם: "למה 'מצווה' מגיעה לפני 'ברכה'? זה לא הגיוני!"

                        🔄 הפתרון – המאקרו החדש שלי!

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

                        📌 איך זה עובד?
                        זה פשוט גאוני – המאקרו משתמש באלגוריתם ה"בועה" (Bubble Sort), הידוע כאלגוריתם שמביא סדר לעולם, ומסדר את המילים שלכם כמו שחלמתם.
                        דוגמאות לשימושים מעשיים:
                        • סידור כתבות מבולגנות מהעיתון.
                        • מיון חידושי תורה כך שגם החברותא שלכם יבין מה קורה.
                        • סידור מכתבים מחברים כדי שתוכלו סוף סוף להבין מה הם רוצים להגיד.

                        📣 תגובות נרגשות מהשטח:

                        💬 "סידור המילים שינה לי את החיים. סוף סוף אני יכול לקרוא בלי להתרגז."
                        💬 "חשבתי שבלגן בטקסטים זה גזירת גורל, אבל המאקרו הזה פתח לי את העיניים."
                        💬 "Bubble Sort? יותר כמו Life Sort! החיים שלי מסודרים עכשיו."
                        💬 "זה לא רק כלי, זה פילוסופיית חיים. כל המילים במקום אחד – מדהים."
                        💬 "מאז שסידרתי את רשימת המכולת שלי, הכל מרגיש טוב יותר."

                        💔 למי שאין את המאקרו הזה:

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

                        🛠️ אז למה אתם מחכים?

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

                        Sub ARRAYSAMPLE2()
                        Dim otext As String
                        Dim wordList() As String
                        Dim temporal As String
                        Dim newdoc As Document
                        Dim confirmation As VbMsgBoxResult
                        
                            
                            confirmation = MsgBox("אל תשתמשו בסמך גדול, כי יקח לזה הרבה זמן, רצונך למהשיך", _
                                            vbYesNo + vbQuestion)
                        
                        If confirmation = vbYes Then
                            
                            otext = ActiveDocument.Content
                            wordList = Split(otext, " ")
                            
                            
                            'sort with Bubble Sort method
                                For i = LBound(wordList) To (UBound(wordList) - 1)
                                    For j = i + 1 To UBound(wordList)
                                        If wordList(i) > wordList(j) Then
                                            temporal = wordList(i)
                                            wordList(i) = wordList(j)
                                            wordList(j) = temporal
                                        End If
                                        DoEvents
                                    Next j
                                Next i
                            
                            
                            Set newdoc = Documents.Add
                            newdoc.Content.InsertAfter Join(wordList, ", ")
                        
                        End If
                        End Sub
                        
                        צ מנותק
                        צ מנותק
                        צדיק וטוב לו 0
                        כתב נערך לאחרונה על ידי
                        #195

                        @menajemmendel חייב לציין שהמון מלל, אך לא הבנתי מה בדיוק המאקרו אמור לעשות.
                        זה נראה שביקשת מGPT לכתוב את הפוסט, וחבל.

                        ח תגובה 1 תגובה אחרונה
                        4
                        • צ צדיק וטוב לו 0

                          @menajemmendel חייב לציין שהמון מלל, אך לא הבנתי מה בדיוק המאקרו אמור לעשות.
                          זה נראה שביקשת מGPT לכתוב את הפוסט, וחבל.

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

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

                          @menajemmendel חייב לציין שהמון מלל, אך לא הבנתי מה בדיוק המאקרו אמור לעשות.
                          זה נראה שביקשת מGPT לכתוב את הפוסט, וחבל.

                          גם אני לא הבנתי כלום.
                          לא יודע מה הבעיה, ועל מה הפתרון.

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

                            🌀 המאקרו שישים סוף לעוגמת הנפש – סידור מילים בסדר עולה! 🌀

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

                            הבעיה הידועה:

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

                            כמה פעמים אמרתם לעצמכם:

                            • "למה המילים האלה לא מסודרות בצורה נורמלית?"
                            • "איך אני אמור לקרוא את זה?"
                            • "איזו עוגמת נפש!"
                            • מישהו שולח לכם חידוש תורה, ואתם שואלים את עצמכם: "למה 'מצווה' מגיעה לפני 'ברכה'? זה לא הגיוני!"

                            🔄 הפתרון – המאקרו החדש שלי!

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

                            📌 איך זה עובד?
                            זה פשוט גאוני – המאקרו משתמש באלגוריתם ה"בועה" (Bubble Sort), הידוע כאלגוריתם שמביא סדר לעולם, ומסדר את המילים שלכם כמו שחלמתם.
                            דוגמאות לשימושים מעשיים:
                            • סידור כתבות מבולגנות מהעיתון.
                            • מיון חידושי תורה כך שגם החברותא שלכם יבין מה קורה.
                            • סידור מכתבים מחברים כדי שתוכלו סוף סוף להבין מה הם רוצים להגיד.

                            📣 תגובות נרגשות מהשטח:

                            💬 "סידור המילים שינה לי את החיים. סוף סוף אני יכול לקרוא בלי להתרגז."
                            💬 "חשבתי שבלגן בטקסטים זה גזירת גורל, אבל המאקרו הזה פתח לי את העיניים."
                            💬 "Bubble Sort? יותר כמו Life Sort! החיים שלי מסודרים עכשיו."
                            💬 "זה לא רק כלי, זה פילוסופיית חיים. כל המילים במקום אחד – מדהים."
                            💬 "מאז שסידרתי את רשימת המכולת שלי, הכל מרגיש טוב יותר."

                            💔 למי שאין את המאקרו הזה:

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

                            🛠️ אז למה אתם מחכים?

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

                            Sub ARRAYSAMPLE2()
                            Dim otext As String
                            Dim wordList() As String
                            Dim temporal As String
                            Dim newdoc As Document
                            Dim confirmation As VbMsgBoxResult
                            
                                
                                confirmation = MsgBox("אל תשתמשו בסמך גדול, כי יקח לזה הרבה זמן, רצונך למהשיך", _
                                                vbYesNo + vbQuestion)
                            
                            If confirmation = vbYes Then
                                
                                otext = ActiveDocument.Content
                                wordList = Split(otext, " ")
                                
                                
                                'sort with Bubble Sort method
                                    For i = LBound(wordList) To (UBound(wordList) - 1)
                                        For j = i + 1 To UBound(wordList)
                                            If wordList(i) > wordList(j) Then
                                                temporal = wordList(i)
                                                wordList(i) = wordList(j)
                                                wordList(j) = temporal
                                            End If
                                            DoEvents
                                        Next j
                                    Next i
                                
                                
                                Set newdoc = Documents.Add
                                newdoc.Content.InsertAfter Join(wordList, ", ")
                            
                            End If
                            End Sub
                            
                            ד מנותק
                            ד מנותק
                            דאנציג
                            כתב נערך לאחרונה על ידי
                            #197

                            @menajemmendel

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

                            זה נראה שביקשת מGPT לכתוב את הפוסט,

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

                            @menajemmendel תכתוב למודל שאתה משתמש בו שייצר לך את הטקסטים, שהוא משעשע במקום להיות רציני.
                            מההיכרות שלי איתך, אלמלא השורה הזו:

                            אגב אני רוצה להדגיש שכמה שהמאקרוים שלי נראים יפים להפליא הם פרי יצירתי ולא ממו''ר GPT, פשוט לאחרונה רכשתי קורס של VBA לוורד (ושיפר את ביצועים שלי בעשרות מונים)

                            הייתי כותב לך שלא מתאים לך להעלות דברים של GPT...

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

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

                            ששמעוןש תגובה 1 תגובה אחרונה
                            1
                            • ד דאנציג

                              @menajemmendel

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

                              זה נראה שביקשת מGPT לכתוב את הפוסט,

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

                              @menajemmendel תכתוב למודל שאתה משתמש בו שייצר לך את הטקסטים, שהוא משעשע במקום להיות רציני.
                              מההיכרות שלי איתך, אלמלא השורה הזו:

                              אגב אני רוצה להדגיש שכמה שהמאקרוים שלי נראים יפים להפליא הם פרי יצירתי ולא ממו''ר GPT, פשוט לאחרונה רכשתי קורס של VBA לוורד (ושיפר את ביצועים שלי בעשרות מונים)

                              הייתי כותב לך שלא מתאים לך להעלות דברים של GPT...

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

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

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

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

                              menajemmendelM תגובה 1 תגובה אחרונה
                              2
                              • ששמעוןש ששמעון

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

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

                                @ששמעון @דאנציג
                                או חבר'ה, תקשיבו,
                                אני באמת לא יודע מה עובר עליכם בזמן האחרון שאתם כ''כ קשוחים... אולי זה קשור למח' בין השו"ע והרש"ל אם ימי חנוכה נקבעו רק להלל והודאה או גם לשמחה (ואכמ''ל). אבל ברשותכם, אני רוצה לעשות סדר ולהבהיר:
                                בואו נגיד את האמת – שני המאקרואים שהעליתי פה הם לא שימושיים בכלל.
                                אני יודע את זה, ואתם יודעים את זה (לפחות עכשיו). אבל רגע, לפני שאתם זורקים את הקוד לפח ואותי ביחד עם הקוד, אבהיר שיש כאן הרבה מה ללמוד משתי הקודים האלו: המאקרו הראשון – ספירת אותיות:
                                הרעיון פה הוא לא אם זה באמת נחוץ לספור כמה פעמים האות "ק" מופיעה בטקסט.
                                הרעיון הוא ללמוד איך לעבוד עם Arrays – איך יוצרים רשימה, איך משתמשים בה, איך יודעים מה ההתחלה ומה הסוף (LBound ו-UBound). כמו שאכן ידידנו @u88 למד את זה והבין את הנושא בצורה ברורה!
                                מאקרו השני – סידור לפי א"ב:
                                כן, @ששמעון צודק שאפשר היה לעשות את זה בקלות עם מיון בסיסי: להחליף רווחים באנטרים, למיין ואז להחזיר. והאמת שהשיטה שהוא מציע עדיפה כשמדובר במסמכים גדולים, כי היא הרבה יותר מהירה (המאקרו שלי יקח לו הרבה זמן), אבל התועלת גדולה של המאקרו שלי הוא: כך:
                                מה תעשו אם תצטרכו למיין דברים בתוך המאקרו [לקבוע משתנים וכדו'] עצמו לצורך המשך שימשו במאקרו, [ולא דוקא לפי סדר אלפאבתי, אלא לפי כל ערך אחר כגון לסדר תמונות לפי הגודל שלהם, או משהו כזה]? שם אין לכם את כלי המיון של וורד, ואתם חייבים אלגוריתם כמו Bubble Sort. [אגב לפני שבועים היה לי כזה מקרה, ואני לא ידעתי על קיומו של אלגוריטם בועה, וחשבתי על הרבה זמן, איך ניתן לסדר, ובאמת יצא לי משהו מאד דומה לאגוריטם בועה, ואתמול גיליתי את השיטה של בועה, ושאני לא הגאון הראשון.]
                                בקיצור:
                                אני לא באמת חושב שהמאקרואים האלה יגרמו לכם לפרוץ בקריאות התפעלות, אבל הם כן תרגיל טוב למי שרוצה ללמוד VBA, ועשיתי את זה עם קצר הומור,
                                ואם זה לא מעניין אתכם – אז פשוט תעברו הלאה.

                                ו @דאנציג לגבי מה שכתבת

                                מההיכרות שלי איתך, אלמלא השורה הזו:
                                אגב אני רוצה להדגיש שכמה שהמאקרוים שלי נראים יפים להפליא הם פרי יצירתי ולא ממו''ר GPT, פשוט לאחרונה רכשתי קורס של VBA לוורד (ושיפר את ביצועים שלי בעשרות מונים)

                                הייתי כותב לך שלא מתאים לך להעלות דברים של GPT...

                                לא הבנתי כוונתך באמת הקודים לא GPT כתב אותם, והקישור שהבאתי לכם על קורס VBA הוא אמיתי, באמת קורס מוצלח למי שזה מעניין אותו (אבל הוא באנגלית, ולא מסביר ממש למתחילים) יש להדגיש שזה הקורס היחיד שמצאתי על VBA לוורד, כולם מלמדים על אקסל ומתרגמים לוורד (אף אני כשהתחלתי עם VBA עשיתי כך בלית ברירה)

                                P 2 תגובות תגובה אחרונה
                                2
                                • menajemmendelM menajemmendel

                                  @ששמעון @דאנציג
                                  או חבר'ה, תקשיבו,
                                  אני באמת לא יודע מה עובר עליכם בזמן האחרון שאתם כ''כ קשוחים... אולי זה קשור למח' בין השו"ע והרש"ל אם ימי חנוכה נקבעו רק להלל והודאה או גם לשמחה (ואכמ''ל). אבל ברשותכם, אני רוצה לעשות סדר ולהבהיר:
                                  בואו נגיד את האמת – שני המאקרואים שהעליתי פה הם לא שימושיים בכלל.
                                  אני יודע את זה, ואתם יודעים את זה (לפחות עכשיו). אבל רגע, לפני שאתם זורקים את הקוד לפח ואותי ביחד עם הקוד, אבהיר שיש כאן הרבה מה ללמוד משתי הקודים האלו: המאקרו הראשון – ספירת אותיות:
                                  הרעיון פה הוא לא אם זה באמת נחוץ לספור כמה פעמים האות "ק" מופיעה בטקסט.
                                  הרעיון הוא ללמוד איך לעבוד עם Arrays – איך יוצרים רשימה, איך משתמשים בה, איך יודעים מה ההתחלה ומה הסוף (LBound ו-UBound). כמו שאכן ידידנו @u88 למד את זה והבין את הנושא בצורה ברורה!
                                  מאקרו השני – סידור לפי א"ב:
                                  כן, @ששמעון צודק שאפשר היה לעשות את זה בקלות עם מיון בסיסי: להחליף רווחים באנטרים, למיין ואז להחזיר. והאמת שהשיטה שהוא מציע עדיפה כשמדובר במסמכים גדולים, כי היא הרבה יותר מהירה (המאקרו שלי יקח לו הרבה זמן), אבל התועלת גדולה של המאקרו שלי הוא: כך:
                                  מה תעשו אם תצטרכו למיין דברים בתוך המאקרו [לקבוע משתנים וכדו'] עצמו לצורך המשך שימשו במאקרו, [ולא דוקא לפי סדר אלפאבתי, אלא לפי כל ערך אחר כגון לסדר תמונות לפי הגודל שלהם, או משהו כזה]? שם אין לכם את כלי המיון של וורד, ואתם חייבים אלגוריתם כמו Bubble Sort. [אגב לפני שבועים היה לי כזה מקרה, ואני לא ידעתי על קיומו של אלגוריטם בועה, וחשבתי על הרבה זמן, איך ניתן לסדר, ובאמת יצא לי משהו מאד דומה לאגוריטם בועה, ואתמול גיליתי את השיטה של בועה, ושאני לא הגאון הראשון.]
                                  בקיצור:
                                  אני לא באמת חושב שהמאקרואים האלה יגרמו לכם לפרוץ בקריאות התפעלות, אבל הם כן תרגיל טוב למי שרוצה ללמוד VBA, ועשיתי את זה עם קצר הומור,
                                  ואם זה לא מעניין אתכם – אז פשוט תעברו הלאה.

                                  ו @דאנציג לגבי מה שכתבת

                                  מההיכרות שלי איתך, אלמלא השורה הזו:
                                  אגב אני רוצה להדגיש שכמה שהמאקרוים שלי נראים יפים להפליא הם פרי יצירתי ולא ממו''ר GPT, פשוט לאחרונה רכשתי קורס של VBA לוורד (ושיפר את ביצועים שלי בעשרות מונים)

                                  הייתי כותב לך שלא מתאים לך להעלות דברים של GPT...

                                  לא הבנתי כוונתך באמת הקודים לא GPT כתב אותם, והקישור שהבאתי לכם על קורס VBA הוא אמיתי, באמת קורס מוצלח למי שזה מעניין אותו (אבל הוא באנגלית, ולא מסביר ממש למתחילים) יש להדגיש שזה הקורס היחיד שמצאתי על VBA לוורד, כולם מלמדים על אקסל ומתרגמים לוורד (אף אני כשהתחלתי עם VBA עשיתי כך בלית ברירה)

                                  P מנותק
                                  P מנותק
                                  pcinfogmach
                                  מדריכים
                                  כתב נערך לאחרונה על ידי
                                  #200
                                  פוסט זה נמחק!
                                  תגובה 1 תגובה אחרונה
                                  0
                                  • menajemmendelM menajemmendel

                                    @ששמעון @דאנציג
                                    או חבר'ה, תקשיבו,
                                    אני באמת לא יודע מה עובר עליכם בזמן האחרון שאתם כ''כ קשוחים... אולי זה קשור למח' בין השו"ע והרש"ל אם ימי חנוכה נקבעו רק להלל והודאה או גם לשמחה (ואכמ''ל). אבל ברשותכם, אני רוצה לעשות סדר ולהבהיר:
                                    בואו נגיד את האמת – שני המאקרואים שהעליתי פה הם לא שימושיים בכלל.
                                    אני יודע את זה, ואתם יודעים את זה (לפחות עכשיו). אבל רגע, לפני שאתם זורקים את הקוד לפח ואותי ביחד עם הקוד, אבהיר שיש כאן הרבה מה ללמוד משתי הקודים האלו: המאקרו הראשון – ספירת אותיות:
                                    הרעיון פה הוא לא אם זה באמת נחוץ לספור כמה פעמים האות "ק" מופיעה בטקסט.
                                    הרעיון הוא ללמוד איך לעבוד עם Arrays – איך יוצרים רשימה, איך משתמשים בה, איך יודעים מה ההתחלה ומה הסוף (LBound ו-UBound). כמו שאכן ידידנו @u88 למד את זה והבין את הנושא בצורה ברורה!
                                    מאקרו השני – סידור לפי א"ב:
                                    כן, @ששמעון צודק שאפשר היה לעשות את זה בקלות עם מיון בסיסי: להחליף רווחים באנטרים, למיין ואז להחזיר. והאמת שהשיטה שהוא מציע עדיפה כשמדובר במסמכים גדולים, כי היא הרבה יותר מהירה (המאקרו שלי יקח לו הרבה זמן), אבל התועלת גדולה של המאקרו שלי הוא: כך:
                                    מה תעשו אם תצטרכו למיין דברים בתוך המאקרו [לקבוע משתנים וכדו'] עצמו לצורך המשך שימשו במאקרו, [ולא דוקא לפי סדר אלפאבתי, אלא לפי כל ערך אחר כגון לסדר תמונות לפי הגודל שלהם, או משהו כזה]? שם אין לכם את כלי המיון של וורד, ואתם חייבים אלגוריתם כמו Bubble Sort. [אגב לפני שבועים היה לי כזה מקרה, ואני לא ידעתי על קיומו של אלגוריטם בועה, וחשבתי על הרבה זמן, איך ניתן לסדר, ובאמת יצא לי משהו מאד דומה לאגוריטם בועה, ואתמול גיליתי את השיטה של בועה, ושאני לא הגאון הראשון.]
                                    בקיצור:
                                    אני לא באמת חושב שהמאקרואים האלה יגרמו לכם לפרוץ בקריאות התפעלות, אבל הם כן תרגיל טוב למי שרוצה ללמוד VBA, ועשיתי את זה עם קצר הומור,
                                    ואם זה לא מעניין אתכם – אז פשוט תעברו הלאה.

                                    ו @דאנציג לגבי מה שכתבת

                                    מההיכרות שלי איתך, אלמלא השורה הזו:
                                    אגב אני רוצה להדגיש שכמה שהמאקרוים שלי נראים יפים להפליא הם פרי יצירתי ולא ממו''ר GPT, פשוט לאחרונה רכשתי קורס של VBA לוורד (ושיפר את ביצועים שלי בעשרות מונים)

                                    הייתי כותב לך שלא מתאים לך להעלות דברים של GPT...

                                    לא הבנתי כוונתך באמת הקודים לא GPT כתב אותם, והקישור שהבאתי לכם על קורס VBA הוא אמיתי, באמת קורס מוצלח למי שזה מעניין אותו (אבל הוא באנגלית, ולא מסביר ממש למתחילים) יש להדגיש שזה הקורס היחיד שמצאתי על VBA לוורד, כולם מלמדים על אקסל ומתרגמים לוורד (אף אני כשהתחלתי עם VBA עשיתי כך בלית ברירה)

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

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

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

                                    עיין כאן נראה שיש להם רעיון משופר
                                    https://stackoverflow.com/a/38298771/23343154

                                    שווה גם לחקור את CreateObject יייתכן שאפשר לייבא משהו עם פונקצונליות מובנית

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

                                    עצה טובה לכל אלה שאוהבים לחשוב ולהמציא באמת שכדאי לכם לעשות חיפוש באינטרנט לפני שאתם ממציאים את הגלגל - וגם לפעמים לפני שאתם שואלים את GPT

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

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

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

                                      עיין כאן נראה שיש להם רעיון משופר
                                      https://stackoverflow.com/a/38298771/23343154

                                      שווה גם לחקור את CreateObject יייתכן שאפשר לייבא משהו עם פונקצונליות מובנית

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

                                      עצה טובה לכל אלה שאוהבים לחשוב ולהמציא באמת שכדאי לכם לעשות חיפוש באינטרנט לפני שאתם ממציאים את הגלגל - וגם לפעמים לפני שאתם שואלים את GPT

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

                                      @pcinfogmach באמת יש הרבה רעיונות יותר טובים יש גם INSERTION SORT וגם QUICKSORT, ובועה היא השיטה הכי פחות יעילה מכולם, והכי איטית, אבל היא גם הכי פשוטה, אז תלוי למה צריך את זה. בכל אופן לא התכוונתי שזה הצורה האופטימלית, אלא שלמטרות למידה זה טוב.

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

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

                                        Sub גודל_עמודים_ושוליים_בכל_המסמך()
                                            Dim sec As section
                                            Dim pageSetup As pageSetup
                                            Dim currentWidth As Double
                                            Dim currentHeight As Double
                                            Dim marginTop As Double
                                            Dim marginBottom As Double
                                            Dim marginLeft As Double
                                            Dim marginRight As Double
                                            Dim startPage As Long
                                            Dim endPage As Long
                                            Dim msg As String
                                            Dim totalPages As Long
                                            Dim currentSectionIndex As Long
                                            Dim lastWidth As Double
                                            Dim lastHeight As Double
                                            Dim lastTopMargin As Double
                                            Dim lastBottomMargin As Double
                                            Dim lastLeftMargin As Double
                                            Dim lastRightMargin As Double
                                            Dim allPagesUniform As Boolean
                                            Dim firstRun As Boolean
                                        
                                            ' הודעת כותרת
                                            msg = "מידע על גדלי העמודים והשוליים במסמך (בסנטימטרים):" & vbCrLf
                                            totalPages = ActiveDocument.ComputeStatistics(wdStatisticPages)
                                            currentSectionIndex = 1
                                            startPage = 1
                                            firstRun = True
                                            allPagesUniform = True ' נניח בהתחלה שכולם אחידים
                                        
                                            ' לולאה לבדוק אם כל העמודים אחידים בגודל ובשוליים
                                            Do While startPage <= totalPages
                                                If currentSectionIndex > ActiveDocument.Sections.Count Then Exit Do
                                                Set sec = ActiveDocument.Sections(currentSectionIndex)
                                                Set pageSetup = sec.pageSetup
                                                currentWidth = pageSetup.PageWidth / 28.35 ' המרת רוחב לס"מ
                                                currentHeight = pageSetup.PageHeight / 28.35 ' המרת גובה לס"מ
                                                marginTop = pageSetup.TopMargin / 28.35 ' המרת שוליים עליונים לס"מ
                                                marginBottom = pageSetup.BottomMargin / 28.35 ' המרת שוליים תחתונים לס"מ
                                                marginLeft = pageSetup.LeftMargin / 28.35 ' המרת שוליים שמאליים לס"מ
                                                marginRight = pageSetup.RightMargin / 28.35 ' המרת שוליים ימניים לס"מ
                                        
                                                ' אם זו הפעם הראשונה, נגדיר את הערכים הראשונים
                                                If firstRun Then
                                                    lastWidth = currentWidth
                                                    lastHeight = currentHeight
                                                    lastTopMargin = marginTop
                                                    lastBottomMargin = marginBottom
                                                    lastLeftMargin = marginLeft
                                                    lastRightMargin = marginRight
                                                    firstRun = False
                                                End If
                                        
                                                ' אם יש שינוי בגודל או בשוליים, העמודים לא אחידים
                                                If currentWidth <> lastWidth Or currentHeight <> lastHeight Or _
                                                   marginTop <> lastTopMargin Or marginBottom <> lastBottomMargin Or _
                                                   marginLeft <> lastLeftMargin Or marginRight <> lastRightMargin Then
                                                    allPagesUniform = False
                                                    Exit Do ' אין צורך לבדוק יותר אם העמודים לא אחידים
                                                End If
                                        
                                                ' מעבר לעמוד הבא
                                                startPage = startPage + 1
                                                If startPage > ActiveDocument.Sections(currentSectionIndex).Range.Information(wdActiveEndPageNumber) Then
                                                    currentSectionIndex = currentSectionIndex + 1
                                                    If currentSectionIndex > ActiveDocument.Sections.Count Then Exit Do
                                                End If
                                            Loop
                                        
                                            ' אם כל העמודים אחידים, הצגת הודעה אחת
                                            If allPagesUniform Then
                                                MsgBox "כל העמודים במסמך הם בגודל ושוליים זהים.", vbInformation, "מידע על גדלי עמודים ושוליים"
                                            Else
                                                ' אם יש עמודים שונים, מציגים את כל הנתונים
                                                DisplayPageDetails
                                            End If
                                        End Sub
                                        
                                        Sub DisplayPageDetails()
                                            Dim sec As section
                                            Dim pageSetup As pageSetup
                                            Dim currentWidth As Double
                                            Dim currentHeight As Double
                                            Dim marginTop As Double
                                            Dim marginBottom As Double
                                            Dim marginLeft As Double
                                            Dim marginRight As Double
                                            Dim startPage As Long
                                            Dim endPage As Long
                                            Dim msg As String
                                            Dim totalPages As Long
                                            Dim currentSectionIndex As Long
                                        
                                            ' הודעת כותרת
                                            msg = "מידע על גדלי העמודים והשוליים במסמך (בסנטימטרים):" & vbCrLf
                                            totalPages = ActiveDocument.ComputeStatistics(wdStatisticPages)
                                            currentSectionIndex = 1
                                            startPage = 1
                                        
                                            ' לולאה לבדיקת כל העמודים
                                            Do While startPage <= totalPages
                                                ' קבלת הגדרות הסעיף הנוכחי
                                                If currentSectionIndex > ActiveDocument.Sections.Count Then Exit Do
                                                Set sec = ActiveDocument.Sections(currentSectionIndex)
                                                Set pageSetup = sec.pageSetup
                                                currentWidth = pageSetup.PageWidth / 28.35 ' המרת רוחב לס"מ
                                                currentHeight = pageSetup.PageHeight / 28.35 ' המרת גובה לס"מ
                                                marginTop = pageSetup.TopMargin / 28.35 ' המרת שוליים עליונים לס"מ
                                                marginBottom = pageSetup.BottomMargin / 28.35 ' המרת שוליים תחתונים לס"מ
                                                marginLeft = pageSetup.LeftMargin / 28.35 ' המרת שוליים שמאליים לס"מ
                                                marginRight = pageSetup.RightMargin / 28.35 ' המרת שוליים ימניים לס"מ
                                        
                                                ' מציאת טווח עמודים עם אותו גודל ושוליים
                                                endPage = startPage
                                                Do While endPage <= totalPages
                                                    If ActiveDocument.Sections(currentSectionIndex).pageSetup.PageWidth <> pageSetup.PageWidth Or _
                                                       ActiveDocument.Sections(currentSectionIndex).pageSetup.PageHeight <> pageSetup.PageHeight Or _
                                                       ActiveDocument.Sections(currentSectionIndex).pageSetup.TopMargin <> pageSetup.TopMargin Or _
                                                       ActiveDocument.Sections(currentSectionIndex).pageSetup.BottomMargin <> pageSetup.BottomMargin Or _
                                                       ActiveDocument.Sections(currentSectionIndex).pageSetup.LeftMargin <> pageSetup.LeftMargin Or _
                                                       ActiveDocument.Sections(currentSectionIndex).pageSetup.RightMargin <> pageSetup.RightMargin Then
                                                        Exit Do
                                                    End If
                                                    endPage = endPage + 1
                                                    If endPage > ActiveDocument.Sections(currentSectionIndex).Range.Information(wdActiveEndPageNumber) Then
                                                        currentSectionIndex = currentSectionIndex + 1
                                                        If currentSectionIndex > ActiveDocument.Sections.Count Then Exit Do
                                                    End If
                                                Loop
                                                endPage = endPage - 1
                                        
                                                ' הוספת טווח עמודים עם גודל ושוליים להודעה
                                                If startPage <= endPage Then
                                                    msg = msg & "עמודים " & startPage & " עד " & endPage & ":" & vbCrLf
                                                    msg = msg & "  גודל העמוד: " & vbCrLf
                                                    msg = msg & Format(currentWidth, "0.00") & " x " & Format(currentHeight, "0.00") & " ס''מ" & vbCrLf
                                                    msg = msg & "  שוליים:" & vbCrLf
                                                    msg = msg & "    עליון: " & Format(marginTop, "0.00") & " ס''מ" & vbCrLf
                                                    msg = msg & "    תחתון: " & Format(marginBottom, "0.00") & " ס''מ" & vbCrLf
                                                    msg = msg & "    שמאלי: " & Format(marginLeft, "0.00") & " ס''מ" & vbCrLf
                                                    msg = msg & "    ימני: " & Format(marginRight, "0.00") & " ס''מ" & vbCrLf
                                                End If
                                        
                                                ' מעבר לטווח הבא
                                                startPage = endPage + 1
                                            Loop
                                        
                                            ' הצגת ההודעה בעברית
                                            MsgBox msg, vbInformation, "מידע על גדלי עמודים ושוליים"
                                        End Sub
                                        
                                        
                                        תגובה 1 תגובה אחרונה
                                        5
                                        • מ מניין

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

                                          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
                                          כתב נערך לאחרונה על ידי
                                          #204

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

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

                                          אולי כדאי לצבוע את המילה הראשונה/האחרונה לא בצבע אדום/ירוק רגיל אלא:
                                          Font.Color = RGB(255, 1, 1)
                                          Font.Color = RGB(1, 255, 1)
                                          ואז יהיה אפשר לעשות מאקרו של הסרה, מבלי לפגוע בטקסטים אחרים שצבועים באדום/ירוק

                                          מ תגובה 1 תגובה אחרונה
                                          2

                                          • התחברות

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

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