Foxtable(狐表)用户栏目专家坐堂 → 关于word转wmf图片格式


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

主题:关于word转wmf图片格式

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


加好友 发短信
等级:二尾狐 帖子:575 积分:5509 威望:0 精华:0 注册:2020/5/7 13:05:00
关于word转wmf图片格式  发帖心情 Post By:2021/12/20 8:42:00 [只看该作者]

excel可以转wmf,那word怎样转呢     
   Dim App As New MSExcel.Application
                try
                    Dim Wb As MSExcel.WorkBook = app.WorkBooks.open(e.Table.Current("全称"))
                    Dim Ws = wb.WorkSheets(1)
                    Dim rg As MSExcel.Range = ws.UsedRange
                    rg.copy
                    'app.visible = True
                    ClipBoard.GetImage.save(ProjectPath & "temppict\test1.wmf")
                    app.quit
                catch ex As exception
                    msgbox(ex.message)
                    app.quit
                End try



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111423 积分:567191 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/20 9:00:00 [只看该作者]

需要使用第三方的组件,比如:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161289&authorid=0&page=0&star=1

 回到顶部
帅哥哟,离线,有人找我吗?
fvcfox
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:575 积分:5509 威望:0 精华:0 注册:2020/5/7 13:05:00
  发帖心情 Post By:2021/12/20 17:01:00 [只看该作者]

如果只是生成第一页为图片,能否简单点?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111423 积分:567191 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/20 17:24:00 [只看该作者]

没有。生成多少页的用法都一样

 回到顶部