|
|
| |
| 本章では、セルの書式設定に関するコードサンプルを例示しています。 |
| |
|
|
|
'選択位置に表を作成する
Sub CreatTable()
Dim tbl As Table
Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3,
NumColumns:=4)
tbl.Columns(1).Cells(1).Range.Text = "・・・・・・・・"
Set tbl = Nothing
End Sub
'表をコピーする
ActiveDocument..tables(1).Range.Copy
|
|
|
|
|
|
'文書内のテーブルの数をカンウントする
MsgBox ActiveDocument.Tables.Count
'文書内のすべてのテーブルを操作する
Sub TableAll()
Dim EachTable As Table
For Each EachTable In ActiveDocument.Tables
MsgBox Replace(EachTable.Columns(1).Cells(1).Range.Text, vbCr &
Chr(7), "") '各表の行１、列１の内容
Next
End Sub |
|
|
|
|
|
|
'一つ目の表の行数をカウントする
MsgBox ActiveDocument.Tables(1).Rows.Count
'一つ目の表の1行目の行高さを10mmにする
ActiveDocument.Tables(1).Rows(1).Height = MillimetersToPoints(10)
'一つ目の表の5行目から2行挿入する
ActiveDocument.Tables(1).Rows(5).Select
Selection.InsertRows 2
'一つ目の表の5行目を削除する
ActiveDocument.Tables(1).Rows(5).Delete
'一つ目の表の5行目の内容をクリアする
ActiveDocument.Tables(1).Rows(3).Select
Selection.Delete |
|
|
|
|
|
|
'一つ目の表の列数をカウントする
MsgBox ActiveDocument.Tables(1).Columns.Count
'一つ目の表の1列目の列幅を30mmにする
ActiveDocument.Tables(1).Columns(1).Width = MillimetersToPoints(30)
'一つ目の表の3列目から1列挿入する
ActiveDocument.Tables(1).Columns(3).Select
Selection.InsertColumns
'一つ目の表の3列目を削除する
ActiveDocument.Tables(1).Columns(3).Delete
'一つ目の表の3列目の内容をクリアする
ActiveDocument.Tables(1).Columns(3).Select
Selection.Delete
'3 列目のフィールドに"奈良支社"にあればその行の背景を青色に設定する
Sub ChangeColor()
Dim CellPlace As Cel
For Each CellPlace In ActiveDocument.Tables(1).Columns(3).Cells
If CellPlace.Range.Text Like "奈良支社*" Then
CellPlace.Row.Shading.BackgroundPatternColorIndex = wdBlue
End If
Next
End Sub |
|
|
|
|
|
|
'文書内にある 1 つめの表の左上にあるセルに "Word" という文字を入力する
ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Word"
ActiveDocument.Tables(1).Range.Cells(1).Range.Text = "Word"
'Range オブジェクトを使用した場合
ActiveDocument.Tables(1).Columns(1).Cells(1).Range.Text = "Word"
'Columns コレクションを使用した場合 '
ActiveDocument.Tables(1).Rows(1).Cells(1).Range.Text = "Word" 'Rows コレクションを使用した場合
'表のすべてのセルを処理する（書式設定）
Sub AllCell()
r = Selection.Tables(1).Rows.Count
c = Selection.Tables(1).Columns.Count
For i = 1 To r
For j = 1 To c
Selection.Tables(1).Cell(i, j).Select
txt = Selection.Text
txt = Mid(txt, 1, Len(t) - 1)
s = Format(txt, "##,###")
Selection.TypeText Text:=s
Next j
Next i
End Sub |
|
|
|
