W
wanglong
Unregistered / Unconfirmed
GUEST, unregistred user!
运行这个程序后，第一会点按钮，好使，打开了本地的gh.doc文件，并插入了一张图片，把这个word文件关了，再点一次按钮，就会提示rpc服务器不可用，真的很怪啊！！procedure TForm1.Button1Click(Sender: TObject);var Wordapplication: TWordApplication; WordDocument: TWordDocument; wjm: string; Template, TempFalse, ItemIndex, Filename, FileFormat, SaveChanges, OriginalFormat, RouteDocument: OleVariant; readonly: OleVariant;begin Template := EmptyParam; TempFalse := false; readonly := true; ItemIndex := 1; Wordapplication := TWordApplication.Create(nil); WordDocument := TWordDocument.Create(nil); try Wordapplication.Connect; except ShowMessage('无法启动Word。请检查是否已安装。'); Wordapplication.Free; WordDocument.Free; exit; end; wjm := extractfilepath(paramstr(0)) + '/gh.doc'; FileName := StrPas(pchar(wjm)); WordApplication.Documents.Open(Filename, Template, readonly, TempFalse, Template, Template, Template, Template, Template, Template, Template, Template, Template, Template, Template); WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex)); Wordapplication1.Selection.InlineShapes.AddPicture(ExtractFilePath(paramstr(0)) + 'cjsdl.jpg', Template, Template, Template); Wordapplication.Visible := true; WordDocument.Disconnect; Wordapplication.Disconnect; Wordapplication.Free; WordDocument.Free;end;