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

[לשכת הרב]

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

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

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

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

[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

[לשכת הרב]

פוסט זה נמחק!

[לשכת הרב]

@975 אפשר להביא לי את המאקרו השני בקובץ מוכן?
אולי @pcinfogmach יוכל? [ניסתי עם המדריך שהוא כתב, אחד הצלחתי והשני לא הצלחתי, כמעט שעתיים של ניסויים ולא עבד.. לכן אשמח לקובץ מוכן אם אפשר]

עריכה: לאחר שעות של ניסויים שלא הבנתי מדוע לא הצלחתי להכניס את המאקרו השני, כעת הוברר שיש בעיה בקוד, בשורה הראשונה יש מרווח לפני המילה: _הכותרות וזה מה שמנע מהקוד לפעול.

ב"ה הכנסתי אותו לתבנית ועכשיו הוא פועל היטב.
הנה הקוד השני המתוקן

 
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