בקשת מידע | האם יש מקרו לוורד שמוחק את כל הכותרות עליונות, או שמקשר את כל הכותרות

[לשכת הרב]

שלום וברכה
אשמח לדעת בדחיפות

א. אם יש מאקרו לוורד שמוחק את כל הכותרות עליונות ותחתונות בקובץ

ב. או מאקרו שמקשר את כל הכותרות עליונות/תחתונות בכל המסמך

או מי שיכול ליצור כזה מאקרו, זה יעזור לי מאוד

[975]

@לשכת-הרב
יש לי מפעם לא בדקתי את כזה כעת שוב אם עובד
1.

Sub מוחק_כותרות_עליונות_ותחתונות()
    Dim sec As Section
    Dim hdr As HeaderFooter
    Dim ftr As HeaderFooter
    
    For Each sec In ActiveDocument.Sections
        For Each hdr In sec.Headers
            hdr.Range.Delete
        Next hdr
        
        For Each ftr In sec.Footers
            ftr.Range.Delete
        Next ftr
    Next sec
    
    MsgBox "כל הכותרות העליונות וגם התחתונות נמחקו", vbInformation
End Sub

Sub מקשר_כותרות_ומבטל_את_המקטעים_לגבי _הכותרות()
    Dim i As Integer
    Dim sec As Section
    
    For i = 2 To ActiveDocument.Sections.Count
        Set sec = ActiveDocument.Sections(i)
        
        sec.Headers(wdHeaderFooterPrimary).LinkToPrevious = True
        sec.Headers(wdHeaderFooterEvenPages).LinkToPrevious = True
        sec.Headers(wdHeaderFooterFirstPage).LinkToPrevious = True
        
        sec.Footers(wdHeaderFooterPrimary).LinkToPrevious = True
        sec.Footers(wdHeaderFooterEvenPages).LinkToPrevious = True
        sec.Footers(wdHeaderFooterFirstPage).LinkToPrevious = True
    Next i
    
    MsgBox "כל הכותרות קושרו", vbInformation
End Sub

[לשכת הרב]

פוסט זה נמחק!