chzj589 发表于 2013-6-6 10:52:02

[己解决]如何将图片插入WORD的表格中

本帖最后由 chzj589 于 2014-5-16 15:34 编辑

如何将图片插入WORD的表格中,查看帮助如下:
; *******************************************************
; 示例 1 - 创建含新的空文档的 word 窗口,
;               然后添加一些图片到文档.
; *******************************************************
;
#include <Word.au3>

Local $sPath = @WindowsDir & "\"
Local $search = FileFindFirstFile($sPath & "*.bmp")

; 检查搜索是否成功
If $search = -1 Then
    MsgBox(4096, "错误", "No images found")
    Exit
EndIf

Local $oWordApp = _WordCreate()
Local $oDoc = _WordDocGetCollection($oWordApp, 0)

While 1
    Local $file = FileFindNextFile($search)
    If @error Then ExitLoop
    Local $oShape = _WordDocAddPicture($oDoc, $sPath & $file, 0, 1)
    If Not @error Then $oShape.Range.InsertAfter(@CRLF)
WEnd

; 关闭搜索句柄
FileClose($search)

上面只是添加到WORD,我是要插入到WORD的表格中
页: [1]
查看完整版本: [己解决]如何将图片插入WORD的表格中