替换 Excel 文件页眉和页脚上的文本

我想检查 Excel 工作表上的页眉和页脚，并将给定字符串的所有出现位置替换为另一个字符串。如何使用 vba 来完成此操作？

你需要使用才能使用Sheet.PageSetup财产。我假设您正在寻找中心页眉和页脚。以下内容将为您工作

Sub LoopThroughPageSetup()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.PageSetup.CenterHeader = "hello" Then 'change to whatever you want
            sh.PageSetup.CenterHeader = "hi"
        End If
        If sh.PageSetup.CenterFooter = "hi" Then
            sh.PageSetup.CenterFooter = "hello"
        End If
    Next sh
End Sub