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

[צבי צ]

@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

[שמעון פרידנן]

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

[צבי צ]

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

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

Sub ביאור_משולב()
Dim doc As Document
Dim rev As Revision
Dim rng As Range
Dim i As Long
Dim tempRange As Range

Set doc = ActiveDocument

' 1. בדיקה אם יש שינויים
If doc.Revisions.Count = 0 Then
MsgBox "לא נמצאו שינויים במסמך.", vbExclamation
Exit Sub
End If

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

' יצירת טווח זמני בסוף המסמך כדי לקלוט את העיצוב
Set tempRange = doc.Range(doc.Content.End - 1, doc.Content.End - 1)
tempRange.Select

' הצגת חלון הגופן
If Application.Dialogs(wdDialogFormatFont).Show = -1 Then
' המשתמש אישר - העיצוב כעת נמצא ב-Selection.Font
Else
' ביטול
Exit Sub
End If

' 3. ביצוע השינויים
Application.ScreenUpdating = False
doc.TrackRevisions = False ' כיבוי מעקב כדי שהעיצוב לא ייחשב כשינוי חדש

' מעבר על השינויים מהסוף להתחלה
For i = doc.Revisions.Count To 1 Step -1
Set rev = doc.Revisions(i)

' טיפול בתוספות טקסט
If rev.Type = wdRevisionInsert Then
' הגדרת הטווח של השינוי
Set rng = rev.Range

' קבלת השינוי (הופך לטקסט רגיל)
rev.Accept

' החלת העיצוב מהדגימה ששמרנו ב-Selection
rng.Font = Selection.Font

' טיפול במחיקות (פשוט לאשר שימחקו)
ElseIf rev.Type = wdRevisionDelete Then
rev.Accept

' אישור שאר סוגי השינויים
Else
rev.Accept
End If
Next i

' ניקוי: מחיקת הטקסט הזמני אם נוצר (במקרה שהסמן היה בסוף)
' והחזרת המצב לקדמותו
Application.ScreenUpdating = True

MsgBox "הפעולה הושלמה! כל התוספות עוצבו לפי בחירתך.", vbInformation
End Sub

[שמעון פרידנן]

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

[YAHBDK]

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

[שמעון פרידנן]

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

[יודע ומייבין]

@YAHBDK אני‌​‌‌​‌​​​​​‌ יש לי AI ויש לי זמן ורצון לעזור לך

[u88]

@יודע-ומייבין מענין אז לראות את התוצאות של זה...

[YAHBDK]

@יודע-ומייבין כתב:

@YAHBDK אני‌​‌‌​‌​​​​​‌ יש לי AI ויש לי זמן ורצון לעזור לך

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

[YAHBDK]

@יודע-ומייבין
יצא מזה משהו?

[יודע ומייבין]

@YAHBDK תן לי נוסח מלא מה לכתוב לו

[YAHBDK]

@יודע-ומייבין
תן לו קישור של הפוסט הראשון
תודה לך

[יודע ומייבין]

@YAHBDK מחר בעז"ה