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

wolftotem

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

wolftotem

请高手指教啊

kevinch

Dim $arr[1],$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

谢谢楼主提供