项目中遇到的问题，憋了几天了，请高手解决！分数不是问题！
发布时间：2010-01-27 |
1楼: 我想实现如下功能--向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...
期盼高手尽早出现..........................
字串7
2楼: 自己提一下 字串7 3楼: 自己提一下 字串1 4楼: 看看我的待答问题去吧！ 字串6 5楼: 荷塘新月,在什么地方？ 字串6 6楼: 提上去！！ 字串7 7楼: 怎么就没人给些意见呢？字串6
8楼: 高手到哪里去啦？？ 字串1 9楼: 提上去 字串5
10楼: http：//www.delphibbs.com/delphibbs/dispq.asp？lid=2553923 字串5 11楼: 采用word模板文件，在模板文件里预先定义好书签，
然后用替换书签的方法替换显示你的数据。 字串8 12楼: 我觉得你我的问题不太一样啊 字串3
13楼: ArJianzeng,：您能给我些参考的代码么？谢谢！ 我对这块的确不熟悉！！ 字串6 14楼: ArJianzeng,我必须每次再文档底部加入图片，并且图片要能够改变大小和位置！ 字串4 15楼: 提上去 字串8 16楼: 我感觉ArJianzeng说的有道理，我以前也做过类似的东西，更楼主的思路差不多，当时实现起来很费事，而且经常出一些错误，效率也不高，我想一定应该是用其他的思路实现， 希望ArJianzeng详细的说一下 字串1 17楼: 顶上去 字串5 18楼: 定上去 字串5 19楼: 从ＱＱ上给你发个使用书签的例子。 字串8 20楼: 时刻准备接受，谢谢字串3
21楼: 上去字串7
22楼: “文字“ 图片 “文字“ 图片 “文字“ 图片 “文字“ 图片 ： ： 这种格式使用表格不好吗？ 这样图片位置好控制，如果不想看到表格，可把边框设成【无】。 字串2 23楼: OLE字串1
24楼: hardware007别灌水啊 字串3 25楼: 上去 字串9 26楼: 顶上去 字串8 27楼: 顶上去 字串6 28楼: 上去 字串5 29楼: 顶不主了，回去吃饭了！这个充满希望的地方，今天让我很伤心 字串5
30楼: 问题自己解决了，感谢大家，尤其blyb.
散分！ 字串4