如何用VBA在同一段落为不同文本应用不同Word样式？

问题描述 #

在Word 2019中使用VBA插入两个连续单词并分别应用不同样式时，出现以下异常：

• 执行代码后两个文本均被设置为“Heading 1”样式
• 第二个单词仅继承样式格式，未真正应用样式（手动选中该单词执行Selection.Style = Word.WdBuiltinStyle.wdStyleHeading1时，样式框仍显示“Normal”，但手动操作可正常修改样式）

用户尝试的代码：

With Selection
    .InsertAfter " Test1"
    .Style = Word.WdBuiltinStyle.wdStyleHeading1
    .Collapse Direction:=wdCollapseEnd
    .InsertAfter " Test2"
    .Style = Word.WdBuiltinStyle.wdStyleHeading2
End With

解决方案 #

问题核心是Selection操作范围不精准：Collapse后直接设置Style会影响之前的文本，且未明确选中新插入的内容。以下两种方案可解决该问题：

方案1：使用Range对象精准控制（推荐） #

通过Range对象独立处理每个插入的文本，避免Selection的范围模糊问题：

Dim rng As Range
Set rng = Selection.Range

' 处理第一个单词：插入并应用Heading 1
rng.InsertAfter " Test1"
Set rng = rng.Next(Unit:=wdWord, Count:=1)
rng.Style = Word.WdBuiltinStyle.wdStyleHeading1

' 移动到文本末尾，处理第二个单词：插入并应用Heading 2
Set rng = rng.Next(Unit:=wdCharacter, Count:=1)
rng.InsertAfter " Test2"
Set rng = rng.Next(Unit:=wdWord, Count:=1)
rng.Style = Word.WdBuiltinStyle.wdStyleHeading2

方案2：修正Selection操作逻辑 #

插入文本后主动选中目标单词，再应用样式：

With Selection
    .InsertAfter " Test1"
    ' 选中刚插入的Test1单词
    .MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    .Style = Word.WdBuiltinStyle.wdStyleHeading1
    .Collapse Direction:=wdCollapseEnd
    
    .InsertAfter " Test2"
    ' 选中刚插入的Test2单词
    .MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    .Style = Word.WdBuiltinStyle.wdStyleHeading2
    .Collapse Direction:=wdCollapseEnd
End With

说明 #

两种方案均能确保样式被正确应用到对应单词，样式框也会显示对应的样式名称，而非仅继承格式。

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