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

[MERS]

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

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

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

בשביל שימוש פרטי זה בודאי מספיק.
כל ההערות בפעם אחת.txt

---

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

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

האמת שאם זה יהיה בתוסף, אפשר למזג את זה גם בלולאת סי-שארפ עם תנאי סי-שארפ'ניק.

אולי @שמעלקא-0 אולי @מאקרו אולי יתר הרבנים שליט"א.
תזכו למצוות!

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

[נוכחות]

זה צריך להיות פקודה מותנית במספר גלובלי:

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

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

[NykUser]

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

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

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

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

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

[נוכחות]

האם מישהו ניסה את הקוד הזה עכשיו?

Sub הכל_בפעם_אחת()
'
For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
Application.Run MacroName:="רצף_הערות_חלק_א"
Next i
End Sub
אני לא בטוח שהבנתי אם זאת כוונתך, אבל על הצד שלזה התכוונת, אשמח לדעת אם מישהו יצא להפעיל את המקרו הזה עכשיו. (פשוט להדביק את כל זה בסוף המקרו שפרסמתי ולהפעיל את המקרו "הכל_בפעם_אחת").

[מניין]

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

האם מישהו ניסה את הקוד הזה עכשיו?

Sub הכל_בפעם_אחת()
'
For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
Application.Run MacroName:="רצף_הערות_חלק_א"
Next i
End Sub
אני לא בטוח שהבנתי אם זאת כוונתך, אבל על הצד שלזה התכוונת, אשמח לדעת אם מישהו יצא להפעיל את המקרו הזה עכשיו. (פשוט להדביק את כל זה בסוף המקרו שפרסמתי ולהפעיל את המקרו "הכל_בפעם_אחת").

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

[נוכחות]

@מניין השני אמור להיות ככה
Sub כל_ההערות_בפעם_אחת()
'
For Each Foot In ActiveDocument.Footnotes
Application.Run MacroName:="רצף_הערות_חלק_ג"

ext Foot

End Sub
עד כאן
אשמח לדעת אם זה הצליח ג"כ.

[מניין]

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

For Each Foot In ActiveDocument.Footnotes
Application.Run MacroName:="רצף_הערות_חלק_ג"
ext Foot

End Sub

קיבלתי תגובה זו

[נוכחות]

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

[מניין]

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

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

ומה הוא רוצה עכשיו?

[נוכחות]

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

[נוכחות]

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