word转图片并一键导出图片

27***

word转图片.rar (358.22 KB, 下载次数: 0)

2024-1-7 13:37 上传

点击文件名下载附件

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 ()