怎么能把页眉页脚以及文本框的内容也包含在vba宏里

Sub FormatDates()
    Dim doc As Document
    Dim sec As Section
    Dim hdr As HeaderFooter
    Dim ftr As HeaderFooter
    Dim shp As Shape

    Set doc = ThisDocument

    ' 遍历每个Section
    For Each sec In doc.Sections
        ' 处理页眉
        For Each hdr In sec.Headers
            ProcessText hdr.Range
        Next

        ' 处理页脚
        For Each ftr In sec.Footers
            ProcessText ftr.Range
        Next
    Next

    ' 遍历文档中的每个文本框
    For Each shp In doc.Shapes
        If shp.Type = msoTextBox Then
            ProcessText shp.TextFrame.TextRange
        End If
    Next
End Sub

Sub ProcessText(rng As Range)
    Dim dateStr As String
    Dim dateFormat As String

    dateFormat = "yyyy年M月d日"

    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "????年??月??日"
        .Replacement.Text = "????年?月?日"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    rng.Find.Execute Replace:=wdReplaceAll

    ' 将格式化的日期应用到文本框中的其他格式内容
    dateStr = rng.Text
    rng.Collapse wdCollapseStart

    If rng.Text <> dateStr Then
        rng.Text = Format(DateValue(dateStr), dateFormat)
    End If

    ' 继续查找下一个日期
    rng.Find.Execute Replace:=wdReplaceAll
End Sub