Excel VBA页眉/页脚-添加"Enter“

Sub AddEnterToHeaderFooter()
    Dim ws As Worksheet
    Dim section As Integer
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 设置要操作的页眉或页脚部分
    section = xlHeaderFooterPrimary ' 主要部分，也可以使用xlHeaderFooterFirstPage和xlHeaderFooterOddPages
    
    ' 添加"Enter"到页眉或页脚中
    With ws.PageSetup
        .DifferentFirstPageHeaderFooter = False ' 设置是否在第一页应用不同的页眉或页脚
        .DifferentOddEvenPagesHeaderFooter = False ' 设置是否在奇偶页应用不同的页眉或页脚
        .LeftHeader = "Enter" ' 左侧页眉
        .CenterHeader = "Enter" ' 居中页眉
        .RightHeader = "Enter" ' 右侧页眉
        .LeftFooter = "Enter" ' 左侧页脚
        .CenterFooter = "Enter" ' 居中页脚
        .RightFooter = "Enter" ' 右侧页脚
    End With
End Sub