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

%AppData%/Microsoft/Word/STARTUP

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

להורדה:שולחן העורך 3.3.exe
שולחן העורך 3.2.zip סיסמא 1234

נ.ב. אבקש את עזרת הציבור: מי שמצא באגים או שיש לו רעיונות נוספים מוזמן לשתף בכדי שנוכל לשפר את התוסף לתועלת הציבור
ניתן להשאיר הודעות גם במייל (בפרופיל שלי)

Spoiler

החידושים בגירסה 3:

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

החידושים בגירסה 2:

1. הערות שולים ד"ה - מוסיף הערות שולים בצורת ד"ה, כך שההערה היא ללא מספר והטקסט המסומן נוסף בצורה מודגשת בתוך ההערה.
   ישנה אפשרות להמיר הערה קיימת או את כל ההערות במסמך.
2. הוספת עיטורים לכותרות- מוסיף עיטורים לפני ואחרי או מעל ומתחת הכותרות במסמך.
3. יישור עמודים - מיישר את העמודים במסמך כך שייסתיימו בסוף העמוד ללא רווח
4. צמצום מסמך - מצמצם את המסמך לכמות העמודים הרצויה
5. סימון עמודים - מסמן את העמודים במסמך את המילה הראשונה באדום והמילה האחרונה בירוק קרדיט ל @מניין

גירסה 1.0:
מבוסס על תוסף עיצוב תורני בתוספת השיפורים הבאים:

1. עיצוב מילה ראשונה דינמי - מאפשר עיצוב של המילה הראשונה גם במסמכים מרובי עיצוב.
   אופן השימוש: כאשר מסמנים את האופציה נפתח חלון ובו אפשר לבחור איזה עיצובים נרצה להחיל על הטקסט.
   לאחר שבחרנו את העיצובים המתאימים, נסמן את אופציה עיצוב מילה ראשונה עם/בלי סגנון ונבחר את העיצוב/סגנון המבוקש.
   כאשר נריץ את הקוד, הוא ישנה רק את הפרמטרים שביקשנו לשנות באמצעות החלון של 'עצב באופן דינמי' שאר הפרמטרים יקבלו את העיצוב של שאר הפיסקה.
   כמו כן ניתן להגדיל את המילה הראשונה לפי אחוזים, באמצעות האופציה 'גודל משתנה' - דבר המתאים למסמכים מרובי עיצוב בהם כל פיסקה בגודל שונה.
2. תיקון מרווח שורות - כאשר אנו מגדילים את המילה הראשונה בפיסקה נוצר רווח גדול יותר בין השורה הראשונה לשאר השורות, הסיבה לכך היא: שמרווח השורות מוגדר למרווח של שורה (או יותר) בין שורה לשורה, הקוד הזה ממיר את המרווח למרווח מדויק וכך המרווח לא גודל.
   לפעמים המילה הראשונה תיראה חתוכה, אבל כאשר מדפיסים או ממירים לPDF הענין מסתדר.
   שימו לב!! לאחר שנתקן את המרווח, באם נרצה להגדיל או להקטין את הטקסט הדבר יגרום לבעיות, ולכן יש להסיר את העיצוב הנ"ל לפני שנרצה להגדיל. (מומלץ להסיר את העיצוב הנ"ל באופן ידני - בכדי להגיע לתוצאה מדויקת יותר)
3. יישור כלפי מעלה - מיישר את המילה הראשונה כך שגובה המילה יהיה כגובה שאר הפיסקה.
4. עיצוב חלון כפול בפיסקאות של 3 שורות - שאר הפיסקאות יעוצבו בחלון רגיל.
   יש לשים לב שלפעמים כאשר מוסיפים את החלון הנוסף הפיסקה מתרחבת ל4 שורות - במקרה כזה לא יחול עיצוב חלון כפול.
5. איזון שורה אחרונה - מונע מצב של מילה בודדת בשורה האחרונה, ע"י הגדלת הרווח בין המילים בשורה הצפופה ביותר (במידת האפשר)
   בעקבות סתירות בין הקוד הזה לקוד של מרכוז שורה אחרונה הישן הוחלט להוריד את מרכוז שורה אחרונה הקודם.
6. חלונית התקדמות כאשר מעצבים יותר מ100 פיסקאות

תודה רבה ל @pcinfogmach על העזרה והעידוד וכמובן על החלק העיקרי בתוסף שפותח על ידו!!

בסיעתא דשמיא יצא לאור תוסף רב טקסט לוורד

החידושים בגירסה 3.0 בפוסט הזה

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

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

להורדה: רב טקסט 3.1
קובץ ZIP: רב טקסט 3.1 סיסמא: 1234
סרטון הדרכה: סרטון הדרכה רב טקסט גירסה 2.0.zip סיסמא: 1234
רב טקסט - עימוד אוטומטי - גירסה 3.0.zip

הערה חשובה: מומלץ להמיר את המרווח בין השורות למרווח 'מדויק'

תוספים נוספים שלי:
תוסף שולחן העורך - סט כלים לעורך התורני
תוסף אקורדים - מאפשר הוספה של אקורדים בוורד

אכן, בעז"ה אני מתכנן להוציא בימים הקרובים גירסה משופרת של עיצוב פיסקה - תוסף עיצוב תורני

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

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

Spoiler

בעז"ה פיתחתי תוסף אקורדים לוורד שעל ידו ניתן להוסיף אקורדים בקלות

אפשרות להוסיף מגוון רחב של אקורדים - בלחיצת כפתור

האקורד שנוסף מקושר לאות שתחתיו כך שהוא "זז" יחד איתו

אפשרויות עיצוב מתקדמות

אפשרות להסרת אקורדים בקלות

טרנספוזיציה - המרת סולמות מובנית!!

להורדה:גירסה 4.2

Spoiler

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

עריכה: המאקרו הוכנס בסייעתא דשמיא לתוסף שולחן העורך

כולם מוזמנים להוריד ולהנות

מכיל גם מאקרו להסרת העיטורים מהכותרות

חדש!!! הוספת עיטור מעל ומתחת הכותרות ההורדה משם

אז, מה האופציות של המאקרו? ברשימה למטה

ניתן להוסיף את העיטור כתמונה או כתבליט (שימו לב שהאופציה של תבליט לא כ"כ טובה)

אפשר להוסיף עיטור לפני הכותרת או לאחריה או בשני הצדדים

אפשרות להקטנת/הגדלת העיטור

אפשרות לקביעת 'תוחם' - תוים שיפרידו בין העיטור לכותרת, כך ניתן לקבוע כמה רווחים יהיו בין העיטור לכותרת.

קביעת גובה העיטור

יש גם חלונית תצוגה מקדימה (לא משהו, בעקבות המגבלות של UserFrom)

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

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

אז הנה המאקרו שיעשה את העבודה גם בוורד

:
מגדיל את הרווח בין המילים רק בשורה הצפופה ביותר (במידת האפשר)

רץ על כל הפיסקאות הנבחרות (אם רוצים להריץ על כל המסמך פשוט עושים לפני ctrl + A)

מדלג על פיסקאות ממורכזות

מותאם לעבודה עם עיצוב חלון של תוסף עיצוב תורני

מאקרו להסרת העיצוב

:
אשמח לקבל תגובות ו/או הצעות ייעול

קרה לכם פעם שהייתם צריכים להדפיס מסמך כל שהוא על 4 עמודים (לדוג') אבל מה לעשות שהמסמך הוא 8 עמודים!
אז מה עושים?
מקטינים את השוליים, את המרווח בין הפיסקאות, את המרווח בין השורות, את גודל הטקסט...
בקיצור הרבה עבודה...

טוב, אז מהיום הכל בלחיצת כפתור!!
ההורדה מכאן

אפשרות לשלוט על מה הקוד ישפיע ועל מה לא. + אפשרות שליטה על מה הוא ישפיע יותר.

מותאם לשימוש גם במסמכים מרובי עיצוב (עם מקטעים מרובים, גדלי טקסט שונים, וכו')

לא מקטין את השולים/מרווח בין טורים לפחות מ1 ס"מ וכן לא מקטין את הפונט מתחת ל5 נק'.

מתאים למסמכים עד 100 עמודים (כאילו שמישהו מתכוין להשתמש במסמך כזה גדול...)

הודעה למשתמש בסיום הפעולה, מה בדיוק התבצע.

לא מותאם למסמכים מעל 100 עמודים - בעקבות כך שזאת פעולה כבדה מדאי
לא ניתן להקטין את המסמך ביותר מ75% - מהטעם הנ"ל...
לא מותאם למסמכים בהם יש מרווח בין טורים דינמי (כלומר כאשר יש 3 טורים או יותר, והמרווח מוגדר 1.25 ס"מ (לדוג') בין 2 הטורים הראשונים ומרווח 1.45 בין 2 הטורים האחרונים)

Spoiler

גירסה 3 יצאה לאור.

החידושים בגירסה 3:

תוקנו הבאגים בעיצוב פיסקה.

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

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

גירסה 3.2:
שופר היישור טורים, אשמח לקבל תגובות

@u88
ובכן:

1. תוכן עניינים - הושלם.
2. עיטורים לכותרות - 90%
3. המרת הערות לסוגריים ולהפך - הושלם
4. הערות ברצף - הושלם (לפחות לבינתיים)
5. עיצוב פיסקה עם אפשרות בחירה לפי סגנון - הושלם.
6. חיפוש סוגריים לא סגורים - הושלם. (לפחות לבינתיים)
7. יישור טורים לפי מקטע - הושלם.
8. סימני חיתוך - הושלם.
9. תיקון שגיאות מצויות - 50%
10. פירוק מסמך - 90%
11. המרת סגנונות לטור אחד או להיפך - 30%

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

@menajemmendel מה שהבאתי היה מאוד חלקי...
הכוונה לייצר תוסף כזה: (בפיתוח)

מוסיפים בתחילת כל עמוד את 2 השכבות הראשונות
ולאחר מכן אפשר למתוח את השכבות לצדדים ו/או להוסיף שכבות נוספות

@אמר-מר כתב בלהורדה | תוסף רב טקסט לוורד - חינם!!!:

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

בעז"ה בקרוב גירסה 2 עם המון תוספות + סרטון הדרכה

@מניין אם תוכל להסיר את תוסף שולחן העורך ולבדוק אם עובד - ייתכן שזה הבעיה

@דאנציג כתב בלהורדה | תוסף רב טקסט לוורד - חינם!!!:

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

@שמואל @אלישי

בסייעתא דשמיא גירסה 2 יוצאת לאור!!!
מה חדש?

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

@מניין תבדוק אם נפתרו הבאגים שציינת

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

Sub Repair()
    Dim searchText(1 To 14) As String
    Dim replaceText(1 To 14) As String
    Dim msg(1 To 14) As String
    Dim i As Integer
    
    ' רווחים עודפים ופיסקאות ריקות
    searchText(1) = " {2,}": replaceText(1) = " "
    searchText(2) = "^13{2,}": replaceText(2) = "^13"
    
    ' רווח לפני תוי פיסוק
    searchText(3) = "( )([.,:\?\!])([! ])": replaceText(3) = "\2\1\3"
    searchText(4) = "( )([.,:\?\!])([ ])": replaceText(4) = "\2\3"
    
    ' סימני פיסוק כפולים
    searchText(5) = "([,:\!\?]){2,}": replaceText(5) = "\1"
    searchText(6) = "..": replaceText(6) = "."

    ' מעל 3 נקודות
    searchText(7) = ".{4,}": replaceText(7) = "..."
    
    ' רווח לפני סוגר סוגריים
    searchText(8) = "( )([\)\]])([! ])": replaceText(8) = "\2\1\3"
    searchText(9) = "( )([\)\]])( )": replaceText(9) = "\2\3"
    
    ' רווח אחרי פותח סוגריים
    searchText(10) = "([! ])([\(\[])( )": replaceText(10) = "\1\3\2"
    searchText(11) = "( )([\(\[])( )": replaceText(11) = "\1\2"
    
    ' רווח לפני ואחרי פיסקה
    searchText(12) = "^13 ": replaceText(12) = "^13"
    searchText(13) = " ^13": replaceText(13) = "^13"
    
    ' זוג גרשיים בודדים לגרשיים אחד
    searchText(14) = "''": replaceText(14) = """"
    
    For i = LBound(searchText) To UBound(searchText)
        Call SearchAndReplace(searchText(i), replaceText(i))
    Next i

End Sub
Function SearchAndReplace(searchText As String, Optional replaceText As Variant = Nothing, Optional rng As Range = Nothing, Optional searchForward As Boolean = True, Optional searchMatchWildcards = True) As Range
    
    If rng Is Nothing Then Set rng = ActiveDocument.Range
    On Error Resume Next
    If IsEmpty(replaceText) Then replaceText = "False"
    On Error GoTo 0
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .text = searchText
        .Replacement.text = replaceText
        .Forward = searchForward
        .Wrap = wdFindStop
        .Format = True
        .MatchKashida = True
        .MatchWildcards = searchMatchWildcards
        If replaceText = "False" Then
            If .Execute Then Set SearchAndReplace = rng.Duplicate
        Else
            .Execute Replace:=wdReplaceAll
        End If
    End With

End Function

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

אני אסביר את העניין:

שכבה פירושה:
נקודה במסמך שבה תיבות הטקסט משנות צורה כגון: כאשר מסיימים את ה4 שורות הראשונות במסמך ורוצים להוסיף גם את הטקסט הראשי

איך זה עובד?
כל תיבה מקבלת מספור לפי מספר הטקסט (1-3) וכל שכבה מקבלת גם מספור בסדר עולה, וכך הקוד יכול לתאם בין התיבות השונות בשכבה.

סדר העבודה:
בתחילת כל עמוד אנחנו מוסיפים 2 שכבות וקובעים איזה רוחב באחוזים יהיה הטקסט הראשי.
בד"כ השכבה הראשונה תכיל את 2 הטקסטים של המפרשים (4 שורות עליונות) והשכבה השניה את כל שלושת הטקסטים (ניתן לבחור את האפשרויות שכבה ראשונה/שניה).

לאחר מכן נוכל להרחיב כל אחת מתיבות הטקסט לימין או לשמאל, וכן להרחיב עד סוף העמוד, באמצעות הקבוצה 'הרחב/כווץ'.

ניתן יהיה להוסיף שכבות נוספות באמצעות 'הוסף שכבה נוספת' - השכבות יקושרו אוטומטית לתיבות הקודמות.

ניתן להרחיב את תיבות הטקסט באמצעות הקבוצה 'התאמה' למספר שורות מסוים (ניתן גם להוסיף שורה 1 בודדת באמצעות 'הרחב/כווץ')
כמו"כ ניתן להרחיב את שאר תיבות הטקסט שבשכבה עד התיבה המסומנת (יש 2 אופציות)

כאשר מתחילים עמוד צריך לעשות 'קשר לקודם' וכאשר עוברים את ה32 תיבות טקסט המשורשרות צריך 'גזור והדבק'

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

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

@דאנציג כתב בלהורדה | תוסף רב טקסט לוורד - חינם!!!:

אך לצערי גם לי מופיע הבאג:

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

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

אין לי מושג מה זה... אבל בכל זאת: @הנהלה

@מניין כתב בלהורדה | תוסף רב טקסט לוורד - חינם!!!:

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

זה רעיון די פשוט לביצוע - והוא יעודכן בעז"ה.

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

כנ"ל...

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

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

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

גם זה ענין די פשוט - וכנ"ל...
אם כי מומלץ להכיר את חלונית הבחירה - לשונית בית>עריכה>בחר>חלונית הבחירה

ותודה רבה על הכל, זה נראה השקעה אדירה ששוברת שיאים חדשים

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

ותודה רבה לך על התגובות - אשמח לקבל עוד תגובות ממשתמשים נוספים.

בסיעתא מן שמיא פיתחתי קוד להערות ברצף בוורד
אופן הפעולה:

• ממיר את הערות השולים להערות סיום.
• יוצר סימניה על כל הערה.
• מוסיף תיבת טקסט בכל עמוד ומכניס לתוכה שדה שמחזיר את הטקסט של הסימניה.
• משרשר את תיבות הטקסט אחת לשניה במקרה של הערות שעוברות מעמוד לעמוד.

שימו לב: מומלץ להסיר את בקרת שורות מיותמות בכדי למנוע הערות שלא במקומן.

הבאגים הקיימים:

1. מוחק את מספרי ההערות - מי שיש לו פתרון להחזרה של מספור אוטומטי בתוך שדה שיעדכן.
2. מוחק את הקו מעל ההערות. - יסודר בהמשך
3. לא ניתן לעשות 2 טורים כי תיבות הטקסט בוורד מוגבלות לטור אחד.
   למי שיש רעיונות לפיתרונות של הבעיות הנ"ל מוזמן לעדכן.

להורדה: הערות ברצף.dotm
להכניס בנתיב הבא:

%AppData%/Microsoft/Word/STARTUP

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

@shishko הנה הקוד:

Sub המרת_מרווח_בין_שורות_למדויק()
    Dim rng As Range
    Dim paragraphTop As Single
    Dim paragraphBottom As Single
    Dim paragraphHeight As Single
    Dim currentParagraph As Paragraph
    Dim lineCount As Long
    Dim Exactspacing As Double
    
    
    ' קבלת הפיסקה הנוכחית
    Set currentParagraph = Selection.Paragraphs(1)
    
    ' בחירת כל הפיסקה הנוכחית
    currentParagraph.Range.Select

    'הגדרת טווח לפסקה הראשונה
    Set rng = Selection.Range

    ' קבלת המיקום העליון של הפסקה
    paragraphTop = rng.Information(wdVerticalPositionRelativeToPage)
    
    ' קבלת המיקום התחתון של הפיסקה
    Selection.Move Unit:=wdCharacter, Count:=1
    Selection.Move Unit:=wdCharacter, Count:=-1
    paragraphBottom = Selection.Information(wdVerticalPositionRelativeToPage)

    ' חישוב גובה הפסקה
    paragraphHeight = paragraphBottom - paragraphTop
    
    ' חישוב מספר השורות בפיסקה
    lineCount = Selection.Paragraphs(1).Range.ComputeStatistics(wdStatisticLines)
    
    Exactspacing = paragraphHeight / (lineCount - 1)
     With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .lineSpacing = Exactspacing
    End With
End Sub

הקוד הזה ממיר באופן מדוייק לא משנה מה הפונט ולא משנה מה המרווח בין השורות.

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

Spoiler

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