Foxtable(狐表)用户栏目专家坐堂 → 在word文档的末尾插入一个空白行及表格


  共有266人关注过本帖树形打印复制链接

主题:在word文档的末尾插入一个空白行及表格

帅哥哟,离线,有人找我吗?
tld
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
在word文档的末尾插入一个空白行及表格  发帖心情 Post By:2024/6/9 18:51:00 [只看该作者]

老师好 , 希望在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

 回到顶部