如何设定WORD中图片的环绕方式,最好有代码。 如何设定WORD中图片的环绕方式,最好有代码。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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; fastreport 问题?常用的进 如何在程序运行期设计窗体中的控件, 就像在Delphi中设计窗体中的控件一样? 如何让MEMO控件垂直居中~ 关于DELPHI6.0自带的报表打印的问题 请问Delphi所提供的几种列表框之间有什么异同? 请TExcelApplication高手帮忙!关于宏操作 关于分隔符和dll文件 高分求助Dblookupcombobox 控件的一些菜鸟问题 如何运行源代码 我原来写得程序,当我在打开时为什么会自动关闭delphi 如何用最简单的方法禁止一个TAdoQuery的所有字段,使它们不能编辑. 请问一下delphi的几个版本各有什么区别???
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;