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

Question

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

Answer 1

您将需要使用 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