以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  word表格中段落格式设置  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=180127)
--  作者：xluoping
--  发布时间：2022/9/29 15:46:00
--  word表格中段落格式设置
根据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
--  作者：有点蓝
--  发布时间：2022/9/29 16:05:00
--  
https://www.baidu.com/baidu?ie=UTF-8&word=c%23%20word%20vba%20%E8%A1%A8%E6%A0%BC%E5%AF%B9%E9%BD%90

https://learn.microsoft.com/zh-cn/office/vba/api/word.wdcellverticalalignment

https://learn.microsoft.com/zh-cn/dotnet/api/microsoft.office.interop.word.wdrowalignment?view=word-pia