web-dev-qa-db-ja.com

vbaを使用してWordテーブルの特定のセルの色とフォントを変更する

ドキュメントの最後に新しいテーブルを設定し、仕様に合わせてフォーマットしようとしています。しかし、backgroundcolorとtextcolorは機能していないようです。フォントサイズは、1つのセルだけではなくテーブル全体に適用されるため、私が望んでいるものとは異なります。

これは私がこれまでに持っているものです：

Dim myRange As Object
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=2
With .Tables(.Tables.Count)
    .Cell(1, 1).Select
    With Selection
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorWhite
        .Shading.BackgroundPatternColor = wdColorGray25
        .Font.Size = 14
        .Font.Bold = True
        .Text = "Hello World"
    End With
End With

表の最初の行に境界線がなく、フォント14、灰色の背景に太字の白いテキストが必要です。

vbams-wordword-vba
12
Kazschuri

私は答えを見つけました。

解決策は次のとおりです。

With .Tables(.Tables.Count)        
    With .Cell(1, 1)
        .Shading.BackgroundPatternColor = wdColorGray50
        With .Range
            With .Font 
                .TextColor = wdColorWhite
                .Size = 18
                .Bold = True
            End With
            .Text = "Hello World"
        End With
    End With            
End With

セルの選択を削除して直接使用しました。しかし、本当のことは、.Rangeを適用する場合.Fontおよび.Text

11
Kazschuri