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

如题所述

推荐答案 2018-03-27

delphi è°ç¨ word æå¼ä¸ä¸ªææ¡£ï¼å¼å®¹æ§æ¯è¾å¥½çåæ³ï¼æ¯ä½¿ç¨ oleObject æ¥è°ç¨æ¬æºå®è£ç wordï¼ç¤ºä¾ä»£ç å¦ä¸ï¼procedure TForm1.Button1Click(Sender: TObject);var MSWord: Variant;begin MSWord := CreateOLEObject('Word.Application');//è¿æ¥Word MSWord.Documents.Open(FileName:='D:\Temp\temp.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';//åä½åç§°

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/DIeZBTrenIZZeBDDDTB.html

相似回答

我想在 Delphi 程序中直接调用 Word 文档并使用 Word 的功能,这个程序...答：1) 从 WORD.EXE 中导入 WORD 的 Type Library 2) var　wd : _Application;wdt : Table;dot1,FileName: OleVariant;begin dot1　:= 'c:\abc.dot';wd := coApplication_.Create;wd.Documents.Add(dot1, EmptyParam);wdt := wd.ActiveDocument.Tables.Item(1);wdt.Cell(1,3).Range.Text ...

怎样用Delphi打开一个Word文档?答：要打开指定的word文档，何须如此麻烦？一个ShellExcute函数即可搞定：ShellExecute(handle,'open','Winword',PChar(OpenFile),Nil,SW_SHOWNORMAL);其中OpenFile为指定的word文档！另外值得注意的是你的word应用程序的路径若不是默认安装的路径，那么在倒数第二个参数要指定word应用程序路径！

delphi 中如何直接打开word 文档?答：shellExecute(handle,'open',此处输入你要打开的文档,nil,nil,SW_SHOWMODAL);

如何用delphi调用word打开一个文档答：delphi 调用 word 打开一个文档，兼容性比较好的办法，是使用 oleObject 来调用本机安装的 word，示例代码如下：procedure TForm1.Button1Click(Sender: TObject);var MSWord: Variant;begin MSWord := CreateOLEObject('Word.Application');//连接Word MSWord.Documents.Open(FileName:='D:\Temp\...

大家正在搜

在word中打开文档文件是指什么在word中打开excel文件 pdf怎么在word中打开在word中不用打开文件在word中快速打开文件如何在word中打开多个文档 word窗口中打开了两个文件在word中打开文档是 word中打开文件的快捷键