英語で読む

次の方法で共有


Cells オブジェクト (Word)

テーブル列、テーブル行、選択範囲、または範囲の Cell オブジェクトのコレクション。

注釈

Cells プロパティを使用して Cells コレクションを取得します。 次の使用例は、作業中の文書の最初の表で、先頭行のセルの幅を 30 ポイントに設定します。

ActiveDocument.Tables(1).Rows(1).Cells.Width = 30

次の使用例は、現在の行のセルの数を取得します。

num = Selection.Rows(1).Cells.Count

Cells コレクションにCell オブジェクトを追加するには、 Add メソッドを使用します。 また、 Selection オブジェクトの InsertCells メソッドを使用して、新しいセルを挿入します。 次の使用例は、myTable の左上隅のセルの左側にセルを追加します。

Set myTable = ActiveDocument.Tables(1) 
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)

Cell (行、列) を使用し、row は行番号、列は列番号、Cells (index) はインデックス番号を使用して Cell オブジェクトを返します。 次の使用例は、最初の表の先頭行の 2 番目のセルに網かけを設定します。

Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2) 
myCell.Shading.Texture = wdTexture20Percent

次の使用例は、先頭行の 1 番目のセルに網かけを設定します。

ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _ 
 .Texture = wdTexture20Percent

注釈

セルの行または列を追加するには、Rows または Columns コレクションで Add メソッドを使用します。 次の使用例は、作業中の文書の最初の表に列を追加し、先頭列に数値を挿入します。

Set myTable = ActiveDocument.Tables(1) 
Set aColumn = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1)) 
For Each aCell In aColumn.Cells 
 aCell.Range.Delete 
 aCell.Range.InsertAfter num + 1 
 num = num + 1 
Next aCell

メソッド

プロパティ

関連項目

Word オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。