בקשה | בקשה | מאקרו בוורד להפיכת תו / קוד מסויים למספור אוטומטי רץ (באותיות)

[מניין]

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

[HMJE]

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

[מניין]

@HMJE אתה צריך להוסיף איזה תו לאחר הקוד seq, לדוגמא האות a, שיהיה כתוב ככה seq a.

[HMJE]

@מניין תודה רבה, זה עובד מצויין.

רק שאלה קטנה, כתבת לעיל

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

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

[מניין]

@HMJE תבחר את כל המסמך על ידי קונטרול a, ואח"כ תלחץ f9, וזה יעדכן את הכל בפעם אחת.

[HMJE]

@מניין מלך!!!
תודה רבה

[רפרם ב"ר פפא]

@HMJE
להלן מאקרו להחלפה לשדה מספור אוטמטי
(מקל על מרוצת הכתיבה)
מחליף את כל מופעי ה"ממ" בשדה seq

לשדה אוטמטי מספרים

Sub החלפה_לשדה_אוטמטי_מספרים()
        
                Selection.HomeKey Unit:=wdStory
                
                    Selection.Find.ClearFormatting
                    Selection.Find.Text = "ממ"
                    Selection.Find.MatchWildcards = True
                    Do While Selection.Find.Execute
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "SEQ A", PreserveFormatting:=True
                    Loop

End Sub

לשדה אוטמטי אותיות (א... יא... קא...)

Sub החלפה_לשדה_אוטמטי_אותיות()
        
                Selection.HomeKey Unit:=wdStory
                
                    Selection.Find.ClearFormatting
                    Selection.Find.Text = "ממ"
                    Selection.Find.MatchWildcards = True
                    Do While Selection.Find.Execute
                    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "SEQ A \* hebrew1", PreserveFormatting:=True
                    Loop

End Sub

[HMJE]

@רפרם-ב-ר-פפא
תודה רבה. מושלם.

[455]

@רפרם-ב-ר-פפא כתב בבקשה | בקשה | מאקרו בוורד להפיכת תו / קוד מסויים למספור אוטומטי רץ (באותיות):

Selection.Find.Text = "ממ"
Selection.Find.MatchWildcards = True

א. במקום

Selection.Find.Text = "ממ"

אפשר לכתוב

Selection.Find.Text = InputBox("הזן סימן להחלפה")

וכך המשתמש יוכל לבחור איזה טקסט להחליף.

ב. לא הצלחתי לעשות את אותו דבר בקוד הזה

"SEQ A \* hebrew1"

, כלומר שהמשתמש יוכל להגדיר אם לעשות את זה לa או b וכדו'

[455]

@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