בעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?
-
@איש-תם בעיקרון בגלל שיש לך מעברי מקטעים, לכן צריך לעצב כל תחילת מקטע את מספר העמוד מחדש.
מצרף מאקרו שמסדר את מספרי העמודים בכל המסמך
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.מה זה כל הכפתורים והחלונות הללו?
איך אני רואה אותם במקשים - ואיפה להקיש?
 { 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}