Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在word增加的行中输入对应的内容


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

主题：如何在word增加的行中输入对应的内容
帅哥哟，离线，有人找我吗？
lxhmax
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：5704 威望：0 精华：0 注册：2012/8/2 19:04:00 		如何在word增加的行中输入对应的内容  发帖心情 Post By：2023/9/6 14:46:00 [显示全部帖子]

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("D:\Users\Administrator\Desktop\123.docx")
    Dim dt As DataTable = DataTables("表A")
    
    
    For Each r As DataRow In dt.DataRows
        Dim newRow As Row = doc.Content.Tables(2).Rows.Add()
        newRow.Cells(1).Range.Text = r("第一列")
        newRow.Cells(2).Range.Text = r("第二列")
        newRow.Cells(3).Range.Text = r("第三列")
    Next Row
    
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try

老师,请问在word中增加的行中如何输入对应的内容,以上代码报错,麻烦看下要怎么写,谢谢啦
 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：5704 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2023/9/6 15:14:00 [显示全部帖子]

那个看过了,没看明白,可以指导下修改我上面的代码实现吗?

 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：5704 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2023/9/6 15:27:00 [显示全部帖子]

老师,在word中有2个表格,这个内容可以指定增加到第二个表格中吗?第一行是标题,从第二行开始输入内容

 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：5704 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2023/9/7 14:26:00 [显示全部帖子]

老师,第一行是标题,跳过第一行,从第二行开始输入内容要怎么写?

 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：5704 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2023/9/7 14:55:00 [显示全部帖子]

谢谢老师,可以了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 5 次数据查询