哪位兄弟有关于WordApplication方面的资料？(200分)

哪位兄弟有关于WordApplication方面的资料？
需要详细点的。
我目前做一个项目，需要将数据库中的数据导出的Word的表格中，遇到点麻烦。
谢谢了

没有人能帮我吗？

MSDN上最详细，可也贴不上来啊.

谢谢xeen，我马上到MSDN上查一查。

没找到，请同志们继续帮助我，分不够可以再加。

你可以在word里录制宏，然后根据宏的代码改编为delphi代码。

http://www.djpate.freeserve.co.uk/Automation.htm
Delphi与Word之间的融合技术：
http://www.delphibbs.com/delphibbs/dispq.asp?LID=737517
在DFW中以word为关键词检索，有很多够你用的。

多给点分数撒～～～
procedure gridtoword (Grid :TDBGrid ; title:string;who:string);
var
x :integer ;
y: integer ;
Word,firstdoc,seconddoc : Olevariant ;
GColCount : integer ;
GRowCount : integer;
begin
Word := CreateOLEobject('Word.Application') ;
Word.Visible := True ;
firstdoc:=Word.Documents.Add ;
GColCount := Grid.Columns.Count ;
GRowCount := Grid.DataSource.DataSet.RecordCount ;
//设置第一段的内容,字体,字体粗细,字体的颜色及大小
firstdoc.Paragraphs.Item(1).Range.Text:=title;
firstdoc.Paragraphs.Item(1).Range.Bold :=True;
firstdoc.Paragraphs.Item(1).Range.Font.Size :=30;
firstdoc.Paragraphs.Item(1).Range.Font.Name:='宋体';
firstdoc.Paragraphs.Item(1).Range.Font.ColorIndex:=0;//Red
//增加一段
firstdoc.Paragraphs.Add;
//通过下面的赋值语句,使得Variant变量seconddoc等同于firstdoc.Paragraphs.Item(2).Range对象
seconddoc:=firstdoc.Paragraphs.Item(2).Range;
//
seconddoc.Font.Size := Grid.Font.Size+4;
seconddoc.PageSetup.Orientation := 1 ;
seconddoc.Tables.Add( seconddoc,GRowCount+1,GColCount);
seconddoc.InsertAfter('报表时间 ' +Datetimetostr(Now)+' 报表人 '+who);
for y := 1 to GColCount do
seconddoc.Tables.Item(1).Cell(1,y).Range.
InsertAfter(Grid.Columns[y-1].Title.Caption) ;
x :=1 ;
with Grid.DataSource.DataSet do
begin
First ;
while not Eof do
begin
x := x + 1 ;
for y := 1 to GColCount do
seconddoc.Tables.Item(1).Cell(x,y).Range.
InsertAfter(FieldByName(Grid.Columns[y-1].FieldName).Asstring);
Next ;
end;
end;
seconddoc.Tables.Item(1).UpdateAutoFormat ;
end;

谢谢：硬木花椒 分肯定有你的份。
谢谢诸位兄弟，大家看清楚了，我要找的是“[red]有关于WordApplication方面的资料[/red]”
我想对些做一个比较详细的了解，不是求代码的。
TO：linsb
我是先搜索DFW后才提问的。我说的那个贴子我已看过了，但仍不明白。

没见到系统资料，具体问题具体解决。数据库中的数据导出Word的表格中，遇到什么麻烦?

TO：linsb
先谢谢你了,我的问题已解决,我只想更深入更系统地了解一下这方面的知识.

笔者在实际应用中发现，报表的内容一般很少变动，但其字体格式及版式是经常变动的，而且有时用户为了某种需要，不想修改数据库的真实内容而又要改变报表内容。如果用ReportSmith可以解决前者问题，但对于后者则无能为力了，且其界面是英文的，不合用户习惯。如果用3.0中的TQReport的报表部件，则两者都不能实时解决，必须修改原代码后重新编译才能使用。而使用Word及Excel则完全可以克服以上不足。具体实现如下(以Word实现为例)：

　　首先用Word编辑报表格式，并排好版，把将要输出的数据项用表单域代替，并取名。这里我们暂时假设有表单域Item1及Item2(均为文本型),将这个文档存为模板文件Example.dot，然后按如下步骤进行：

　　1)运行Delphi3，在Form1里加入一个System部件集里的TDdeClientCov部件，取名为DdeExample,将其ConnectMode设为ddeManual(手动方式)；将DdeService设为‘(WinWord)’；将ServiceApplication设为‘WinWord’。

　　2)编写一个自定义过程，以激活Word，如下：
　　procedure Tform1.WordActive(Cmds: TStrings);
　　var
　　 WordPath: String;
　　begin
　　 if(not DdeExample.OpenLink) then {判断是否巳动态链接}
　　 begin
　　if(FindWindow('OpusApp', nil)=0) then
　　begin
　　WordPath := 'C:/msoffice/winword';
　 　if(WordPath='') then
　　ShowMessage('中文Word未安装或未设置路径，请安装设置Word中文 版。')
　　 else begin
　　DdeExample.ServiceApplication := WordPath+'/Winword.exe';
　　if(DdeExample.OpenLink) then {如果巳动态链接执行宏命令} 　　
DdeExample.ExecuteMacroLines(Cmds,False)
　 else
ShowMessage('无法启动Word中文版!');
　 DdeExample.ServiceApplication := 'WinWord.exe';
　 end;
　　 end
　　 else begin{如果巳动态链接执行宏命令}
　 　DdeExample.ExecuteMacroLines(Cmds,False);
　　 end;
　　 end
　　 else
　　 DdeExample.ExecuteMacroLines(Cmds,false);
　　end;

　　在private声明区里加入如下：
　　procedure ActiveWord(Cmds: TStrings);

　　3)在Form1中加入一个按钮Button1,在其onclick事件里写如下代码：
　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　Cmds:TStringList;{创建Cmds}
　　TempItem1,TempItem2:String;
　　begin
　　cmds:=TStringList.Create;
　　cmds.Clear;
　　TempItem1:='数据项一';
　　TempItem2:='数据项二';
　　with Cmds do
　　begin
　　Clear;
　　Add('[FileNew.Template ="Example.Dot″]');{打开模板文件Example.Dot}
　　Add('[AppMaximize]');{文档最大化}
　　Add('[SetFormResult"Item1″,″'+TempItem1+'″]');{将数据TempItem1传给表单域Item1}
　　Add('[SetFormResult"Item2″,″'+TempItem2+'″]);{将数据TempItem2传给表单域Item2}
　　end;
　　WordActive(DdeExample,Cmds);{调用自定义过程}
　　Cmds.Free;{释放Cmds}
　　end;

　　运行这个程序，单击Button1，大家可以发现Word被启动了，屏幕上出现了：数据项一;数据项二两个数据项。最后，大家可以任意修改本报表的格式及数据，因为这时这个报表与具体的应用程序巳没有关系了。

　　本例中用的是中文Word6或中文Word7。由于Word97的宏命令巳变为Visual Basic语句，如大家想用Word97实现，请将其宏命令改变为相应的代码。

　　这是个简单的示例，大家可以利用Word的宏录制功能，录取更多的宏(如自动生成表格、填充文字、变动字体等宏命令)，并与数据库的各种表联系起来，依次加入Cmds中即可实现您所要求的更复杂的功能。


///////////////////////////////


在Delphi下利用DDE实现同Microsoft Word的交互

信息产业部电子第二十二研究所第二研究室 郎锐
01-6-22 上午 11:46:33

--------------------------------------------------------------------------------


一、 引言

Windows支持三种基本的IPC（进程间通信）机制：动态链接库（DLL）中的共享数据段、Windows剪贴版(Clipboard)和动态数据交换DDE(Dynamic Data Exchange)。许多著名的Windows应用程序如Microsoft Word等都宣布支持DDE技术，并在程序中嵌入了DDE消息处理函数。而此类应用程序单在DDE技术上讲大多是作为一个DDE服务器形式存在的，这就允许用户通过自行编制的一些外围软件以DDE客户的身份对其进行连接，并通过向DDE服务器程序发送一些特定的宏命令来完成对服务器程序的动态控制，本文就以常用的Microsoft Word为例，讲述了在Delphi 5.0编程环境下如何编制DDE客户程序，使其动态控制Microsoft Word的一般方法。

二、 DDE的工作原理

DDE顾名思义，是提供对不同程序在运行期间实现对数据的动态交换的一种通用技术。Windows消息虽然是在不同程序窗口间传送信息的最佳手段，但一条消息只能包含两个参数（wParam和lParam），不能传送较多的信息。内存块是存放较多信息的重要手段，但不支持全局内存句柄的共享。DDE正是建立在Windows内部消息系统、全局原子和共享全局内存基础上的一种协议，用来协调Windows应用程序之间的数据交换和命令调用。
DDE协议使用三级命名：服务（service）、主题(topic)和数据项（item）来标识DDE所传递的数据单元。服务使应用程序具有了提供给其他程序的数据交换能力，一般服务就是应用程序的文件名，如Word的服务就是是Winword(可执行文件是Winword.exe)；主题是对服务器有意义的信息单元，对于Word文档就是很好的主题，许多服务器都有默认的主题System,但无法知道服务器确切有那些主题，除非查阅应用程序的相关技术文档。每次DDE客户与服务程序之间的对话都是先由客户启动的，所以在每次客户启动之前，DDE服务器必须先投入运行，下面是一个典型的DDE会话流程的事务组成：

。客户程序自动会话，服务器程序响应。
。客户和服务器用下述方法交换数据：
。服务器应客户的请求向客户发送数据；
。客户主动想服务器发送数据；
。客户要求服务器在数据修改时发送数据（热数据连接）；
。客户要求服务器在数据修改后发送通知（温数据连接）；
。在客户的要求下，服务器执行一个命令。
。由客户或服务器中止会话。

三、 设计思路

首先，在开发工具的选择上，选择了提供有现成的DDE 系列组件的 Borland Delphi 5.0。既然以Microsoft Word作为要连接的服务器，在与其建立连接之前要先设定好连接的服务与主题，由于本例只要求通过本程序控制Word的一些操作动作，如打开新文件、关闭文件、插入表格等等，所以可以分别设定这两项为："Winword"和"System"，当设置好连接后就可以通过Delphi提供的DDEClientConv组件的OpenLink函数打开与这个服务的连接，剩下的工作就是向Word服务器发送宏命令，并通过组件向其发送执行宏的命令即可，用该组件的函数ExecuteMacro来实现之。
四、程序的实现

（一） 加入DDE客户端组件

新建一App工程WordDDE，然后在Component Palette组件条的System属性页里选择DdeClientConv组件，并把它拖放到窗体上。修改其Name 属性为DDEClient。

（二） 添加同DDE服务进行交互的代码

在工程上添加一个过程RunMacro，用于打开同Word服务器的链接，并通知服务器执行由Macro标识的宏命令，让Word按用户的意图完成响应的动作。完成之后由客户方断开这次连接，完成一次会话。下面是上述过程的实现代码：

procedure TForm1.RunMacro(MacroChar);
var pMacro:array[0..80] of Char;
begin
DDEClient.SetLink('Winword','System');{设置连接}
DDEClient.OpenLink;{按设置打开连接}
StrPCopy(pMacro,Macro);
if Not DDEClient.ExecuteMacro(pMacro,false) then{执行宏命令}
ShowMessage('Unable to Execute Macro');
DDEClient.CloseLink;{断开连接}
end;

（三） 宏命令的执行

宏（Macro）是客户程序要服务器完成的一些操作指令，对与特定的Microsoft Word 而言无非是些打开文件、插入分割符、复制粘贴字符等一些字处理方面的宏命令，这些宏命令完成的功能大多在Word的菜单下都能找到与之相匹配的菜单。如"关闭文件"菜单完成的功能就可以通过宏[FileClose]来完成。可以向窗口添加一个按钮或是菜单然后在其处理函数中添加执行宏的代码如下：
procedure TForm1.N2Click(Sender: TObject);
begin
RunMacro('[FileNew]');{让Word创建一个新文件，宏[FileNew]由函数RunMacro通知Word}
end;

Word下有许多可供传送执行的宏命令，现将一些常用的宏罗列如下，以备实际编程时选用：

[FileNew] …… 创建新文件
[FileClose] …… 关闭文件
[FileSave] …… 保存文件
[FilePrint] …… 打印文件
[FileExit] …… 退出Word
[File1] …… 打开最近打开的文件，相应还有[File2]、[File3]等等
[EditCut] …… 剪切操作
[EditCopy] …… 复制操作
[EditPaste] …… 粘贴操作
[EditUndo] …… 恢复上一步
[EditRedo] …… 重做上一步
[EditClear] …… 清除操作
[EditSelectAll] …… 全选操作
[ViewNormal] …… 正常视图
[ViewPage] …… 页面视图
[ViewOutLine] …… 大纲视图
[InsertBreak] …… 插入分割符
[InsertIndex] …… 插入索引
[FormatNumber] …… 格式化项目符号和编号
[ToolsOptions] …… 工具的选项
[TableInsertTable] …… 插入表格
[TableInsertRow] …… 插入行
[TableDeleteRow] …… 删除行
[TableSplit] …… 拆分表格
[TableSelectRow] …… 选择行
[TableSelectColumn] …… 选择列
[TableSelectTable] …… 选择表格
[TableSort] …… 排序
[WindowNewWindow] …… 新建窗口
[Window1] …… 最近打开的窗口，响应还有[Window2]、[Window3]等等
[HelpIndex] …… 帮助的索引
[HelpAbout] …… 帮助的关于

小结：DDE技术向用户提供了一种更加集成的工作环境，最适合于不需要用户参与的动态数据交换。
通过上述这个例子，对DDE 的工作原理和编程思想有了一定的认识之后，可以用类似的方法实现同其他程序如Microsoft Execl的DDE动态交互。该程序在Windows 98下，由Borland Delphi 5.0编译通过。
/////////////////////////////////
以不同格式输出TDBGrid中的数据到Ms Word表格

1. 添加下列单元(UGridToWord)到你的工作目录
2. 添加单元名到你的uses子句。
3. 以如下参数调用过程GridToword ：
Grid : 你想要输出的grid
FormatNum: 一个0-42之间的整数
0 = 不要求格式
1..42 = 你喜欢的格式号
用不同的格式号尝试一下，看看Word如何作这项工作。

unit UGridToWord;

interface

uses SysUtils, StdCtrls,Classes, Graphics,
Db, Grids, DBGrids, ComObj;

procedure GridToWord (Grid :TDBGrid ; FormatNum :integer);

implementation

procedure GridToWord (Grid :TDBGrid ; FormatNum :integer);
var
x :integer ;
y: integer ;
Word : Olevariant ;
GColCount : integer ;
GRowCount : integer;
begin
Word := CreateOLEobject('Word.Application') ;
Word.Visible := True ;
Word.Documents.Add ;
GColCount := Grid.Columns.Count ;
GRowCount := Grid.DataSource.DataSet.RecordCount ;
Word.ActiveDocument.Range.Font.Size := Grid.Font.Size;
Word.ActiveDocument.PageSetup.Orientation := 1 ;
Word.ActiveDocument.Tables.Add( Word.ActiveDocument.Range,
GRowCount+1,GColCount);
Word.ActiveDocument.Range.InsertAfter('Date ' +
Datetimetostr(Now));
Word.ActiveDocument.Range.Tables.Item(1).AutoFormat
(FormatNum,1,1,1,1,1,0,0,0,1);
for y := 1 to GColCount do
Word.ActiveDocument.Tables.Item(1).Cell(1,y).Range.
InsertAfter(Grid.Columns[y-1].Title.Caption) ;
x :=1 ;
with Grid.DataSource.DataSet do
begin
First ;
while not Eof do
begin
x := x + 1 ;
for y := 1 to GColCount do
Word.ActiveDocument.Tables.Item(1).Cell(x,y).Range.
InsertAfter(FieldByName(Grid.Columns[y-1].FieldName).Asstring);
Next ;
end;
end;
Word.ActiveDocument.Range.Tables.Item(1).UpdateAutoFormat ;
end;
end.

////////////////////////////////
一、Delphi程序启动Word
采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：
首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，
则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word

二、Delphi程序新建Word文稿
格式：WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)
Template： 使用模板的名称，
NewTemplate： 新建文档的类型，True表示为模板，False表示为文档
DocumentType： 文档类型，默认为空白文档
Visible： 打捞的窗口是否可见

举例：Doc_Handle:=Word_Ole.Documents.Add(Template:='C:/Temlate.dot',NewTemplate:=False);

三、Delphi程序打开Word文稿
格式：WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument,
PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate,
Format,Encoding,Visible)

FileName： 文档名（包含路径）
Confirmconversions： 是否显示文件转换对话框
ReadOnly： 是否以只读方式打开文档
AddToRecentFiles： 是否将文件添加到"文件"菜单底部的最近使用文件列表中
PassWordDocument： 打开此文档时所需要的密码
PasswordTemplate： 打开此模板时所需要的密码
Revert： 如果文档已经，是否重新打开文档
WritePasswordDocument： 保存对文档更改时所需要的密码
WritePasswordTemplate： 保存对模板进行更改时所需要的密码
Format： 打开文档时所需使用的文件转换器
Encoding： 所使用的文档代码页
Visible： 打开文档的窗口是否可见

举例：
Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False,
AddToRecentFiles:=False);

四、Delphi程序保存Word文稿
格式：WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,
AddToRecentFiles, WritePassword, ReadOnlyRecommended,
EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,
SaveAsAOCELetter)

FileName： 文件名。默认为当前文件夹和文件名。
FileFormat 文档保存的格式。
LockComments 如果为 True，则此文档只允许进行批注。
Password 打开文档时的口令。
AddToRecentFiles 如果为True，则将文档添至"文件"菜单中最近使用的文档列表中。
WritePassword 保存对文档的修改所需的口令。
ReadOnlyRecommended 如果为 True，在每次打开文档时，Word 将建议用户采用只读方式。
EmbedTrueTypeFonts 如果为 True，则将文档与 TrueType 字体一起保存。
SaveNativePictureFormat 如果为 True，则从其他系统平台（例如 Macintosh）导入的图形仅保存其 Windows 版本。
SaveFormsData 如果为 True，则将窗体中用户输入的数据存为一条数据记录。
SaveAsAOCELetter 如果文档包含一个附加，当此属性值为 True 时，将文档存为一篇 AOCE 信笺（同时保存邮件）。

举例：
Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,
AddToRecentFiles=False);

五、从数据库读取文件到本地硬盘和从本地硬盘读取文件到数据库

在数据库上使用Image二进制字段保存，使用Stream流的方式。

创建文件流：
Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);
Word_FileStream.Position:=0;

保存到数据库的Image字段：
TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);

从数据库读取文件到本地硬盘：
TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);

释放文件流：
Word_FileStream.Free;

六、全局消息的定义
因为word和Delphi程序是两个软件，相互之间通讯比较麻烦，所以使用全局消息的方法进行。
全局消息必须首先注册，Windows返回系统空闲的消息号，当注册的消息相同时，
Windows系统返回同一个值，这样就保证了使用这个消息号在两个程序之间通讯。

定义消息的办法：
szMessageString: pchar = 'XIDIAN_11_Stone';
FMyJoinMessage := RegisterWindowMessage(szMessageString);

发送消息的方法：
SendMessage(对方句柄，消息，消息附带短变量，消息附带长变量)

七、Delphi程序接收消息的方法
Delphi接收消息有两种，一是重载特定消息，二是重载WndProc函数，在里面选择相应消息进行处理。
法一，每次只能处理一条消息，而法二能够同时处理多条消息。

对于法二，声明如下：
procedure WndProc(var Message: TMessage);override
必须注意，使用时需要在处理完自己消息处理后继承WndProc(Message)函数，否则系统会崩溃！

八、Word中Combo对话框的动态生成以及Change事件
建立类模块Combohander，在内部定义事件
Public WithEvents ComboBoxEvent As Office.CommandBarComboBox

定义Combo控件产生事件的模块
Dim ctlComboBoxHandler As New ComboBoxHandler

产生Combo对话框
Set Cbo_ChooseDoc = CommandBars("添加的菜单").Controls.Add(Type:=msoControlComboBox, Temporary:=True)

进行文件句柄设置，以产生Combo_Change事件
Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc

产生事件后，在类模块Combohander内选择ComboBoxEvent的Change事件，即可书写事件代码
Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)

九、一些Word的事件
VBA代码中处理的Word事件有：Document_Close
Application事件中需要处理的有：DocumentBeforeClose，DocumentChange。

Document_Close：事件在文档关闭时产生事件
DocumentBeforeClose：在文档被关闭以前先于Word判断文档是否保存，给出相应提示并进行相应处理。
DocumentChange：文档切换，在文档从自己修改的文稿和其他人修改的文稿之间切换产生事件，
主要处理设置文档权限等。

TO:硬木花椒
再次谢谢老兄了,你真是个热心人!

TO:硬木花椒,好人做到底,再帮兄弟一把
我想实现以下功能:
用Delphi控制Word打开一个文档(本地),然后用word的保存功能直接将该文档保存到
数据库中,如何实现?

楼主应该看看VBA方面的东东
Office 的帮助能解决大部分问题的

我给你一点，先申明一下，我是转载的（保你有用）


一、Delphi程序启动Word
采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：
首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，
则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word

二、Delphi程序新建Word文稿
格式：WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)
Template： 使用模板的名称，
NewTemplate： 新建文档的类型，True表示为模板，False表示为文档
DocumentType： 文档类型，默认为空白文档
Visible： 打捞的窗口是否可见

举例：Doc_Handle:=Word_Ole.Documents.Add(Template:='C:/Temlate.dot',NewTemplate:=False);

三、Delphi程序打开Word文稿
格式：WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument,
PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate,
Format,Encoding,Visible)

FileName： 文档名（包含路径）
Confirmconversions： 是否显示文件转换对话框
ReadOnly： 是否以只读方式打开文档
AddToRecentFiles： 是否将文件添加到"文件"菜单底部的最近使用文件列表中
PassWordDocument： 打开此文档时所需要的密码
PasswordTemplate： 打开此模板时所需要的密码
Revert： 如果文档已经，是否重新打开文档
WritePasswordDocument： 保存对文档更改时所需要的密码
WritePasswordTemplate： 保存对模板进行更改时所需要的密码
Format： 打开文档时所需使用的文件转换器
Encoding： 所使用的文档代码页
Visible： 打开文档的窗口是否可见

举例：
Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False,
AddToRecentFiles:=False);

四、Delphi程序保存Word文稿
格式：WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,
AddToRecentFiles, WritePassword, ReadOnlyRecommended,
EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,
SaveAsAOCELetter)

FileName： 文件名。默认为当前文件夹和文件名。
FileFormat 文档保存的格式。
LockComments 如果为 True，则此文档只允许进行批注。
Password 打开文档时的口令。
AddToRecentFiles 如果为True，则将文档添至"文件"菜单中最近使用的文档列表中。
WritePassword 保存对文档的修改所需的口令。
ReadOnlyRecommended 如果为 True，在每次打开文档时，Word 将建议用户采用只读方式。
EmbedTrueTypeFonts 如果为 True，则将文档与 TrueType 字体一起保存。
SaveNativePictureFormat 如果为 True，则从其他系统平台（例如 Macintosh）导入的图形仅保存其 Windows 版本。
SaveFormsData 如果为 True，则将窗体中用户输入的数据存为一条数据记录。
SaveAsAOCELetter 如果文档包含一个附加，当此属性值为 True 时，将文档存为一篇 AOCE 信笺（同时保存邮件）。

举例：
Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,
AddToRecentFiles=False);

五、从数据库读取文件到本地硬盘和从本地硬盘读取文件到数据库

在数据库上使用Image二进制字段保存，使用Stream流的方式。

创建文件流：
Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);
Word_FileStream.Position:=0;

保存到数据库的Image字段：
TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);

从数据库读取文件到本地硬盘：
TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);

释放文件流：
Word_FileStream.Free;

六、全局消息的定义
因为word和Delphi程序是两个软件，相互之间通讯比较麻烦，所以使用全局消息的方法进行。
全局消息必须首先注册，Windows返回系统空闲的消息号，当注册的消息相同时，
Windows系统返回同一个值，这样就保证了使用这个消息号在两个程序之间通讯。

定义消息的办法：
szMessageString: pchar = 'XIDIAN_11_Stone';
FMyJoinMessage := RegisterWindowMessage(szMessageString);

发送消息的方法：
SendMessage(对方句柄，消息，消息附带短变量，消息附带长变量)

七、Delphi程序接收消息的方法
Delphi接收消息有两种，一是重载特定消息，二是重载WndProc函数，在里面选择相应消息进行处理。
法一，每次只能处理一条消息，而法二能够同时处理多条消息。

对于法二，声明如下：
procedure WndProc(var Message: TMessage);override
必须注意，使用时需要在处理完自己消息处理后继承WndProc(Message)函数，否则系统会崩溃！

八、Word中Combo对话框的动态生成以及Change事件
建立类模块Combohander，在内部定义事件
Public WithEvents ComboBoxEvent As Office.CommandBarComboBox

定义Combo控件产生事件的模块
Dim ctlComboBoxHandler As New ComboBoxHandler

产生Combo对话框
Set Cbo_ChooseDoc = CommandBars("添加的菜单").Controls.Add(Type:=msoControlComboBox, Temporary:=True)

进行文件句柄设置，以产生Combo_Change事件
Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc

产生事件后，在类模块Combohander内选择ComboBoxEvent的Change事件，即可书写事件代码
Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)

九、一些Word的事件
VBA代码中处理的Word事件有：Document_Close
Application事件中需要处理的有：DocumentBeforeClose，DocumentChange。

Document_Close：事件在文档关闭时产生事件
DocumentBeforeClose：在文档被关闭以前先于Word判断文档是否保存，给出相应提示并进行相应处理。
DocumentChange：文档切换，在文档从自己修改的文稿和其他人修改的文稿之间切换产生事件，
主要处理设置文档权限等。

我再UP一下。

me too up

可以看以下Office自带的VBA

ms-help://MS.MSDNQTR.2002JAN.1033/modcore/html/deovrMicrosoftWord2000.htm
ms-help://MS.MSDNQTR.2002JAN.1033/off2000/html/wohowwordbasicequivalents.htm