在 Word 标题中使用两种字体格式时出现问题

从 Excel 中的子例程中，我尝试在 Word 文档中创建一个标题，其中包含两个单词，每个单词具有不同的字体格式，但最后一个字体格式获胜。任何帮助，将不胜感激！下面是我当前的代码片段。

With myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
    .Font.Name = "Courier New"
    .Font.Size = 10
    .Font.Bold = True
    .Font.Color = wdColorGreen
    .text = "TEXT LINE 1" & vbLf

    .Font.Name = "Calibri Light"
    .Font.Size = 16
    .Font.Bold = False
    .Font.Color = wdColorBlack
    .text = .text & "TEXT LINE 2"
    ....the rest of the code....

UPDATE:我通过明确设置范围解决了这个问题。请参阅下面的代码片段。

With myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
    .Start = 0
    .text = "TEXT LINE 1" & vbLf
    .End = Len(.text)
    .Font.Name = "Courier New"
    .Font.Size = 10
    .Font.Bold = True
    .Font.Color = wdColorGreen
    .ParagraphFormat.Alignment = wdAlignParagraphCenter

    .Start = Len(.text) + 1
    .text = "TEXT LINE 2"
    .End = Len(.text) + .Start
    .Font.Name = "Calibri Light"
    .Font.Size = 16
    .Font.Bold = False
    .Font.Color = wdColorBlack

这可以比“更新”中发布的代码更有效/更优雅地完成。依靠Start and End values使用 Word 总是有点冒险，因为 Word 可以将“隐藏”内容粘贴到文本流中。到达一个的开头或结尾Range使用起来更可靠Collapse。这也比使用值进行计算更快。

Dim rng as Word.Range
Set rng = myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
With 
    '.Start = 0 'Not necessary as this will be the default position
    .text = "TEXT LINE 1" & vbLf
    '.End = Len(.text) 'Also not necessary, see further down...
    .Font.Name = "Courier New"
    .Font.Size = 10
    .Font.Bold = True
    .Font.Color = wdColorGreen
    .ParagraphFormat.Alignment = wdAlignParagraphCenter

    .Collapse wdCollapseEnd 'put focus at end of range

    '.Start = Len(.text) + 1 'calculation not necessary as range has been collapsed
    .text = "TEXT LINE 2"
    '.End = Len(.text) + .Start 'not necessary
    .Font.Name = "Calibri Light"
    .Font.Size = 16
    .Font.Bold = False
    .Font.Color = wdColorBlack
End With