בעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?

[שמעון פרידנן]

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

[איש תם]

@שמעון-פרידנן
בקיצור אתה אומר לעבוד על הכל מהתחלה... ?

[שמעון פרידנן]

@איש-תם כתב בבעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?:

בקיצור אתה אומר לעבוד על הכל מהתחלה... ?

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

[לחיל אומר]

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

[איש תם]

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

סימנים מובהקין.docx

סימנים מובהקין.pdf

[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
אני אדם כל כך פשוט שלא מבין את הדברים הללו.
אשמח ממש להסברים (כמו ילד בכיתה א'... - כי אני בכזה רמה בהגדרות הללו)
תודה.

[ginyes]

@איש-תם כתבתי לך הוראות בשפה פשוטה, אין מה להוסיף...
אם יש משהו ספציפי שאתה לא מבין, אני אשתדל להסביר.

[איש תם]

@ginyes כתב בבעיה | מספרי הוורד לאותיות - לא משתנה בכל המסמך !?:

לחץ Alt + F11 כדי לפתוח את עורך ה־VBA.
בתפריט: ‎Insert > Module.
הדבק את הקוד למודול החדש.
סגור את חלון ה־VBA.
לחץ Alt + F8, בחר את המאקרו בשם FixHebrewPageNumbers ולחץ Run.

מה זה כל הכפתורים והחלונות הללו?
איך אני רואה אותם במקשים - ואיפה להקיש?

[ginyes]

@איש-תם
אם המסמך פתוח לפניך -
אתה לוחץ Alt + F11 וכך אתה מגיע לעורך המאקרו.
שם בשורה העליונה בתפריטים חפש את Module, בחר בו, ואז בחר ב-Insert .
יפתח לך חלון ריק, שם אתה מדביק את הקוד הנ"ל.
לאחר מכן אתה סוגר את החלון של המודל ושל המאקרו (ואז אתה בעצם חוזר לראות את המסמך).

אתה לוחץ Alt + F8 וצריך להופיע לך שורה שכתוב בה - FixHebrewPageNumbers.
תבחר בזה ותלחץ פעמיים.