בקשה | בקשה ליצירת תוסף לוורד

[YAHBDK]

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

והתוסף יעשה לי את זה בסגנון הזה

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

[צבי צ]

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

[YAHBDK]

@צבי-צ
אבל אני רוצה שזה יהיה מסונכן באותו דף

[צבי צ]

@YAHBDK
כל תחילת מקטע תעשה הערת שוליים חדשה.

Spoiler

יש לך את הטקסט מוכן?
תשלח לי בצ'אט כמה עמודים שאני אבדוק

[YAHBDK]

@צבי-צ
אין לי אפשרות לצאט אבל תנסה תודה

[צבי צ]

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

Spoiler

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

Sub מאקרו()
'
' מאקרו Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("טקסט_רץ_גמרא")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("טקסט_רץ_פירוש")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub