Tables.Add メソッド (Word)

ドキュメントに追加された新しい空のテーブルを表す Table オブジェクトを返します。

構文

式。追加 (Range、 NumRows、 NumColumns、 DefaultTableBehavior、 AutoFitBehavior)

expression 必須です。 'Tables' コレクションを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Range	必須	Range object	表を追加する範囲を指定します。 指定範囲が解除されていない場合は、指定範囲が表に置き換わります。
NumRows	必須	長整数型 (Long)	表に含める行数を指定します。
NumColumns	必須	長整数型 (Long)	表に含める列数を指定します。
DefaultTableBehavior	省略可能	バリアント型	セルの内容に合わせてテーブル内のセルのサイズを自動的に変更するかどうかを指定する値を設定します (AutoFit)。 使用できる定数は、自動調整を無効にする定数 wdWord8TableBehavior または自動調整を有効にする定数 wdWord9TableBehavior です。 既定値は定数 wdWord8TableBehavior です。
AutoFitBehavior	省略可能	バリアント型 (Variant)	テーブルのサイズを変更するための自動調整の規則を設定します。 WdAutoFitBehavior 定数のいずれかをすることができます。

戻り値

Table

例

次の使用例は、作業中の文書の先頭に、3 行 4 列の新しい表を追加します。

Set myRange = ActiveDocument.Range(0, 0) 
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

次の使用例は、現在の文書の末尾に、6 行 10 列の新しい表を追加します。

Set MyRange = ActiveDocument.Content 
MyRange.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _ 
 NumColumns:=10

次の使用例は、新しい文書に 3 行 5 列の表を追加し、表の各セルにデータを挿入します。

Sub NewTable() 
 Dim docNew As Document 
 Dim tblNew As Table 
 Dim intX As Integer 
 Dim intY As Integer 
 
 Set docNew = Documents.Add 
 Set tblNew = docNew.Tables.Add(Selection.Range, 3, 5) 
 With tblNew 
 For intX = 1 To 3 
 For intY = 1 To 5 
 .Cell(intX, intY).Range.InsertAfter "Cell: R" & intX & ", C" & intY 
 Next intY 
 Next intX 
 .Columns.AutoFit 
 End With 
End Sub

関連項目

テーブル コレクション オブジェクト

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

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