如何设定WORD中图片的环绕方式，最好有代码。

Question

如何设定WORD中图片的环绕方式，最好有代码。

Answer 1

Word里的图片有两种，一种是嵌在文字中的图片，被Word当作文字一样排列，包含在InlineShapes集合中。另一种是可随意移动的图片，可设定其环绕方式，如上下环绕、紧密环绕等，这种图片包含在Shapes集合中。下面的代码打开一个Word文档，将第一个嵌入图片转换成可随意移动的图片，再设定其环绕方式为上下型环绕。uses ComObj;const
  wdWrapNone= 3;    
  wdWrapSquare= 0;    //四周型
  wdWrapThrough= 2;   //穿越型
  wdWrapTight= 1;   //紧密型
  wdWrapTopBottom= 4;  //上下型var
  WordApp,WordDoc:OleVariant;begin
  WordApp:=CreateOleObject('Word.Application');
  WordDoc:=WordApp.Documents.Open('E:\Test.Doc');
  WordApp.Visible:=True;
  WordDoc.InlineShapes.Item(1).ConvertToShape;
  WordDoc.Shapes.Item(1).WrapFormat.Type:= wdWrapTopBottom ;
end;