delphi操作word

[qq_35158371]

依然是操作word 不过现在是需要将文档里的签名用图片格式代替 刚学delphi不久 大神们求代码最好

[lyhoo163]

可以使用RichEDit进行编程，可以做出类似Word的基本功能。

[qq_35158371]

自己顶 大神们 求助啦

[qq_35158371]

不太懂…… 但是好像不用做类似功能 就插入一张图片到word签名的位置 覆盖掉之前的文字就行吧……

[xxfly]

查找到对应文字,可能需要先把签名替换为空，再添加图片 FWordApp.Selection.InlineShapes.AddPicture(ImageFile, False, True);

[qq_35158371]

引用 4 楼 xxfly 的回复:

查找到对应文字,可能需要先把签名替换为空，再添加图片 FWordApp.Selection.InlineShapes.AddPicture(ImageFile, False, True);

可是这样的话 只能插到最上面……

[xxfly]

procedure TWordOperate.ReplaceImage(OldTxt, ImageFile: string);
begin
FWordApp.Selection.Find.ClearFormatting;
FWordApp.Selection.Find.Replacement.ClearFormatting;
FWordApp.Selection.Find.Text:= oldTxt; //查找的字符串
FWordApp.Selection.Find.Replacement.Text := ''; //替换为空
FWordApp.Selection.Find.Forward := True; //向下查找
FWordApp.Selection.Find.Wrap := 1;
FWordApp.Selection.Find.Format := False;
FWordApp.Selection.Find.MatchCase := False;
FWordApp.Selection.Find.MatchWholeWord := False;
FWordApp.Selection.Find.MatchByte := True;
FWordApp.Selection.Find.MatchWildcards := False;
FWordApp.Selection.Find.MatchSoundsLike := False;
FWordApp.Selection.Find.MatchAllWordForms := False;
FWordApp.Selection.Find.Execute(Replace:=1);

FWordApp.Selection.InlineShapes.AddPicture(ImageFile, False, True);
end;

[qq_35158371]

我试一下…………

[qq_35158371]

还有一个问题 …… 就是vdoc.Tables.item(1).cell(8,1).range.copy;以后 怎么粘贴出来……