אופיס 365 כותרת עליונה ותחתונה

[גריןgreen]

קבלתי קובץ עם כותרות ואני רוצה לבטל אותם. איך עושים את זה?

 

[א.ישראל]

קובץ וורד?
כותרת עליונה ותחתונה?
פשוט להכנס לכותרת [לחיצה פעמיים עליה] לבחור הכל ולמחוק

 

[צורת הדף]

מאקרו למחוק כל כותרות עליונות ותחתונות:

Sub delete_Headers_Footers()
For Each mySec In ActiveDocument.Sections
    mySec.Headers(wdHeaderFooterFirstPage).Range.Delete
    mySec.Headers(wdHeaderFooterEvenPages).Range.Delete
    mySec.Headers(wdHeaderFooterPrimary).Range.Delete
    mySec.Footers(wdHeaderFooterFirstPage).Range.Delete
    mySec.Footers(wdHeaderFooterEvenPages).Range.Delete
    mySec.Footers(wdHeaderFooterPrimary).Range.Delete
Next mySec
End Sub

 

[obyektiv]

הוספה - כותרת עליונה לעמוד על זה ועל הסר כותרת עליונה

 

[tkh]

כאשר יש כותרות שונות במקטעים שונים, יש לעבור מקטע-מקטע ולמחוק,
וכפה"נ לזה יועיל המאקרא של הר"ר קרש יחי'.