MS Word VBA将文本框附加到偶数和奇数标题

Sub AttachTextBoxToEvenOddHeaders()
    Dim sec As Section
    Dim hdr As HeaderFooter
    Dim tb As Shape
    Dim rng As Range
    
    ' 遍历每个节
    For Each sec In ActiveDocument.Sections
        ' 偶数页头
        Set hdr = sec.Headers(wdHeaderEvenPages)
        
        ' 在偶数页头中添加文本框
        Set tb = hdr.Shapes.AddTextbox(msoTextOrientationHorizontal, _
            Left:=0, Top:=0, Width:=100, Height:=50)
        
        ' 设置文本框属性
        tb.TextFrame.TextRange.Text = "偶数标题"
        tb.Fill.ForeColor.RGB = RGB(255, 255, 255)  ' 白色背景
        tb.Line.Visible = msoFalse  ' 隐藏边框
        
        ' 将文本框位置调整为居中
        With tb.TextFrame.TextRange
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Font.Size = 12
            .Font.Name = "Arial"
        End With
        
        ' 奇数页头
        Set hdr = sec.Headers(wdHeaderFirstPage)
        
        ' 在奇数页头中添加文本框
        Set tb = hdr.Shapes.AddTextbox(msoTextOrientationHorizontal, _
            Left:=0, Top:=0, Width:=100, Height:=50)
        
        ' 设置文本框属性
        tb.TextFrame.TextRange.Text = "奇数标题"
        tb.Fill.ForeColor.RGB = RGB(255, 255, 255)  ' 白色背景
        tb.Line.Visible = msoFalse  ' 隐藏边框
        
        ' 将文本框位置调整为居中
        With tb.TextFrame.TextRange
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Font.Size = 12
            .Font.Name = "Arial"
        End With
        
        ' 调整文本框位置
        Set rng = sec.Range
        tb.Left = rng.PageSetup.LeftMargin + rng.PageSetup.TextColumns(1).Width / 2 - tb.Width / 2
        tb.Top = rng.PageSetup.TopMargin + rng.PageSetup.HeaderDistance - tb.Height / 2
    Next sec
End Sub