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


  共有2590人关注过本帖平板打印复制链接

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

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


加好友 发短信
等级:二尾狐 帖子:538 积分:5066 威望: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



 回到顶部