@אמש כתב בדרייבר למדפסת פנטום:

@455
אם אפשר את הקובץ בעצמו לא מצליח להוריד
תודה רבה

מה הדגם של המדפסת?

@דאנציג
עכשיו אני חושב שאפשר פשוט להכניס את האבן בנין בתבנית, ולעשות מראש 5 או 10 אבני בניין של זרמים ממוספרים לפי סדר [A,B וכו'].
ובמאקרו לעשות תנאי, אם אין כלום - ינתן זרם A, במקרה וזרם A כבר קיים, ינתן זרם B וכו'.
אם נגמרו כל זרמי המספור - תינתן הודעה שנגמרו זרמי המספור האפשריים.

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

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

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

@pcinfogmach לא הצלחתי לעשות את כל השלבים של הקוד
אבל עזרת לי מאוד

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

יישר כחך.

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

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

    Dim rng As Range
    Dim doc As Document
    Dim storyRange As Range
    
    Set doc = ActiveDocument

    For Each storyRange In doc.StoryRanges
        Set rng = storyRange

        With rng.Find
            .ClearFormatting
            .Text = InputBox("הזן סימן להחלפה:")
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchWildcards = False

            Do While .Execute
                Application.Templates("C:\Users\user\AppData\Roaming\Microsoft\Templates\Normal.dotm").BuildingBlockEntries("מספור רציף עד תתשצב").Insert Where:=rng, RichText:=True
                rng.Collapse wdCollapseEnd
            Loop
        End With
    Next storyRange
End Sub

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

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

בהנחה שההבנה שלי נכונה, מקווה שהצלחתי להסביר.

@pcinfogmach

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

@pcinfogmach
הנה
seq-עד-תתשצב-בלשון-נקיה.docx

עזרת לי מאוד. שכוייח!

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

@pcinfogmach דבר ראשון תודה רבה.
מצורף במספור עברי
seq-מעל-שצב.docx

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

@pcinfogmach תודה
ויש לזה פתרון? כלומר יש אפשרות לעשות מספור רציף מעל שצב?

@pcinfogmach ניסיתי לעשות את הפתרון שלך על שדה מספור אוטומטי (SEQ) משום מה הוא מתחיל מ'י' ועובר ל'כ' למרות שהוא מוגדר על HEBREM 1 כלומר א...י...

להלן הקוד

{ IF { SEQ A } > 1200 "TTT{ {= { SEQ A } -1200 } \* hebrewl \* MERGEFORMAT }" { IF { SEQ A } > 800 "TT{ { = { SEQ A } - 800 } \* hebrewl \* MERGEFORMAT }"{ IF { SEQ A } > 400 "T{ { = { SEQ A } - 400 } \* hebrewl \* MERGEFORMAT }״ { IF { SEQ A } = 400 "T" { IF { SEQ A } > 390 "AM{ {= { SEQ A }-390 }\* hebrewl \* MERGEFORMAT }" { SEQ A \* hebrewl }}}}}}

צירפתי גם בקובץ
מספור רציף מעל שצב.docx
תודה

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

@u88
א. בדקת שגם הערות השוליים נמצאות בתבנית?
ב. היתה לך איזו הודעת שגיאה באמצע?

@u88 מעניין.
אצלי המסמכים מתמלאים עם ההערות לסוגיהם.
צריך לדעת מה ההבדל בין הקובץ שאצלי לקובץ שאצלך

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

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

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

צודק. ערכתי למעלה

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

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

מה הכוונה? בסוף המסמך נשאר נקי מהערות. האם אתה רוצה שיהיה טקסט שאין בו כלל הפניות להערות?

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

הצעה לשיפור המאקרו:
ראשית כל, שזה יעבוד רק על המסמך הפעיל ממש.

בעז"ה בהמשך אסדר

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

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

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

בעז"ה בהמשך

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

אני הייתי צריך בכוונה שיהיה שונה, אפשר לשנות את הקוד, בחיפוש והחלפה פשוט [יתכן שיצטרכו תווים כללים]

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

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

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

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

@pcinfogmach בשביל זה ערכתי, והנחתי את זה בארכיון