Word VBA:如何将段落拆分为两种样式

Question

我制作了一个程序来遍历文档，如果其中有一段带有制表符，它会将其一分为二：

sSPlit = Split(aPara.Range.Text, vbTab)
aPara.Range.Text = sSPlit(0) & vbCrLf & sSPlit(1)

这很管用。问题是，我希望第一个拆分的段落有"样式1"，第二个有"样式2"。

aPara.Style = "Style1"

将此样式添加到下一个未拆分的段落中。请帮忙。

Answer 1

一种可能的解决方案是计算要应用样式的范围，然后简单地检索计算的字符范围，例如：

Dim par1Start As Integer
Dim par2Start As Integer
par1Start = aPara.Range.Start
par2Start = par1Start + Len(sSplit(0)) + 1
aPara.Range.Text = sSplit(0) & vbCrLf & sSplit(1)
ActiveDocument.Range(par1Start, par2Start).Style = "Style1"
ActiveDocument.Range(par2Start, par2Start + Len(sSplit(1))).Style = "Style2"