VB2008で、Wordの指定した文字の行にスタイル（段落）を設定したいと考えています。
以下のようにして、"あいうえお"という文字のある行のスタイルを"見出し 2"にしたいと思っていますが、以下の部分で
System.Runtime.InteropServices.COMException (0x800A173A): 'Style' は参照プロパティではありません。
という例外が発生します。
Dim oWord As Object
Dim oWordDoc As Object
Try
oWord = GetObject(, "Word.Application")
Catch ex As Exception
oWord = CreateObject("Word.Application")
End Try
oWord.Documents.Open(（存在するファイル名）)
oWordDoc = oWord.ActiveDocument
oRange = oWordDoc.Content
oRange.Find.Execute(FindText:="あいうえお", Forward:=True)
If oRange.Find.Found Then
oSel = oWord.Selection
oSel.Style = oWordDoc.Styles("見出し 2") '←ここで例外発生
End If
どのようにすればよいでしょうか？
なお、現在試しているのはWord2007ですが、Word2003でも動かしたいです。
宜しくお願い致します。