Excel VBA將Word.Range保存在數組標題中

我目前正在創建一個需要將Word.Range實例保存到數組的宏。我希望這些範圍對象在文檔中的任何位置。對於常規內容的東西，這工作得很好，但是當我試圖在頭文件中保存範圍時，我無法使其工作。Excel VBA將Word.Range保存在數組標題中

子定義：

Function GetSelectionRanges(rRng As Object, sFind As String) As Variant

rRng是StoryRange

爲常規conntent的代碼範圍如下：

Set tmpSelections(i) = WdDoc.Range(Start:=rRng.Start, End:=rRng.End)

這一件作品絕對沒問題，我可以工作用它。我試圖擴大它，所以它可以存儲標題對象，以及：

Set tmpSelections(i) = WdDoc.StoryRanges(rRng.storytype).Range(Start:=rRng.Start, End:=rRng.End)

然而，這是行不通的。它說對象不支持這個屬性/方法。

我目前的問題是，開始和結束都是正確獲得的，但如果我使用WdDoc.Range方法，它會使用存儲在常規內容中的文本，因此無法按照我的需要工作。

定義：

WdDoc As Object 
tmpSelections() As Object

後來我想用單一的範圍內工作，並最終取代值，但就是不能在日常納入後面的步驟。

2014-06-11 Spurious

StoryRanges property返回Range對象的集合，因此您不需要調用.Range。

如果你想選擇StoryRange以內的範圍，使用SetRange：

Set tmpSelections(i) = wdDoc.StoryRanges(rRng.StoryType) 
tmpSelections(i).SetRange Start:=rRng.Start, End:=rRng.End

2014-06-11 15:09:13 Jane

問題是，我想只有在一定數目的字符不會保存到陣列的整個範圍。 – Spurious

上面的代碼與原始示例中的代碼相同，即它佔用了整個範圍。如果您只想取部分範圍，則可以使用sr.SetRange 0,100來調整範圍。 – Jane

'Set tmpSelections（i）= WdDoc.StoryRanges（rRng.storytype）.SetRange（Start：= rRng .Start，End：= rRng.End）'我得到一個對象是必需的錯誤，但我覺得'SetRange'方法使用不正確。 – Spurious

回答