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"