word转图片并一键导出图片
1. 文字和图片利用选择性粘贴的方法复制粘贴到新文档中，并在新文档中转为inlineshape对象2. 导出图片到文件夹
说明. 导出图片格式emf格式的，照片格式自己转换把，这个没有做。
.版本 2
变体型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 ()
页:
[1]