在DELPHI中向WORD文件中插入文件错(100分)

W

wjl_my

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #1

请教各位：
　　我用DELPHI从窗口中生成图片，然后将图片分别存入到同一个WORD文件中，
我创建一个新文档然后可以将图片存入进去，但我将每二个图片插入到同一个文件后，
再打开，却什么也没有。连第一个图片也没了

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #2

？
肯定是代码问题，你是如何实现插入图片的？
主要看插入的那句话。

 

L

lwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #3

filename := 'temp.bmp';
LinkToFile := false;
SaveWithDocument := true;
Range := wordapp.Selection.Range;
wordapp.Selection.InlineShapes.AddPicture(filename, LinkToFile, SaveWithDocument, Range);

 

W

wjl_my

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #4

我是用以下代码写的：
procedure TFrmMain.getmybmp;//取图
var
FormImage: TBitmap;
begin
FormImage := frmmain.GetFormImage;
try
Clipboard.Assign(FormImage);
Image1.Picture.Assign(Clipboard);
finally
FormImage.Free;
end;
end;

procedure PasteToDocument(needstr:string);
begin
frmmain.WordDocument.Range.InsertAfter(needstr+' '+#13+#13);
frmmain.WordDocument.Sentences.Last.Paste;
end;

请各位帮我检查一下，谢谢

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #5

looking……

 

W

wjl_my

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #6

多人接受答案了。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #7

no error found, see lsy's idea.