论坛 › 已解决问题区 › 大家好，如何用AU3将word中的图片读入一个数组当中啊

wolftotem 发表于 2011-12-11 15:18:20

大家好，如何用AU3将word中的图片读入一个数组当中啊

大家好，如何用AU3将word中的图片读入一个数组当中啊
此word中都是图片，没有文字

wolftotem 发表于 2011-12-11 17:04:47

请高手指教啊

kevinch 发表于 2011-12-11 19:50:17

Dim $arr,$n=1

$word=ObjGet(@MyDocumentsDir&"\doc1.doc")
If IsObj($word) Then
        For $sh In $word.shapes
                ReDim $arr[$n]
                $arr[$n-1]=$sh
                $n+=1
        Next
        $word.close(False)
        MsgBox(0,"",UBound($arr))
EndIf自己建个测试文件，不知道这样装进去没，不会把数组中图片显示出来的方法，另外word中对图片的定义有点特别，并不是我们常认为的图片word就认为是图片

zxxpt 发表于 2021-3-23 11:11:17

谢谢楼主提供

查看完整版本: 大家好，如何用AU3将word中的图片读入一个数组当中啊