根据foxtable项目，在word 表新增加了行，不同的行根据内容不同要设置段落格式。
请问以下黄色部分 代码如何写？
请老师帮助，谢谢！
For scgydr As Integer = 0 To scgydrs.Count - 1
With .Cell(1 + scgydr * 6,1)
'设置靠上左对齐格式
.Range.Text = "4.2." & scgydr + 1 & scgydrs(scgydr)("工艺名称")
End With
With .Cell(2 + scgydr * 6,1)
'设置靠上 首行空2个字符格式
.Range.Text = "生产工艺流程见图" & scgydr + 2
End With
With .Cell(3 + scgydr * 6,1)
End With
With .Cell(4 + scgydr * 6,1)
'设置纵向横向居中格式
.Range.Text = "图" & scgydr + 2 & scgydrs(scgydr)("工艺名称") & "生产工艺流程图"
End With
With .Cell(5 + scgydr * 6,1)
.Range.Text = scgydrs(scgydr)("工艺过程描述")
End With
With .Cell(6 + scgydr * 6,1)
.Range.Text = scgydrs(scgydr)("备注")
End With
Next
加好友 
发短信
Post By：2022/9/29 15:46:00 [只看该作者]
