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"