内容对齐
Cell(单元格)有以下属性，用于设置单元格内容的位置：
| 属性 | 说明 |
| Alignment |
单元格内容对齐方式，可选值有： TopLeft TopCenter TopRight MiddleLeft MiddleCenter MiddleRight BottomLeft BottomCenter BottomRight |
| TopPadding | 上边距 |
| BottomPadding | 下边距 |
| LeftPadding | 左边距 |
| RightPadding | 右边距 |
示例
Dim
wdc
As
New
WordCreator()
Dim
tb
As
New
Word.Objects.RtfTable(4, 5)
wdc.Add(tb)
For
r
As
Integer
= 0
To
tb.Rows.Count - 1
For
c
As
Integer
= 0
To
tb.ColumnCount - 1
Dim
str
As
String
= CExp("{0}行{1}列",
r, c)
Dim
cell
As
word.Objects.RtfCell = tb.Rows(r).Cells(c)
cell.Content.Add(New
Word.Objects.RtfString(str))
cell.Alignment = ContentAlignment.MiddleCenter
'水平和垂直方向都居中
cell.SetRectBorder(Word.RtfBorderStyle.Single, color.DimGray, 1)
Next
tb.Rows(r).Height = 40
'设置行高
Next
Dim
fl
As
String
=
"c:\temp\test.docx"
wdc.Save(fl)
Process.Start(fl)
生成的文档如下，单元格内容在水平和垂直方向都居中：