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

בירור | קוד מאקרו ליישור שני טורים בוורד

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
124 פוסטים 22 כותבים 5.2k צפיות 25 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • ש שמעלקא 0

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

    הנה הקובץ:
    [מעדכן את הפוסט: בהמשך השרשור יש גירסה מעודכנת יותר של הקובץ]
    LineToLines1.dot

    תודה ל @NykUser שכתב את הפוסט הזה, שהועיל לי בענין ההתקנה.

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

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

    @שמעלקא-0 לא הולך לי, אולי תעלה את הפקודה עצמה שכל אחד יוכל להעתיק ישירות לפקודת מאקרו?

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

    תגובה 1 תגובה אחרונה
    0
    • ש שמעלקא 0

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

      הנה הקובץ:
      [מעדכן את הפוסט: בהמשך השרשור יש גירסה מעודכנת יותר של הקובץ]
      LineToLines1.dot

      תודה ל @NykUser שכתב את הפוסט הזה, שהועיל לי בענין ההתקנה.

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

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

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

      @NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

      שומרים זאת בתוך הregistry זהו דוגמה
      Spoiler

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

      לקבוצה הכי מעניינת >> https://did.li/in1Nf

      N נ 2 תגובות תגובה אחרונה
      0
      • es0583292679E es0583292679

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

        @NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

        שומרים זאת בתוך הregistry זהו דוגמה
        Spoiler

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

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

        @es0583292679 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

        לא מבין למה זה צריך להגיע עד לרגיסטרי...

        כמובן שזה תלוי לאיזה צורך הוא רוצה את זה

        1. אפשר לשומר המידע בתוך משתנה גלובלי

        Module-level variables can be declared with a Dim or Private statement at the top of the module above the first procedure definition
        Any of these will reset global variables: Using End, An unhandled runtime error, Editing code, Closing the word or file containing the VB project

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

        ActiveDocument.Variables("LineToLineMax") = "5"
        

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

        For Each avar In ActiveDocument.Variables
            If avar.Name = "LineToLineMax" Then MsgBox (ActiveDocument.Variables("LineToLineMax"))
        Next avar
        

        1. ברגיסטרי כמו שכתבתי לעיל, או בכל מקום אחר כמו קובץ ini או xml וזה יהיה זמין גם בקבצים חדשים
        תגובה 1 תגובה אחרונה
        7
        • ש שמעלקא 0

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

          הנה הקובץ:
          [מעדכן את הפוסט: בהמשך השרשור יש גירסה מעודכנת יותר של הקובץ]
          LineToLines1.dot

          תודה ל @NykUser שכתב את הפוסט הזה, שהועיל לי בענין ההתקנה.

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

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

          @שמעלקא-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

          ג. האם יש פונקציה פשוטה שמחזירה את מספר הפיסקה שלי.

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

          Function ParagraphNum(aRange As Range)
              Dim MyRange As Range
              Set MyRange = ActiveDocument.Range(ActiveDocument.Range.Start, aRange.Start)
              ParagraphNum = MyRange.Paragraphs.Count
          End Function
          
          

          דוגמא לשימוש בקוד:

          MsgBox ParagraphNum(Selection.Range)
          
          
          תגובה 1 תגובה אחרונה
          6
          • מגדליםמ מגדלים העביר נושא זה מ-כללי - עזרה הדדית ב-
          • es0583292679E es0583292679

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

            @NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

            שומרים זאת בתוך הregistry זהו דוגמה
            Spoiler

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

            נ מנותק
            נ מנותק
            נוכחות
            כתב ב נערך לאחרונה על ידי
            #60
            פוסט זה נמחק!
            תגובה 1 תגובה אחרונה
            0
            • es0583292679E מנותק
              es0583292679E מנותק
              es0583292679
              כתב ב נערך לאחרונה על ידי
              #61

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

              לקבוצה הכי מעניינת >> https://did.li/in1Nf

              ש תגובה 1 תגובה אחרונה
              4
              • es0583292679E es0583292679

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

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

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

                תודה רבה לשולחי הקודים, על הפוסטים המתעדכנים!

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

                es0583292679E תגובה 1 תגובה אחרונה
                2
                • ש שמעלקא 0

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

                  תודה רבה לשולחי הקודים, על הפוסטים המתעדכנים!

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

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

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

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


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

                  אגב, טוב לדעת שהתוסף של יעקובוב ליישור הטורים עולה 280, ולהערות רציפות 600, ראה כאן.

                  לקבוצה הכי מעניינת >> https://did.li/in1Nf

                  ד N 2 תגובות תגובה אחרונה
                  3
                  • es0583292679E es0583292679

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

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


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

                    אגב, טוב לדעת שהתוסף של יעקובוב ליישור הטורים עולה 280, ולהערות רציפות 600, ראה כאן.

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

                    @es0583292679 ראה כאן.

                    es0583292679E תגובה 1 תגובה אחרונה
                    0
                    • es0583292679E es0583292679

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

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


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

                      אגב, טוב לדעת שהתוסף של יעקובוב ליישור הטורים עולה 280, ולהערות רציפות 600, ראה כאן.

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

                      @שמעלקא-0 כתב

                      תיבת הטקסט הנזכרת מוגדרת כשורה 1, והמילה שאחריה כשורה 2. וכשאני עובר לשורה 2 המחשב מזהה שעברו שורה אך לא ירדו למטה בדף. והוא חושב שעברתי לשורה המקבילה בעמודה השניה.

                      בקוד שהעליתי כאן לא יהא לך בעיה זה

                      @es0583292679 כתב

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

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

                      Set MyRange = Selection.Range
                      For i = 1 To MyRange.Paragraphs.Count
                          Set para = MyRange.Paragraphs(i).Range
                          If MyRange.Paragraphs(i).Alignment = wdAlignParagraphJustify = False Then GoTo nxt
                          Select Case para.ComputeStatistics(wdStatisticLines)
                          Case 1: GoTo nxt: 'Case 2: GoTo nxt
                          Case Else
                              With para: .Collapse: .MoveUntil cset:=" ": .MoveEnd: .Collapse Direction:=wdCollapseEnd
                                  If .Previous(Count:=2) = Chr(93) Or .Previous(Count:=2) = Chr(41) Then
                                  .MoveUntil cset:=" ": .MoveEnd: .Collapse Direction:=wdCollapseEnd
                                  End If
                              .Select
                              End With
                              
                              
                              With Selection: .EndKey Unit:=wdLine
                              If .Text = Chr(11) Then GoTo nxt:
                              .TypeText Text:=Chr(11) & ChrW(8197)
                              Set Char = Selection.Range
                              .Previous.Font.Spacing = Char.Information(wdHorizontalPositionRelativeToTextBoundary) - para.Information(wdHorizontalPositionRelativeToTextBoundary)
                              End With
                          
                          End Select
                          nxt:
                      Next
                      

                      Screenshot 2022-09-01 212942.jpg
                      Screenshot 2022-09-01 170458.jpg

                      תגובה 1 תגובה אחרונה
                      5
                      • ד דאנציג

                        @es0583292679 ראה כאן.

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

                        @דאנציג
                        לא זה לא.

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


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

                        לקבוצה הכי מעניינת >> https://did.li/in1Nf

                        ש N נ 3 תגובות תגובה אחרונה
                        2
                        • es0583292679E es0583292679

                          @דאנציג
                          לא זה לא.

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


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

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

                          @NykUser
                          הקודים שלך מדהימים, מקסימים ונקיים. תודה רבה! אנסה לשפר בהם את הקוד של היישור טורים.

                          @es0583292679
                          כל הכבוד על ההתלהבות שלך למען עם ישראל וכו'.

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

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

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

                          תגובה 1 תגובה אחרונה
                          3
                          • es0583292679E es0583292679

                            @דאנציג
                            לא זה לא.

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


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

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

                            @es0583292679

                            כעת לאחר ניסוי המאקרו שלך יש לומר שהוא ממש טוב, אך לא מתאים לקובץ הניתן לשינוי, כי כל שינוי משבש את כל המסמך...

                            כן , כך זה בכל עימוד בוורד
                            יש לך מהלך שאינו משתנה עם הוספה? אדרבה!

                            למשל שיהיה מאקרו שיחפש את התוספת וישמיט אותה...

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

                            Sub delete_Holon()
                            If Selection.Type = wdSelectionNormal Then
                                Set MyRange = Selection.Range
                                    MyRange.SetRange Selection.Paragraphs.First.Range.START, Selection.Paragraphs.Last.Range.End
                                Else
                                Set MyRange = ActiveDocument.StoryRanges(Selection.StoryType)
                            End If
                            MyRange.find.Execute FindText:=Chr(11) & ChrW(8197), ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
                            End Sub
                            

                            es0583292679E תגובה 1 תגובה אחרונה
                            3
                            • N NykUser

                              @es0583292679

                              כעת לאחר ניסוי המאקרו שלך יש לומר שהוא ממש טוב, אך לא מתאים לקובץ הניתן לשינוי, כי כל שינוי משבש את כל המסמך...

                              כן , כך זה בכל עימוד בוורד
                              יש לך מהלך שאינו משתנה עם הוספה? אדרבה!

                              למשל שיהיה מאקרו שיחפש את התוספת וישמיט אותה...

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

                              Sub delete_Holon()
                              If Selection.Type = wdSelectionNormal Then
                                  Set MyRange = Selection.Range
                                      MyRange.SetRange Selection.Paragraphs.First.Range.START, Selection.Paragraphs.Last.Range.End
                                  Else
                                  Set MyRange = ActiveDocument.StoryRanges(Selection.StoryType)
                              End If
                              MyRange.find.Execute FindText:=Chr(11) & ChrW(8197), ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
                              End Sub
                              

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

                              @NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

                              כן , כך זה בכל עימוד בוורד
                              יש לך מהלך שאינו משתנה עם הוספה? אדרבה!

                              מה שיש בתוכנה שלנו למשל (כתר תורה).

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

                              לקבוצה הכי מעניינת >> https://did.li/in1Nf

                              N תגובה 1 תגובה אחרונה
                              0
                              • es0583292679E es0583292679

                                @NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

                                כן , כך זה בכל עימוד בוורד
                                יש לך מהלך שאינו משתנה עם הוספה? אדרבה!

                                מה שיש בתוכנה שלנו למשל (כתר תורה).

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

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

                                @es0583292679

                                מה שיש בתוכנה שלנו למשל (כתר תורה).

                                הוספתי א Screenshot 2022-09-01 214421.jpg

                                es0583292679E תגובה 1 תגובה אחרונה
                                0
                                • N NykUser

                                  @es0583292679

                                  מה שיש בתוכנה שלנו למשל (כתר תורה).

                                  הוספתי א Screenshot 2022-09-01 214421.jpg

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

                                  @NykUser
                                  אנ ו מדברים כעת על מילת הפתיח.
                                  טענו בחטים והודה לו בשעורים.

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

                                  לקבוצה הכי מעניינת >> https://did.li/in1Nf

                                  תגובה 1 תגובה אחרונה
                                  0
                                  • ש שמעלקא 0

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

                                    הנה הקובץ:
                                    [מעדכן את הפוסט: בהמשך השרשור יש גירסה מעודכנת יותר של הקובץ]
                                    LineToLines1.dot

                                    תודה ל @NykUser שכתב את הפוסט הזה, שהועיל לי בענין ההתקנה.

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

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

                                    @שמעלקא-0 האם בבקשה אתה יכול לתת לי רק את פקודות המאקרו, שיודעות לקרוא את הרווח שיש אחרי הפיסקה שבה הסמן, ולהגדיל אותו בנק' אחת או שתי נק' לפי מה שאני אגדיר במאקרו.
                                    תודה!

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

                                      @שמעלקא-0 האם בבקשה אתה יכול לתת לי רק את פקודות המאקרו, שיודעות לקרוא את הרווח שיש אחרי הפיסקה שבה הסמן, ולהגדיל אותו בנק' אחת או שתי נק' לפי מה שאני אגדיר במאקרו.
                                      תודה!

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

                                      @אבי-0

                                      Selection.ParagraphFormat.SpaceAfter = Selection.ParagraphFormat.SpaceAfter + 1
                                      
                                      
                                      א 2 תגובות תגובה אחרונה
                                      3
                                      • מ מאקרו

                                        @אבי-0

                                        Selection.ParagraphFormat.SpaceAfter = Selection.ParagraphFormat.SpaceAfter + 1
                                        
                                        
                                        א מנותק
                                        א מנותק
                                        אבי 0
                                        כתב ב נערך לאחרונה על ידי
                                        #74

                                        @מאקרו ממש ישר כח!

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

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

                                          הנה הקובץ
                                          ‏‏‏‏LineToLines4.dot

                                          ששמעוןש es0583292679E P 3 תגובות תגובה אחרונה
                                          4

                                          • התחברות

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

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