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