我要向WORD中插入图片，并要把图片设置成“文字四周缠绕”,怎么解决，高分报答

Question

是vba还是office的word问题说清楚啊。

Answer 1

var
    Word:Variant;
begin
    Word:=CreateOLeObject('Word.application');
    Word.documents.add;
    Word.activedocument.Selection.InlineShapes.AddPicture (FileName:="D:\ddd.jpg" , LinkToFile:=False, SaveWithDocument:=True)
end;

Answer 2

var
    Word:Variant;
begin
    Word:=CreateOLeObject('Word.application');
    Word.documents.add;
    Word.activedocument.Selection.InlineShapes.AddPicture (FileName:="D:\ddd.jpg" , LinkToFile:=False, SaveWithDocument:=True)
end;

Answer 3

是vba还是office的word问题说清楚啊。

Answer 4

环绕用来设置var
    Word:Variant;
begin
    Word:=CreateOLeObject('Word.application');
    Word.documents.add;
    Word.Selection.InlineShapes.AddPicture (FileName:="D:\ddd.jpg" , LinkToFile:=False, SaveWithDocument:=True)
    word.Selection.InlineShapes(1).Fill.Transparency :=0#;
end;
你试试

Answer 5

word.Selection.InlineShapes(1).Fill.Transparency :=0#;
这句提示说InlineShapes(1)不是一种方法
怎么办，有没有详细点的解说呀？谢谢！