....................

[מניין]

@NykUser כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):

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

@מניין נמתין לבעל הקוד המקורי שיגיד מה הוא חושב.

Next Foot

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

[נוכחות]

פוסט זה נמחק!

[נוכחות]

פוסט זה נמחק!

[מניין]

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

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

@NykUser כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):

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

@מניין נמתין לבעל הקוד המקורי שיגיד מה הוא חושב.

Next Foot

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

יכול להיות שיש לך 3 הערות שוליים במסמך?
זה נראה שהמקרו שלו מותאם למקרו שלו שעובד עם הערות שוליים Footnotes
ובשביל להתאים את זה להערות סיום תנסה לשנות את המילה הנ''ל ל-Endnotes
תעדכן אם עובד לך

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

[מניין]

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

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

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

בכל מקרה אם שניהם יצליחו אפשר בחזרה להכניס מקרו חדש שיכלול את כל הפעולות בדרך הזאת
Sub סופי()
Application.Run MacroName:="רצף_הערות_חלק_א_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ב"
Application.Run MacroName:="רצף_הערות_חלק_ג_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ד"
End Sub
ואת שני המקרויים הקודמים ששלחתי לשנות להם את השמות כמו שהשם שלהם מופיע בקוד הזה.
המקרו הנוכחי אמור לכאורה לעשות הכל בבת אחת.

אפשר להוסיף גם את ההוספת רווחים לפני כל הערה.

נכון

Sub סופי()
Application.Run MacroName:="רצף_הערות_חלק_א_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ב"
Application.Run MacroName:="רצף_הערות_חלק_ג_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ד"
Application.Run MacroName:="רווחים_בין_הערות"

End Sub

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

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

[מניין]

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

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

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

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

בכל מקרה אם שניהם יצליחו אפשר בחזרה להכניס מקרו חדש שיכלול את כל הפעולות בדרך הזאת
Sub סופי()
Application.Run MacroName:="רצף_הערות_חלק_א_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ב"
Application.Run MacroName:="רצף_הערות_חלק_ג_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ד"
End Sub
ואת שני המקרויים הקודמים ששלחתי לשנות להם את השמות כמו שהשם שלהם מופיע בקוד הזה.
המקרו הנוכחי אמור לכאורה לעשות הכל בבת אחת.

אפשר להוסיף גם את ההוספת רווחים לפני כל הערה.

נכון

Sub סופי()
Application.Run MacroName:="רצף_הערות_חלק_א_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ב"
Application.Run MacroName:="רצף_הערות_חלק_ג_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ד"
Application.Run MacroName:="רווחים_בין_הערות"

End Sub

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

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

ועכשיו חילקתי לשני שלבים וזה עובד מצויין.

Sub רצף_הערות_סופי_1()
Application.Run MacroName:="רצף_הערות_חלק_א_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ב"
Application.Run MacroName:="רצף_הערות_חלק_ג_חדש"

End Sub

Sub רצף_הערות_סופי_2()
Application.Run MacroName:="רצף_הערות_חלק_ד"
Application.Run MacroName:="רווחים_בין_הערות"

End Sub

[מניין]

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

[נוכחות]

פוסט זה נמחק!

[נוכחות]

פוסט זה נמחק!

[נוכחות]

פוסט זה נמחק!

[NykUser]

@נוכחות כתב ב[שיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות)]

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

For i = 1 To ActiveDocument.Footnotes.Count - 2
  'קוד  
Next i

[נוכחות]

פוסט זה נמחק!

[נוכחות]

פוסט זה נמחק!

[ששמעון]

@נוכחות עכשיו הפעלתי את המאקרו הזה:

וזה מה שיצא לי:

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

[מניין]

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

[ששמעון]

@מניין הפעלת את המאקרו שאני הפעלתי?

[מניין]

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

@מניין הפעלת את המאקרו שאני הפעלתי?

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

[נוכחות]

פוסט זה נמחק!

[נוכחות]

פוסט זה נמחק!

[מניין]

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

לגבי 2 האם זה מוסיף את אותו כמות רווחים (3 לפחות אאל"ט) או רק 2 רווחים?

זה מוסיף אחד, עכשיו יש שתיים.