בקשת מידע | כותרת עמוד ראשון שונה ב VBA

[יאיר הבהיר]

שלום וברכה,

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

 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Application.Templates( _
        "C:\Users\2\AppData\Roaming\Microsoft\Templates\חבורות מעודכן.dotm"). _
        BuildingBlockEntries("בסייעתא דשמיא").Insert Where:=Selection.Range, _
        RichText:=True
    Selection.TypeBackspace
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

@pcinfogmach @שלמה11 ?

[שלמה11]

@יאיר-הבהיר הקוד שלך מכיל הרבה מאוד דברים מיותרים (כמו שקורה עם הקלטת מאקרו)
בעיקרון הפקודה המתאימה היא:

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

או False

[יאיר הבהיר]

@שלמה11 מצוין, תודה!