Wordオブジェクトでセルの色を変更する方法

解決

教えてください 2011-08-31 23:55:30 No: 103024

VB6.0
SP6
WindowsXP
Word9.0 ObjectLibrary

出力結果として、ワードファイルに、35行2列のセルを作り、
そのセルにデータを入力したものを印刷するソフトを作成しています。

決まったセルに色を付けたいのですが、方法がわかりません。
テーブルへの文字の記入は下記の方法を使っています。
よろしくお願い致します。

Public m_WordApp As Object
Public m_WordDoc As Object

----------------------------(抜粋)

Set m_WordApp = CreateObject("Word.Application")
Set m_WordDoc = m_WordApp.Documents.Add

    With m_WordDoc.Tables(TblNo)
      ' Insert the data into the specific cell.
      .Cell(Row, Col).Range.InsertAfter Text
    End With

魔界の仮面弁士 2011-09-01 00:20:19 No: 103025

たとえば
> .Cell(Row, Col).Range.InsertAfter Text
.Cell(Row, Col).Shading.BackgroundPatternColor = wdColorYellow
とか。

教えてください 2011-09-01 02:12:51 No: 103026

魔界の仮面弁士さん

おかげさまで、セルに色が付きました。
ありがとうございます。
また何かありましたらよろしくお願い致します。