VBA实现第二页起居中页眉：页码两侧加破折号问题

问题出在操作Range时未正确定位插入位置，导致符号和页码顺序混乱。以下是修正后的VB.NET代码，可实现从第二页开始的居中页眉效果：

' 设置第一节的页码从2开始
document.Application.ActiveDocument.Sections(1).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).PageNumbers.StartingNumber = 2
' 开启首页不同页眉，让第一页不显示页眉（按需保留）
document.Application.ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True

For Each section As Word.Section In document.Application.ActiveDocument.Sections
    Dim header As Word.HeaderFooter = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary)
    Dim headerRange As Word.Range = header.Range
    
    ' 清空原有页眉内容
    headerRange.Delete()
    
    ' 设置段落居中对齐
    headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
    
    ' 插入左侧破折号+空格
    headerRange.Text = "— "
    
    ' 将光标折叠到当前文本末尾，准备插入页码域
    headerRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
    
    ' 插入页码域
    header.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage)
    
    ' 再次将光标折叠到页码域末尾，插入右侧空格+破折号
    headerRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
    headerRange.Text = " —"
Next

关键修正点： #

• 每次插入内容后用Collapse(wdCollapseEnd)定位Range到当前内容末尾，避免覆盖已插入的内容（包括页码域）
• 先清空原有页眉内容，防止残留格式或文本干扰
• 开启DifferentFirstPageHeaderFooter确保第一页不显示页眉，从第二页开始生效

内容的提问来源于stack exchange，提问作者user21207583