急!!! 怎样把数据库里图通过ole导入到word的指定位置啊?(50分)

  • 主题发起人 主题发起人 Rommel6
  • 开始时间 开始时间
R

Rommel6

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在要从数据库中存放图的字段中取出bolb格式的数据,然后导出到word文档的指定位置(word文档里是一个事先画好的模板)
文本和数字可以用宏替换(特殊符号围堵),但是图怎么办呢?不知道在word里怎么找到放图的对象啊??
 
向word里加图的问题我已经解决,现在的问题是怎么在word里定位?
图所放置的位置是固定的,有什么办法定位啊?
 
1、放个书签
2、将数据库中的字段放到剪切板上
3、在word中找到书签
4、粘贴
-->ok啦
 
很有用的话题,不过我也不知道,顶一下。
 
现在word中画表格,再往指定格子里面放图片
var
filepath,range,wordTable:olevariant;
FPicture:OleVariant;

filepath:='d:/456.doc';
try
WordApplication1.Connect;
WordApplication1.Visible:=true;

WordDocument1.ConnectTo(WordApplication1.Documents.Open(filepath,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam));

Wordtable:=WordDocument1.Tables.Item(1);

range:=WordDocument1.Tables.Item(1).cell(1,2).range;
//这就是加放入图片的语句
range.InlineShapes.AddPicture('d:/二叉树遍历用图.jpg',False,True);
showmessage('图片已经插入到指定表各中');
finally
WordDocument1.Close;
WordDocument1.Disconnect;
WordApplication1.Quit;
WordApplication1.Visible:=false;
WordApplication1.Disconnect;

end;
 
用表格的方法可以实现啦,谢谢
想问一下,标签的方法能给下代码吗?
 
function Word_insertGraphic(var Image: TImage; WordApp: Variant; BookMark: string): integer;
var
// Bmp: TBitMap;
Rst: integer;
MFormat: Word;
Data: Cardinal;
Palette: HPalette;
begin
Rst := 3; //word 为null
if not VarIsNull(WordApp) then
begin
WordApp.Selection.goto(what := wdGoToBookmark, Name := BookMark);
WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
Image.Picture.SaveToClipboardFormat(MFormat, Data, Palette);
Clipboard.SetAsHandle(MFormat, Data);
WordApp.Selection.Range.Paste;
//WordApp.Selection.InlineShapes.AddPicture('E:/Word应用/2.bmp',False, True);
WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphLeft;
Rst := 0;
end;
Result := Rst;
end;
查找标签并插入图片
 
多人接受答案了。
 
后退
顶部