בעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?
-
@שמעון-פרידנן
בקיצור אתה אומר לעבוד על הכל מהתחלה... ?@איש-תם כתב בבעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?:
בקיצור אתה אומר לעבוד על הכל מהתחלה... ?
למה מהתחלה?
לכאורה מספיק לבטל רק את המעברי מקטע. כל שאר העיצוב ישמר. אח"כ אפשר להחזיר הכל בקלות.
מהצילום נראה שכל הכותרות מוגדרות בסגנון כותרת א"כ תוכל אח"כ להחיל את הפעולה של מרכוז הכותרת על הכל בבת אחת ולחזור מהר למצב הנוכחי, לכאורה זה אמור להיות בקלות. -
@לחיל-אומר
המסמך הזה מלא בהשקעה אדירה של כותרות, סוגריים, וכו' וכו'...
אין לכם מידע בעניין הזה ממה זה נובע?
יכול להיות שזה קשור לעידכון גירסה במחשב?
מה עושים עם זה?
אנא ואנא.
תנו לי עצה ופיתרון!
תודה
-
@איש-תם תנסה אופציה של העתקה עם העיצוב אולי זה יעבוד (שווה ניסיון)
ב. אולי באמת תנסה בגרסה אחרת של וורד [לא מסתבר אבל שווה ניסיון]
ג. אם המסמך לא סודי מידי, שווה לך להעלות את זה ולתת לחברי הפורום לנסות לעזור לך@לחיל-אומר
העלתי את זה כאן.
אשמח לעזרה....
רק אדגיש שעדיין לא סיימתי לערוך אותו,
כי אני תקוע עם העמודים... -
@לחיל-אומר
העלתי את זה כאן.
אשמח לעזרה....
רק אדגיש שעדיין לא סיימתי לערוך אותו,
כי אני תקוע עם העמודים...@איש-תם בעיקרון בגלל שיש לך מעברי מקטעים, לכן צריך לעצב כל תחילת מקטע את מספר העמוד מחדש.
מצרף מאקרו שמסדר את מספרי העמודים בכל המסמך
Sub FixHebrewPageNumbers() Dim sec As Section Dim hf As HeaderFooter ' עובר על כל המקטעים במסמך For Each sec In ActiveDocument.Sections ' הגדרת המספור לאותיות (א,ב,ג) With sec.Headers(wdHeaderFooterPrimary).PageNumbers .NumberStyle = wdPageNumberStyleHebrewLetter1 .RestartNumberingAtSection = False End With With sec.Footers(wdHeaderFooterPrimary).PageNumbers .NumberStyle = wdPageNumberStyleHebrewLetter1 .RestartNumberingAtSection = False End With Next sec MsgBox "המספור הותאם לאותיות (א,ב,ג...) בכל המקטעים!", vbInformation End Sub- לחץ Alt + F11 כדי לפתוח את עורך ה־VBA.
- בתפריט: Insert > Module.
- הדבק את הקוד למודול החדש.
- סגור את חלון ה־VBA.
- לחץ Alt + F8, בחר את המאקרו בשם FixHebrewPageNumbers ולחץ Run.
בהצלחה
-
@איש-תם בעיקרון בגלל שיש לך מעברי מקטעים, לכן צריך לעצב כל תחילת מקטע את מספר העמוד מחדש.
מצרף מאקרו שמסדר את מספרי העמודים בכל המסמך
Sub FixHebrewPageNumbers() Dim sec As Section Dim hf As HeaderFooter ' עובר על כל המקטעים במסמך For Each sec In ActiveDocument.Sections ' הגדרת המספור לאותיות (א,ב,ג) With sec.Headers(wdHeaderFooterPrimary).PageNumbers .NumberStyle = wdPageNumberStyleHebrewLetter1 .RestartNumberingAtSection = False End With With sec.Footers(wdHeaderFooterPrimary).PageNumbers .NumberStyle = wdPageNumberStyleHebrewLetter1 .RestartNumberingAtSection = False End With Next sec MsgBox "המספור הותאם לאותיות (א,ב,ג...) בכל המקטעים!", vbInformation End Sub- לחץ Alt + F11 כדי לפתוח את עורך ה־VBA.
- בתפריט: Insert > Module.
- הדבק את הקוד למודול החדש.
- סגור את חלון ה־VBA.
- לחץ Alt + F8, בחר את המאקרו בשם FixHebrewPageNumbers ולחץ Run.
בהצלחה
-
@ginyes
אני אדם כל כך פשוט שלא מבין את הדברים הללו.
אשמח ממש להסברים (כמו ילד בכיתה א'... - כי אני בכזה רמה בהגדרות הללו)
תודה. -
@איש-תם בעיקרון בגלל שיש לך מעברי מקטעים, לכן צריך לעצב כל תחילת מקטע את מספר העמוד מחדש.
מצרף מאקרו שמסדר את מספרי העמודים בכל המסמך
Sub FixHebrewPageNumbers() Dim sec As Section Dim hf As HeaderFooter ' עובר על כל המקטעים במסמך For Each sec In ActiveDocument.Sections ' הגדרת המספור לאותיות (א,ב,ג) With sec.Headers(wdHeaderFooterPrimary).PageNumbers .NumberStyle = wdPageNumberStyleHebrewLetter1 .RestartNumberingAtSection = False End With With sec.Footers(wdHeaderFooterPrimary).PageNumbers .NumberStyle = wdPageNumberStyleHebrewLetter1 .RestartNumberingAtSection = False End With Next sec MsgBox "המספור הותאם לאותיות (א,ב,ג...) בכל המקטעים!", vbInformation End Sub- לחץ Alt + F11 כדי לפתוח את עורך ה־VBA.
- בתפריט: Insert > Module.
- הדבק את הקוד למודול החדש.
- סגור את חלון ה־VBA.
- לחץ Alt + F8, בחר את המאקרו בשם FixHebrewPageNumbers ולחץ Run.
בהצלחה
@ginyes כתב בבעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?:
לחץ Alt + F11 כדי לפתוח את עורך ה־VBA.
בתפריט: Insert > Module.
הדבק את הקוד למודול החדש.
סגור את חלון ה־VBA.
לחץ Alt + F8, בחר את המאקרו בשם FixHebrewPageNumbers ולחץ Run.מה זה כל הכפתורים והחלונות הללו?
איך אני רואה אותם במקשים - ואיפה להקיש? -
@ginyes כתב בבעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?:
לחץ Alt + F11 כדי לפתוח את עורך ה־VBA.
בתפריט: Insert > Module.
הדבק את הקוד למודול החדש.
סגור את חלון ה־VBA.
לחץ Alt + F8, בחר את המאקרו בשם FixHebrewPageNumbers ולחץ Run.מה זה כל הכפתורים והחלונות הללו?
איך אני רואה אותם במקשים - ואיפה להקיש?@איש-תם
אם המסמך פתוח לפניך -
אתה לוחץ Alt + F11 וכך אתה מגיע לעורך המאקרו.
שם בשורה העליונה בתפריטים חפש את Module, בחר בו, ואז בחר ב-Insert .
יפתח לך חלון ריק, שם אתה מדביק את הקוד הנ"ל.
לאחר מכן אתה סוגר את החלון של המודל ושל המאקרו (ואז אתה בעצם חוזר לראות את המסמך).אתה לוחץ Alt + F8 וצריך להופיע לך שורה שכתוב בה - FixHebrewPageNumbers.
תבחר בזה ותלחץ פעמיים. -
@ginyes כתב בבעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?:
לחץ Alt + F11 כדי לפתוח את עורך ה־VBA.
בתפריט: Insert > Module.
הדבק את הקוד למודול החדש.
סגור את חלון ה־VBA.
לחץ Alt + F8, בחר את המאקרו בשם FixHebrewPageNumbers ולחץ Run.מה זה כל הכפתורים והחלונות הללו?
איך אני רואה אותם במקשים - ואיפה להקיש? -
@איש-תם עשיתי לך את המאקרו לפי ההוראות המעולות של @ginyes
תנסה את זה אם זה עובד
סימנים-מובהקין מסודר.docx@לחיל-אומר
אין עליך!
לא מאמין שיש אנשים טובים כמוך.
מה שכעת מוטל עלי זה להמשיך לערוך את המסמך שהבאת פה?
לא נגעת בעוד שום הגדרות של העימוד?
תודה!!
 { 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}