Wordのスタイルを設定するには?


クリエイ  2009-09-19 16:04:57  No: 142550

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でも動かしたいです。
宜しくお願い致します。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加