....................
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
השאלה אם זה לא חסר מעליו. כי יכול להיות שזה רק עבר מקום, וצריך להחזיר את אותה שורת קוד לסוף המקרו הקודם.
לא חסר
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@מניין האם שמרת את הויסואל בייסיק וסגרת אותו ואז הפעלת את הוורד?
ניסיתי גם את זה.
והוא מדגיש כל הזמן איזה מילה באנגלית [בתמונה], אולי זה הבעיה. -
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
בכל מקרה אם שניהם יצליחו אפשר בחזרה להכניס מקרו חדש שיכלול את כל הפעולות בדרך הזאת
Sub סופי()
Application.Run MacroName:="רצף_הערות_חלק_א_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ב"
Application.Run MacroName:="רצף_הערות_חלק_ג_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ד"
End Sub
ואת שני המקרויים הקודמים ששלחתי לשנות להם את השמות כמו שהשם שלהם מופיע בקוד הזה.
המקרו הנוכחי אמור לכאורה לעשות הכל בבת אחת.אפשר להוסיף גם את ההוספת רווחים לפני כל הערה.
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@מניין נמתין לבעל הקוד המקורי שיגיד מה הוא חושב.
Next Foot
@NykUser כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
@מניין נמתין לבעל הקוד המקורי שיגיד מה הוא חושב.
Next Foot
שיניתי וזה אכן עובד מצויין, אבל רק על 3 הערות כל פעם, ולא עד סוף המסמך.
-
@נוכחות כתב בשיתוף | והנה זה בא: הערות ברצף בוורד (בלי הפרדת פיסקאות):
בכל מקרה אם שניהם יצליחו אפשר בחזרה להכניס מקרו חדש שיכלול את כל הפעולות בדרך הזאת
Sub סופי()
Application.Run MacroName:="רצף_הערות_חלק_א_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ב"
Application.Run MacroName:="רצף_הערות_חלק_ג_חדש"
Application.Run MacroName:="רצף_הערות_חלק_ד"
End Sub
ואת שני המקרויים הקודמים ששלחתי לשנות להם את השמות כמו שהשם שלהם מופיע בקוד הזה.
המקרו הנוכחי אמור לכאורה לעשות הכל בבת אחת.אפשר להוסיף גם את ההוספת רווחים לפני כל הערה.
-
@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 סופי()
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 -
@נוכחות מעניין שבכל עמוד יש דילוג של מספר אחת של הערה, דהיינו אם העמוד הקודם מסתיים בהערה כח, בעמוד הבא זה מתחיל עם האות ל ומדלג על אות כט.
השאלה היא אם זה היה כל הזמן ככה, או רק אצלי זה השתבש. -
ח חכם וזקן התייחס לנושא זה ב
-
@נוכחות @es0583292679 @MERS
הלולאות די פשוטות ונמצאות כבר בקוד שהעליתי למעלה, אעתיק אותן לכאןהרץ מקרו מספר 1 כפול מספר העמודים שיש למסמך.
For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages) 'קוד Next iהרץ את מקרו מספר 3 כפול מספר ההערות שיש במסמך (אולי פחות אחד).
For Each Foot In ActiveDocument.Footnotes 'קוד Next Foot
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}