以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于word转wmf图片格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173852)

--  作者：fvcfox --  发布时间：2021/12/20 8:42:00 --  关于word转wmf图片格式 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

--  作者：有点蓝 --  发布时间：2021/12/20 9:00:00 --   需要使用第三方的组件，比如：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161289&authorid=0&page=0&star=1

--  作者：fvcfox --  发布时间：2021/12/20 17:01:00 --   如果只是生成第一页为图片，能否简单点？

--  作者：有点蓝 --  发布时间：2021/12/20 17:24:00 --   没有。生成多少页的用法都一样