在VFP中怎么可以把所有的图片保存成WORD文挡
谢谢各位大狭

cPicturePath="D:\My Documents\My Pictures\"
    Select 0
    Crea Cursor Pictures (FileName C(30))
        Abc=Adir(Lkj,cPicturePath+"*.jpg")
    If Abc>0
        Appe from Array Lkj

        WordApp=CREATEOBJECT("Word.application")
        WordApp.Documents.Add
        WordTable=WordApp.Documents(1).Tables.Add(WordApp.Documents(1).Range(0,0),1,1)
            Go top
        Do whil !eof()

            WordApp.Documents(1).InlineShapes.AddPicture((cPicturePath+Alltrim(Filename)),.f.,.t.,WordTable.Cell(1,1).Range)

            WordApp.Documents(1).InlineShapes(1).Height =160 &&图片的高底
            WordApp.Documents(1).InlineShapes(1).Width=200 &&图片的宽度
            Skip
        Enddo

        WordApp.Visible=.t.
    Endif
    Use

谢谢了

我有点看不明白

是不是 还要建一个表啊  

不建表：
cPicturePath="D:\My Documents\My Pictures\"
    Abc=Adir(Lkj,cPicturePath+"*.jpg")
If Abc>0
    WordApp=CREATEOBJECT("Word.application")
    WordApp.Documents.Add
    WordTable=WordApp.Documents(1).Tables.Add(WordApp.Documents(1).Range(0,0),1,1)
    FOR I=1 TO Abc
        WordApp.Documents(1).InlineShapes.AddPicture((cPicturePath+Alltrim(Lkj(I,1))),.f.,.t.,WordTable.Cell(1,1).Range)
        WordApp.Documents(1).InlineShapes(1).Height =160 &&图片的高底
        WordApp.Documents(1).InlineShapes(1).Width=200 &&图片的宽度
    Endfor
    WordApp.Visible=.t.
Endif

谢谢了

那图片存那了  

执行上述程序后结果应为打开一个包含若干图片的WORD文挡，将此文档保存/另存即可（路径、文件名自行确定）

哦