Word VBA：如何将段落分为两种样式？

Question

我创建了一个遍历文档的程序，如果有一个带有制表符的段落，它将它分成两部分：

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

这很有效。问题是，我希望第一个拆分的段落有“Style1”，第二个“Style2”。

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"