英語で読む

次の方法で共有


セル オブジェクト (Word)

表のセルを表します。 Cell オブジェクトは Cells コレクションのメンバーです。 Cells コレクションは指定されたオブジェクトのすべてのセルを表します。

注釈

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

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

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

次の例では、最初のテーブルの最初の 2 つのセルを参照する範囲 ( myRange ) を設定します。 範囲を設定し、 Merge メソッドを使ってセルを結合します。

Set myTable = ActiveDocument.Tables(1) 
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _ 
 .Range.Start, myTable.Cell(1, 2).Range.End) 
myRange.Cells.Merge

解説

Rows コレクションまたは Columns コレクションに対して Add メソッドを使用して、セルの行または列を追加します。

現在の行番号と列番号を取得するには、Selection オブジェクトで Information プロパティを使用します。 次の使用例は、選択範囲の最初のセルの幅を変更し、セルの行番号および列番号を表示します。

If Selection.Information(wdWithInTable) = True Then 
 With Selection 
 .Cells(1).Width = 22 
 MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _ 
 & "," & .Information(wdStartOfRangeColumnNumber) 
 End With 
End If

関連項目

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

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

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