如何用代码把word内插的图片导出到当前文件夹内？

zzpsx

如何用代码把word内插的图片导出到当前文件夹内？ 附件.rar (30.07 KB, 下载次数: 16)

2022-6-8 09:51 上传

点击文件名下载附件

zpy2

直接解压.docx

7z e  附件.docx "word/media/*.png" -o./media

zzpsx

zpy2 发表于 2022-6-8 10:15
直接解压.docx

7z e  附件.docx "word/media/*.png" -o./media

请问这是什么代码？python吗？可否来个vba代码?

zpy2

zzpsx 发表于 2022-6-8 10:34
请问这是什么代码？python吗？可否来个vba代码?

百度一下7z,一个命令行解压工具

zzpsx

来顶一下贴子，谢谢各位高手。

perfect131

参考：https://officetricks.com/unzip-file-vba-excel-macro/

aman1516

手动操作：


WORD中用VBA操作：

Sub PicOut()    'Word图片导出
    Set ImageStream = CreateObject("ADODB.Stream")
    With ImageStream
        .Type = 1
        .Open
        For i = 1 To ActiveDocument.InlineShapes.Count
            .Write ActiveDocument.InlineShapes(i).Range.EnhMetaFileBits
            .SaveToFile ActiveDocument.Path & "\WordPic" & i & " .jpg"
        Next
        .Close
    End With
    Set ImageStream = Nothing
End Sub

此方法图片带空白
另一VBA方法，是将图片复制到EXCEL后导出

zzpsx

再来顶顶，谢谢各位。