当前位置:首页>开发>正文

如何在Delphi中调用Word文档? delphi 急!如何用delphi编程调用word?

2023-06-29 06:11:22 互联网 未知 开发

 如何在Delphi中调用Word文档? delphi 急!如何用delphi编程调用word?

如何在Delphi中调用Word文档?

Olecontainer1.Doverb(ovShow)if Opendialog1.execute then begin OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false) // OleContainer1.Run end在form中加一个Opendialog和OleContainer控件就可以了!

delphi 急!如何用delphi编程调用word?

uses shellapi shellexecute(handle,open,pchar(word.exe),nil,nil,sw_show)其中word.exe是你的可执行文件或者用下面的winexec(pchar(path),sw_show)path是你的word可执行文件的路径.....exe

如何在delphi中显示word文件?

对不起,好像有一点看不见好像不可以直接调用,我通过wordapplication 和worddocument控件可以调用word并对请中的内容进行编辑,其word可以是可见的也可以是不可见的。如果你想知道具体怎么调用,请给我来信miaozl@liyouhe.com.cn我现在正在用这两个控件进行开发东西。

怎么样在 Delphi 中打开一个word文件

delphi 调用 word 打开一个文档,兼容性比较好的办法,是使用 oleObject 来调用本机安装的 word,示例代码如下:procedure TForm1.Button1Click(Sender: TObject)var MSWord: Variantbegin MSWord := CreateOLEObject(Word.Application)//连接Word MSWord.Documents.Open(FileName:=D:Temp emp.doc, ReadOnly:=True) //打开外部Word文档 MSWord.Visible := 1//是否显示文件编辑 MSWord.ActiveDocument.Range(Start:=0, End:=0)//开始改变的启止位置 MSWord.ActiveDocument.Range.InsertAfter(Text:=myvc)//在Word中增加字符myvc MSWord.ActiveDocument.Range.InsertParagraphAfter MSWord.ActiveDocument.Range.Font.Size := 72//字体大小 MSWord.ActiveDocument.Range.Font.Name := Arial//字体名称

delphi 怎样在delphi中调用word!

uses ComObj procedure TForm1.Button1Click(Sender: TObject)var vWord,vDoc,vRange : Variant sText,sReplace : string lReturn : Boolean begin sText ABCDEFG //原文字串 sReplace GFEDCBA //新字串 vWord CreateOleObject(Word.Application) //创建Word线程 try //打开要操作的文件 vDoc vWord.Documents.Open(C:My DocumentsAAAc.Doc) vDoc.Select //选取中整个文档 vRange vDoc.Range //替换范围 lReturn True while lReturn do begin //找到并替代成功则返回 True 共11个参数 lReturn vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) end finally vDoc.Close(True) //关闭文并保存 vWord.Quit(False) //退出Word end end

delphi 怎样在delphi程序中显示word格式文件

使用OleContainer控件。然后写如下代码。BCB OleContainer1->CreateObjectFromFile("c:\a.dot",false) OleContainer1->DoVerb(0)Delphi OleContainer1.CreateObjectFromFile("c:\a.dot",false) OleContainer1.DoVerb(0)这样就可以了。

最新文章