老师好 , 希望在word文档的末尾插入一个空白行,之后插入一个两行三列的表格, 代码无法运行, 我该怎么改? 谢谢老师!
Dim wd As String = "e:\测试.docx"
Dim app As New MSWord.Application
Dim doc = app.Documents.Open(wd)
下面的代码,是vba中的代码, 在doc文档的末尾插入一个空白行
Dim rng As Range
Dim tbl As Table
Set doc = ActiveDocument
Set rng = doc.Content
rng.Collapse wdCollapseEnd
rng.InsertParagraphAfter
' 移动到刚刚插入的空白行的末尾
rng.Collapse wdCollapseEnd
rng.MoveStart wdParagraph, 1 ' 移到上一个段落的末尾（也就是新插入的空白行的末尾）
' 插入一个两行三列的表格
Set tbl = doc.Tables.Add(rng, 2, 3) ' rng指定了表格的插入位置，2是行数，3是列数
doc.Save
doc.Close
加好友 
发短信
Post By：2024/6/9 18:51:00 [只看该作者]
