| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 在word文档的末尾插入一个空白行及表格 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192277) |
| -- 作者：tld -- 发布时间：2024/6/9 18:51:00 -- 在word文档的末尾插入一个空白行及表格 老师好 , 希望在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 |