2016-11-19 16 views
0

キーボードを使用&マウステーブル内で連続しない複数のセルを選択し、フォントサイズ&の色とセルシェーディングなどのプロパティを変更できます。私はまた、複数の列を選択することができます(連続していない、連続していない)。私はVBAでそれを行う方法を見つけることができず、マクロを記録することは何も記録しません。VBAを使用してWordテーブルの非連続セルを選択

私の目的は、セル(1,1)からセル(x、y)までを1色に、セルをその別の色の後にシェードすることです。私はWordの範囲が私のために働くことはできません。

私は(ラベルを印刷するための)4列×20行テーブルを持っています。最初の2列と3列の半分が印刷されていれば、テーブル内のこれらのセルを1つの色合いにし、列3の下半分(行11-20)と列4のすべてを異なる色合いにすることによって。私は現在、テーブル内のすべてのセルをループし、行番号& colインデックスをIf THEN ELSEと組み合わせて使用​​しますが、より効率的な方法が必要です。

私は行を最初に使用し、次に列を使用する方が簡単だろうと知っていますが、手動で行うことができるVBAでは何もできないことが私には気になります。

実際の状況は、テキストと写真が異なる2つの異なるラベルタイプがシートに存在する可能性があるため、やや複雑です。すべてのヘルプは大幅に)あなたは3つのセクションを持っている場合、あなたがそれらを選択して個別に

2をそれらの色を変更する必要があり)、行を使用していない)

+0

http://stackoverflow.com/questions/33730750/vba-ms-word-work-with-mutiple-discontinuous-selection –

答えて

0

0に感謝し、絶対セルが

1の範囲であり、使用されます私は文書

ActiveDocument.Range(Start:=ActiveDocument.Tables(1) _ 
    .Cell(3, 11).Range.Start, End:=ActiveDocument.Tables(1) _ 
    .Cell(ActiveDocument.Tables(1).Rows.Count, 17).Range.End).Select 

3)で第1回表に3を超えてすべての行の11-17を細胞のみを選択するために使用私のマクロのいずれかからの抜粋を以下に示し固体光に色を設定します、次の青 4)私はまたwdCoをお勧めしますlorAutomaticテキストが

Selection.Shading.Texture = wdTextureNone 
    Selection.Shading.ForegroundPatternColor = wdColorAutomatic 
    Selection.Shading.BackgroundPatternColor = wdColorLightTurquoise 

5新しい背景の上に表示されますことを確認するためには)適切にあなたのテーブルを選択することを忘れないでください、あなたは最初のテーブルを選択した場合、あなたはあなたのことを確認する)

set aTable as selection.tables(1) 

6を使用することができます右側の表にあります

関連する問題