关于WORD 插入图片

以下是引用吹水佬在2023-4-29 17:10:57的发言：


是不是这效果

word = CREATEOBJECT('Word.Application')
word.visible=.t.
doc = word.Documents.add
FOR i = 1 TO 9
    doc.Paragraphs.Add
    doc.Paragraphs.Add.Range.Text = REPLICATE(TRANSFORM(i),40)
ENDFOR
pic = 'D:\temp\test\透明.png'
word.Selection.Move(1,90)
word.Selection.InlineShapes.AddPicture(pic).ConvertToShape.ZOrder(4)    && 4浮于文字，5沉于文字