delphi实现word艺术字属性代码（delphi word类型）

今天给各位分享delphi实现word艺术字属性代码的知识，其中也会对delphi word类型进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、如何用delphi调用word打开一个文档
• 2、我想在 Delphi 程序中直接调用 Word 文档并使用 Word 的功能，这个程序该怎样编? 该用什么控件呢?
• 3、delphi怎么设置WORD的页边距？怎么设置 WORD某一行的字体大小？
• 4、倾我所有，请您解答：请问在Delphi程序中,如何将所有变量生成到一个Word文档，并自动打开这个Word文档?
• 5、在DELPHI 中使用 word 文档
• 6、用Delphi实现在word文档中快速查找关键字的源代码

如何用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\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';//字体名称

end;

我想在 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 := 'Hello!';

//以下是保存和关闭文档及 Word, 可以不关，下面两个例程略过此步。

//EmptyParam 用来代替不使用的参数。

FileName := 'c:\test.doc';

wd.ActiveDocument.SaveAs(FileName,EmptyParam,EmptyParam,

EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,

EmptyParam);

wd.ActiveDocument.Close(EmptyParam,EmptyParam,EmptyParam);

wd.Quit(EmptyParam,EmptyParam,EmptyParam);

　 end;

　 方法二：

　 var

Ole: Variant;

NewDoc: Variant;

DocTable: Variant;

　 begin

　 //方法二的参数可以直接使用 Delphi 的数据类型。其它方法只能使用 OleVariant 类型.

　 Ole := CreateOleObject('Word.Application');

　 Ole.Application.Visible := true;

　 NewDoc := Ole.Documents.Add('C:\abc.dot');

　 DocTable := NewDoc.Tables.Item(1);

　 DocTable.Cell(1,3).Range.Text := 'Hello!';

　 //设置Variant对象为UnAssigned来释放该对象的引用。

　 NewDoc := UnAssigned;

　 DocTable := UnAssigned;

　 Ole := UnAssigned;

　 end;

　 方法三：使用 Server 页的 TWordApplication 控件，同理，你可以用里头的所有控件。Ole 为TWordApplication控件名称。

　 var

NewDoc: Variant;

DocTable: Variant;

　 o: OleVariant;

　 begin

o := 'c:\abc.dot';

NewDoc := Ole.Documents.Add(o,EmptyParam);

DocTable := NewDoc.Tables.Item(1);

DocTable.Cell(1,3).Range.Text := 'Hello!';

NewDoc := UnAssigned;

DocTable := UnAssigned;

　 end;

推荐用方法一和方法三。因为方法二不提供类型参数检查，也因为方法二的接口调用效率低。程序中所使用的属性和方法资料可以在 Office 的 VBA 帮助中查到。需要者请在安装 Office 时选择安装 VBA 编程帮助。

delphi怎么设置WORD的页边距？怎么设置 WORD某一行的字体大小？

分太诱人了，写一个吧......

uses comobj;

var word,document:olevariant;

begin

word:=createoleobject('word.application');

document:=word.documents;

document.open('c:\1.doc');

word.ActiveDocument.pagesetup.topmargin:=111; //上边距topmargin 下bottommargin 左leftmargin 右 right.....

word.selection.HomeKey(wdline,1); //开始选择范围

word.Selection.MoveDown(wdline,3);

word.selection.endkey(wdline,wdExtend );

word.Selection.Font.Size:=1111; //结束范围设置,第四行文字改变。

word.ActiveDocument.saveas('c:\2.doc');

document.close;

word.quit;

word:=unassigned;

end; 补充一下，需要用到控件server中的 wordapplication,通过d7测试！

倾我所有，请您解答：请问在Delphi程序中,如何将所有变量生成到一个Word文档，并自动打开这个Word文档?

摘 要：总结了四种Delphi访问和控制Word的方法，简单分析了Word的对象层次模型，重点阐述了利用Delphi中Server组件操纵Word的实现方法．并就实现Delphi对Word文档直接操作进行了探讨和分析。

关键词：Delphi Word 组件 层次模型

中图分类号 TP317.2 文献标识码 B 文章编号：1002-2422(2007)03-0060-02

1 Delphi访问和控制Word的方法

1．1 通过导入类型库和直接访问COM接口控制Word

由于引入了类型库，对自动化对象的控制比较灵活，并且在设计期间可以对代码进行类型检查，因此性能较好，但实现起来比较复杂，现在已经很少使用。

1．2 使用TOleContainer组件调用Word

在Delphi中，使用TOleContainer的Run方法就可以直接启动Word文档，但此方法不能通过Delphi控制Word文档，不能灵活操作Word。

1．3 使用CreateOleObieet方式控制Word

是使用CreateOleObject方式创建并调用Word文件，难点在于没有Delphi代码提示．需要自己编写所有对异常事件的处理过程，可能编写时探索性知识比较多。

1．4使用Delphi提供的Servers组件控制Word

Delphi组件面板上有一组Servers组件，能非常方便地访问和控制Word，在编程时能够实现友好的代码提示。本文使用此方法来介绍在Delphi开发环境中如何实现对Word文档的处理。

2 Word的对象模型

Word2000的层次结构比较复杂，包括100多个对象，各对象处于一个完整的体系结构且相互联系，整个Word2000对象可以看成一个层次结构，每一个对象处于一个特定的对象层次中，其中Application对象处于最高层，除Application外的其它对象都是高层次的对象派生，派生的对象处于原对象的下层，常用的Word 2000对象。

(1)Application对象：位于Word对象的最高层，代表整个Word应用程序。

(2)Document对象：代表一篇Word文档。

(3)Selection对象：代表窗口中所选定的内容。

(4)Range对象：由Document对象派生，代表Word文档中的某个范围。

(5)Font对象：由Selection对象派生，包含各种字体属性。

(6)ParagraphFormat对象：由Selection对象派生，代表所有段落格式。

3 通过Servers组件操作Word

首先通过WordApliation组件实现Delphi与Word的无缝联接，然后用OLE技术借助VBA来控制Word对象，其过程主要包括联结Word服务器、创建或打开文稿、编辑文档、格式设置、保存与打印设置、断开Word服务器等步骤。

从Servers组件页中拖一个TWordApplication组件、一个TWordDocument组件放到窗体上，分别命名为WordApp、WordDoc。

(1)联结Word服务器

WordApp.AutoConnect：=True；

WordApp.ConneetKind：=ckRunningorNew；

WordApp.Connect；

WordApp.Visible：=true；

(2)文稿的创建与打开

与Word 2000建立联系后即可以新建或打开Word文档，其方法如下：

WordApp.Documents.Add(Template，NewTemplate，DocumentType，visi-ocLentType'Visi—ble)；

若打开已有的Word文档，可使用：

WordApp.Documents.Open(FileName,Confirm Conversions,ReadOnly，PassWordDocument，PasswordTemplate，Revent，WfitePasswordDecu-ment,WritePassWordTemplate，Format，Encoding,Visible)

WordDoe.ConnectTo(WontApp.Documents.Item(itemlndex))：

在DELPHI 中使用 word 文档

这个问题难不住我~

1.首先你可以使用ole 调用word ，

将word内容在delphi界面显示出来。

2.然后利用word本身的‘宏’命令。

选择‘录制新宏’。

3.在宏录制状态下做你想做的操作（将字段插入word中你想要的任何地方）。操作完毕后选择停止录制。

4.打开刚刚录制的‘宏’。选择编辑，把VBA命令转换为delphi代码。

（其实你应该去大富翁看看，那里有很多答案）

用Delphi实现在word文档中快速查找关键字的源代码

用OLE来实现吧！

wordapp := CreateOleObject('Word.Application');

wordapp.Application.Visible := true;

worddoc := wordapp.Documents.open(FileName := path + 'word.doc', ReadOnly := False, AddToRecentFiles := False);

然后用WORD录下查找的VBA代码就可以了！

delphi实现word艺术字属性代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于delphi word类型、delphi实现word艺术字属性代码的信息别忘了在本站进行查找喔。