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

在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

这段代码会遍历文档的每个节（section），然后将一个文本框分别附加到偶数页头（wdHeaderEvenPages）和奇数页头（wdHeaderFirstPage）上。你可以通过修改代码中的文本框属性和位置来适应你的需求。

此代码中使用的VBA函数、对象和常量如下：

ActiveDocument: 当前活动的文档对象。
Section: 文档的节对象，可通过ActiveDocument.Sections集合进行访问。
HeaderFooter: 节的页头页脚对象，可通过Section.Headers和Section.Footers集合进行访问。
Shape: Word文档中的形状对象，可用于插入和操纵文本框、图片等。
Shapes.AddTextbox(): 在指定位置插入一个文本框形状，并返回该形状对象。
msoTextOrientationHorizontal: 文本框的横向方向。
Left, Top, Width, Height: 文本框的位置和尺寸。
TextFrame.TextRange: 文本框中的文本对象，可用于设置文本内容和格式。
Fill.ForeColor.RGB: 文本框的填充颜色。
Line.Visible: 文本框的边框可见性。
ParagraphFormat.Alignment: 段落对齐方式。
Font.Size, Font.Name: 字体大小和名称。
wdAlignParagraphCenter: 段落居中对齐。
Range: 文档中的范围对象，可以表示一个选定的文本范围。
PageSetup.LeftMargin, PageSetup.TopMargin, PageSetup.HeaderDistance, PageSetup.TextColumns: 页面设置属性，用于获取页面边距、页眉距离和列设置。