Table.Uniform プロパティ (Word)
True テーブル内のすべての行に同じ数の列がある場合。 読み取り専用の Boolean です。
構文
式。 Uniform
式 'Table' オブジェクトを返す式。
例
次の使用例は、表を作成し、その中の 1 つのセルを分割します。また、表の中の各行の列数が同じでないことを示すメッセージ ボックスを表示します。
Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Selection.Range, 5, 5)
myTable.Cell(3, 3).Split 1, 2
If myTable.Uniform = False Then MsgBox "Table is not uniform"
次の使用例は、選択範囲を含む表で、各行の列数が同じかどうかを調べます。
If Selection.Information(wdWithInTable) = True Then
MsgBox Selection.Tables(1).Uniform
End If
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。