如何用VBA在Word中实现单行开启底纹、下一行关闭底纹

问题背景 #

尝试编写VBA代码将Excel中的数据导出到Word文档，数据导入功能已正常实现，但布局格式设置遇到问题。
需求为设置带底纹的标题：黑色背景搭配白色文字，标题的下一行无底色、文字为黑色。在Word中录制宏后按照生成的代码运行效果不符合预期：代码会将整个文档都开启底纹，后续又将整个文档的底纹全部关闭，无法仅对文档第一行生效。

原始问题代码 #

'Setting up Word
Dim WordApp As Word.Application
Set WordApp = New Word.Application

WordApp.Visible = True
WordApp.Activate
WordApp.Documents.Add


With WordApp.Selection
    .Font.Size = 30
    .Font.ColorIndex = wdWhite
    .TypeText "Heading"
    .ParagraphFormat.Shading.BackgroundPatternColor = RGB(0, 0, 0)
    .TypeParagraph
    .Font.Size = 12
    .Font.ColorIndex = wdBlack
    .Shading.Texture = wdTextureNone
    .Shading.ForegroundPatternColor = wdColorAutomatic
    .Shading.BackgroundPatternColor = wdColorAutomatic
    .TypeText "Meeting Date"
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With

'Kill the object
'WordApp.Quit
'Set WordApp = Nothing
End Sub

修正后可用代码 #

调整逻辑为单独指定对应段落的底纹属性，而非修改全局Selection的底纹设置，最终可实现需求：

With WordApp.Selection
    .Font.Size = 30
    .Font.ColorIndex = wdWhite
    .TypeText "Heading"
End With
WordApp.Selection.Paragraphs(1).Shading.BackgroundPatternColor = RGB(0, 0, 0)

With WordApp.Selection
    .TypeParagraph
    .Font.Size = 12
    .Font.ColorIndex = wdBlack
    .TypeText "Meeting Date"
End With
WordApp.Selection.Paragraphs(1).Shading.BackgroundPatternColor = RGB(255, 255, 255)

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