项目中遇到的问题，憋了几天了，请高手解决！分数不是问题！ ( 积分: 300 )

我想实现如下功能--向word中插入文字和图像，求源代码,伪码如下：
for i:=1 to 10 do
begin
打一空行；
指定输入文字属性；
以上面设定属性在文档尾部追加写两行文字；

打若干空行；//目的是为了调整排版，不让图片挡住文字和使图片在文字之后插入
在文档尾部追加一张图片；
设定图片为可移动模式；
调整图片边界大小; //为了在wrod文档中图片保持一致大小比如200X180;
微调图像在word中的位置; //可能需要调节
end;

为了达到输出格式：
"文字"
图片
"文字"
图片
"文字"
图片
"文字"
图片
：
：

注：图片可以是.jpg,.bmp,.ico,如果是前两种，图片大小在30k左右即可。

下面是我参考原先的贴子写的代码，毛病多多！
var
FPicture:OleVariant;
vstart:OleVariant;
vRange: OleVariant;
i:integer;
for i:=1 to 10 do
begin
WordApplication1.Selection.TypeParagraph; //打一空行
WordApplication1.Selection.ParagraphFormat.Alignment:= wdAlignParagraphJustify; //设定字体,执行时有时有错误，说
WordApplication1.Selection.Font.Size:=12;
WordApplication1.Selection.Font.Bold:=wdToggle;
WordApplication1.Selection.TypeText('我要实现这个功能，快疯了，请各位高手帮帮忙吧！'); //输入文字


WordApplication1.Selection.TypeParagraph; //打一些空行，为了图片输出，位置合理
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;

vEnd := WordApplication1.Selection.End_; //为了每次在文档尾部插入图片，不知道上面文字需不需要这句，这句不会写吓写的

vRange := WordApplication1.ActiveDocument.Range(vEnd, vEnd);//希望高手帮修改

FPicture:=WordDocument1.InlineShapes.AddPicture('D:/43_2.jpg',EmptyParam,EmptyParam,vRange);
FPicture.ConvertToShape.select; //图片转成可移动模式，高手给解释一下，怎么能转成不可移动模式？
WordDocument1.Application.Selection.ShapeRange.width:=150; //调整图片大小
WordDocument1.Application.Selection.ShapeRange.height:=120;
WordDocument1.Application.Selection.ShapeRange.IncrementLeft(80); //微调图像位置
WordDocument1.Application.Selection.ShapeRange.IncrementTop(80);
end;
这段代码执行完了，图片没插到想要插的位置，而且图片也不够数量，有时7，8张，有时5，6张。郁闷之极阿！！
同时希望有高手给贴出一些关于server组件页中几个word组件的方法，属性说明，中英文都可。
我这方面很模糊，基本属于什么也不会，shy...

期盼高手尽早出现..........................

我想实现如下功能--向word中插入文字和图像，求源代码,伪码如下：
for i:=1 to 10 do
begin
打一空行；
指定输入文字属性；
以上面设定属性在文档尾部追加写两行文字；

打若干空行；//目的是为了调整排版，不让图片挡住文字和使图片在文字之后插入
在文档尾部追加一张图片；
设定图片为可移动模式；
调整图片边界大小; //为了在wrod文档中图片保持一致大小比如200X180;
微调图像在word中的位置; //可能需要调节
end;

为了达到输出格式：
"文字"
图片
"文字"
图片
"文字"
图片
"文字"
图片
：
：

注：图片可以是.jpg,.bmp,.ico,如果是前两种，图片大小在30k左右即可。

下面是我参考原先的贴子写的代码，毛病多多！
var
FPicture:OleVariant;
vstart:OleVariant;
vRange: OleVariant;
i:integer;
for i:=1 to 10 do
begin
WordApplication1.Selection.TypeParagraph; //打一空行
WordApplication1.Selection.ParagraphFormat.Alignment:= wdAlignParagraphJustify; //设定字体,执行时有时有错误，说
WordApplication1.Selection.Font.Size:=12;
WordApplication1.Selection.Font.Bold:=wdToggle;
WordApplication1.Selection.TypeText('我要实现这个功能，快疯了，请各位高手帮帮忙吧！'); //输入文字


WordApplication1.Selection.TypeParagraph; //打一些空行，为了图片输出，位置合理
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;

vEnd := WordApplication1.Selection.End_; //为了每次在文档尾部插入图片，不知道上面文字需不需要这句，这句不会写吓写的

vRange := WordApplication1.ActiveDocument.Range(vEnd, vEnd);//希望高手帮修改

FPicture:=WordDocument1.InlineShapes.AddPicture('D:/43_2.jpg',EmptyParam,EmptyParam,vRange);
FPicture.ConvertToShape.select; //图片转成可移动模式，高手给解释一下，怎么能转成不可移动模式？
WordDocument1.Application.Selection.ShapeRange.width:=150; //调整图片大小
WordDocument1.Application.Selection.ShapeRange.height:=120;
WordDocument1.Application.Selection.ShapeRange.IncrementLeft(80); //微调图像位置
WordDocument1.Application.Selection.ShapeRange.IncrementTop(80);
end;
这段代码执行完了，图片没插到想要插的位置，而且图片也不够数量，有时7，8张，有时5，6张。郁闷之极阿！！
同时希望有高手给贴出一些关于server组件页中几个word组件的方法，属性说明，中英文都可。
我这方面很模糊，基本属于什么也不会，shy...

期盼高手尽早出现..........................

自己提一下

自己提一下

看看我的待答问题去吧！

荷塘新月,在什么地方？

提上去！！

怎么就没人给些意见呢？

高手到哪里去啦？？

提上去

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2553923

采用word模板文件，在模板文件里预先定义好书签，
然后用替换书签的方法替换显示你的数据。

我觉得你我的问题不太一样啊

ArJianzeng,:您能给我些参考的代码么？谢谢！
我对这块的确不熟悉！！

ArJianzeng,我必须每次再文档底部加入图片，并且图片要能够改变大小和位置！

提上去

我感觉ArJianzeng说的有道理，我以前也做过类似的东西，更楼主的思路差不多，当时实现起来很费事，而且经常出一些错误，效率也不高，我想一定应该是用其他的思路实现，
希望ArJianzeng详细的说一下

顶上去

定上去

从ＱＱ上给你发个使用书签的例子。