VSTO Word开发：为段落应用样式时如何保留原有编号格式

问题说明 #

VSTO Word开发场景下，为段落应用新样式时，段落原有绑定的编号格式会被样式自带的格式配置清除，无法实现「更新段落样式、保留原有编号」的需求：

• 直接为段落赋值样式后，原有编号消失
• 预期效果为段落应用新样式的字体、段落间距等格式属性，原有编号规则、编号级别、接续逻辑完全保留

问题复现代码 #

直接为选中段落设置内置标题1样式的代码会触发编号丢失问题：

wdapp.Selection.Range.Paragraphs.Style = wdapp.ActiveDocument.Styles(Word.WdBuiltinStyle.wdStyleHeading1)

已验证无效的方案 #

提前缓存ListFormat.ListTemplate对象，样式修改完成后重新应用列表模板的方案无法生效，代码如下：

Dim bh = wdapp.Selection.Range.ListFormat.ListTemplate
wdapp.Selection.Range.Paragraphs.Style = wdapp.ActiveDocument.Styles(Word.WdBuiltinStyle.wdStyleHeading1)
wdapp.Selection.Range.ListFormat.ApplyListTemplate(ListTemplate:=bh)

失效原因：仅缓存列表模板对象没有同步保存列表级别、列表接续状态、段落与列表的绑定上下文，重新应用时会被目标样式自带的列表定义按优先级覆盖，无法还原原有编号配置。

有效实现代码 #

需要完整缓存选中段落的列表格式全量属性，应用样式后还原列表时明确指定应用范围，跳过样式对列表格式的强制覆盖，参考实现如下：

' 定义操作的目标范围
Dim targetRange As Word.Range = wdapp.Selection.Range
' 缓存列表全量上下文属性
Dim cachedListTmpl As Word.ListTemplate = targetRange.ListFormat.ListTemplate
Dim cachedListLevel As Integer = targetRange.ListFormat.ListLevelNumber
Dim cachedContinueState As Boolean = (targetRange.ListFormat.ListValue <> 1)

' 应用目标段落样式
targetRange.Paragraphs.Style = wdapp.ActiveDocument.Styles(Word.WdBuiltinStyle.wdStyleHeading1)

' 还原列表格式，指定仅作用于当前选中范围，不跟随样式更新覆盖
targetRange.ListFormat.ApplyListTemplate( _
    ListTemplate:=cachedListTmpl, _
    ContinuePreviousList:=cachedContinueState, _
    ApplyTo:=Word.WdListApplyTo.wdListApplyToSelection, _
    DefaultListBehavior:=Word.WdDefaultListBehavior.wdWord10ListBehavior)
' 还原原有列表级别
targetRange.ListFormat.ListLevelNumber = cachedListLevel

批量处理多段落时，建议逐段缓存列表属性后再应用样式、逐段还原，避免不同段落分属不同列表、不同层级时出现还原错乱。

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