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

[נוכחות]

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

[נוכחות]

בכל מקרה אם שניהם יצליחו אפשר בחזרה להכניס מקרו חדש שיכלול את כל הפעולות בדרך הזאת
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:="רצף_הערות_חלק_ד"
End Sub
ואת שני המקרויים הקודמים ששלחתי לשנות להם את השמות כמו שהשם שלהם מופיע בקוד הזה.
המקרו הנוכחי אמור לכאורה לעשות הכל בבת אחת.

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

[NykUser]

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

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

Next Foot

[מניין]

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

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

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

Next Foot

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

[נוכחות]

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

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

בכל מקרה אם שניהם יצליחו אפשר בחזרה להכניס מקרו חדש שיכלול את כל הפעולות בדרך הזאת
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

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

[נוכחות]

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

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

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

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

Next Foot

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

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

[מניין]

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

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

@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 כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):

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

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

Next Foot

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

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

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

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

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

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

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

[נוכחות]

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

[נוכחות]

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

@נוכחות @es0583292679 @MERS
הלולאות די פשוטות ונמצאות כבר בקוד שהעליתי למעלה, אעתיק אותן לכאן

הרץ מקרו מספר 1 כפול מספר העמודים שיש למסמך.

For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    'קוד
Next i

הרץ את מקרו מספר 3 כפול מספר ההערות שיש במסמך (אולי פחות אחד).

For Each Foot In ActiveDocument.Footnotes
    'קוד
Next Foot

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

[NykUser]

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

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

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

[נוכחות]

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