@455 עשיתי את זה כך
אם יש בזה בעיות אשמח אם יעדכנו אותי

Sub החלפת_סימון_נבחר_לשדה_אוטומטי_אותיות()
        
Dim userChoice As String
    userChoice = InputBox("אנא הזן אות זרם:")
     
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Text = InputBox("הזן סימן להחלפה:")
    Selection.Find.MatchWildcards = True
    
    Do While Selection.Find.Execute
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="SEQ " & userChoice & " \* hebrew1", PreserveFormatting:=True
    Loop
End Sub

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

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

@חוות-דעת הקובץ לא קודד נכון.
כעת תוכל לחלץ את זה והוא לבד יעתיק לך את זה למקום הנכון.

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

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

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

@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

@צור
טענו חיטים והודה לו בשתי זוזים....

@elazar איזה הסבר מפורט......
תודה!!!!!!

שאלה: יש קודחים שלא נכנסים באימפקט.
מה בודקים בקלאץ?

חילוץ טקסט סרטון.rar סיסמת חילוץ 1234

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

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

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

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

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

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

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

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

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

בעז"ה בהמשך

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

מישהו מכיר תוכנה נורמלית לנגן הזה?
התוכנה שלו בעברית אבל היא לא קוראת אלבומים ואמנים נורמלי....