WordCreator表格内容换行如何写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

With wtb.Rows(0).Cells(0)

wtb.Rows(0).Height = 50

.SetMerged(1, 18)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("个人档案登记表", fnt1))

End With

With wtb.Rows(1).Cells(0)

.SetMerged(1, 13)

.Alignment = ContentAlignment.MiddleLeft

.Content.Add(New Word.Objects.RtfString("部门：后勤部", fnt2))

End With

With wtb.Rows(1).Cells(13)

.SetMerged(1, 5)

.Alignment = ContentAlignment.MiddleRight

.Content.Add(New Word.Objects.RtfString("2025-01-01", fnt2))

End With

wtb.Rows(1).Height = 35

'姓名*******************************************************************************

With wtb.Rows(2).Cells(0)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("姓名", fnt2))

End With

With wtb.Rows(2).Cells(3)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("张三", fnt2))

End With

'性别*******************************************************************************

With wtb.Rows(2).Cells(6)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("性别", fnt2))

End With

With wtb.Rows(2).Cells(9)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("男", fnt2))

End With

'出生年月*******************************************************************************

With wtb.Rows(2).Cells(12)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("出生年月", fnt2))

End With

With wtb.Rows(2).Cells(15)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("2000-01-08", fnt2))

End With

'民族*******************************************************************************

With wtb.Rows(3).Cells(0)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("民族", fnt2))

End With

With wtb.Rows(3).Cells(3)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("汉族", fnt2))

End With

'政治面貌*******************************************************************************

With wtb.Rows(3).Cells(6)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("政治面貌", fnt2))

End With

With wtb.Rows(3).Cells(9)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("群众", fnt2))

End With

'文化程度*******************************************************************************

With wtb.Rows(3).Cells(12)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("文化程度", fnt2))

End With

With wtb.Rows(3).Cells(15)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("本科", fnt2))

End With

'现任职务*******************************************************************************

With wtb.Rows(4).Cells(0)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("现任职务", fnt2))

End With

With wtb.Rows(4).Cells(3)

.SetMerged(1, 9)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("科员", fnt2))

End With

'任现职时间*******************************************************************************

With wtb.Rows(4).Cells(12)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("任现职时间", fnt2))

End With

With wtb.Rows(4).Cells(15)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("2024-05-08", fnt2))

End With

'个人履历*******************************************************************************

Dim ll As String = "上学" & vbCrLf & "上班"

With wtb.Rows(5).Cells(0)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("个人履历", fnt2))

End With

With wtb.Rows(5).Cells(1)

.SetMerged(1, 17)

.Alignment = ContentAlignment.TopLeft

.Content.Add(New Word.Objects.RtfString(ll, fnt2))

End With

'测评 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

With wtb.Rows(7).Cells(0)

.SetMerged(2, 2)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("测评", fnt2))

End With

With wtb.Rows(7).Cells(2)

.SetMerged(1, 3)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("测评人", fnt2))

End With

With wtb.Rows(7).Cells(5)

' .SetMerged(1, 7)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("李老师", fnt2))

End With

With wtb.Rows(7).Cells(12)

.SetMerged(1, 4)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("测评人数", fnt2))

End With

With wtb.Rows(7).Cells(16)

.SetMerged(1, 2)

.Alignment = ContentAlignment.MiddleCenter

.Content.Add(New Word.Objects.RtfString("5", fnt2))

End With

主题：WordCreator表格内容换行如何写