word转图片并一键导出图片

dych1688

1. 文字和图片利用选择性粘贴的方法复制粘贴到新文档中，并在新文档中转为inlineshape对象2. 导出图片到文件夹
说明. 导出图片格式emf格式的，照片格式自己转换把，这个没有做。

  

变体型5.赋值 (i, )
r1 ＝ word_doc1.Fun_GoTo (变体型3, 变体型4, 变体型5)
变体型6.赋值 (i ＋ 1, )
' word_doc1.Fun_Activate ()
r2 ＝ word_doc1.Fun_GoTo (变体型3, 变体型4, 变体型6)
posend ＝ r2.Get_End ()
' 输出调试文本 (i, r1.Get_Start (), r1.Get_End (), r2.Get_Start (), posend, r1.Get_Text ())
' 到循环尾 ()
如果真 (r2.Get_End () ＝ r1.Get_Start ())
posend ＝ word_doc1.Get_Content ().Get_End ()

变体型7.赋值 (r1.Get_Start (), )
变体型8.赋值 (posend, )
' 变体型8.赋值 (r2.Get_End (), )
word_doc1.Fun_Range (变体型7, 变体型8).Fun_Copy ()
' word_doc2.Get_Content ().Fun_InsertParagraph ()
sel.Fun_EndKey ()
sel.Fun_PasteSpecial (, , , , 变体型9)
word_doc2.Get_Content ().Get_ShapeRange ().Fun_ConvertToInlineShape ()

.版本 2<br /> <br />     变体型5.赋值 (i, )<br />     r1 ＝ word_doc1.Fun_GoTo (变体型3, 变体型4, 变体型5)<br />     变体型6.赋值 (i ＋ 1, )<br />     ' word_doc1.Fun_Activate ()<br />     r2 ＝ word_doc1.Fun_GoTo (变体型3, 变体型4, 变体型6)<br />     posend ＝ r2.Get_End ()<br />     ' 输出调试文本 (i, r1.Get_Start (), r1.Get_End (), r2.Get_Start (), posend, r1.Get_Text ())<br /> <br />     ' 到循环尾 ()<br />     .如果真 (r2.Get_End () ＝ r1.Get_Start ())<br />         posend ＝ word_doc1.Get_Content ().Get_End ()<br />     .如果真结束<br /> <br />     变体型7.赋值 (r1.Get_Start (), )<br />     变体型8.赋值 (posend, )<br />     ' 变体型8.赋值 (r2.Get_End (), )<br />     word_doc1.Fun_Range (变体型7, 变体型8).Fun_Copy ()<br />     ' word_doc2.Get_Content ().Fun_InsertParagraph ()<br />     sel.Fun_EndKey ()<br />     sel.Fun_PasteSpecial (, , , , 变体型9)<br />     word_doc2.Get_Content ().Get_ShapeRange ().Fun_ConvertToInlineShape ()

word转图片.e (2.28 MB, 下载次数: 53)

2024-1-7 13:19 上传

点击文件名下载附件
模块都是论坛下载的，都有源码。

wsysyb

没有Stream.ec，根本用不了

wsysyb

谢谢分享

zhipengw

感谢分享，很给力！~

zhipengw

月下美孤 发表于 2024-1-7 20:45
你这太麻烦了，还要调用一遍steam.   不如直接调用word.get_Selection().cut()  ，然后再取剪辑板图片，效 ...

有没有例子？发一下学习学习

原始世界

谢谢分享

SHIWOOOO

好好好好

木水云梦

变体形用不好

xf702

试试看，谢了。。

月下美孤

dych1688 发表于 2024-1-8 21:52
刚才测试了一下，全选，剪切不行，只能单页选择性剪切。

要睡觉了，没认真测试。

可以的，我测试成功了，过些日子开源了你来看