次の方法で共有


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

メソッド

名前
Add
AutoFit
Delete
DistributeHeight
DistributeWidth
アイテム
Merge
SetHeight
SetWidth
Split

プロパティ

名前
アプリケーション
Borders
Count
Creator
Height
HeightRule
NestingLevel
Parent
PreferredWidth
PreferredWidthType
Shading
VerticalAlignment
Width

関連項目

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

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

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