用DDE控制Word

DDE(Dynamic Data Exchange)，称为动态数据交换。用于进程间的通讯，看看他如何来和Word交互。

在System页签下有TDdeClientConv组件，拖一个放到界面上，然后我们写如下代码：

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleServer, StdCtrls, DdeMan;type TForm1 = class(TForm) Button1: TButton; DdeClientConv1: TDdeClientConv; procedure Button1Click(Sender: TObject); private { Private declarations }//执行word的宏命令 procedure RunMacro(macname:PChar); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin//执行保存文件的宏命令 RunMacro('[FileSave]');end;procedure TForm1.RunMacro(macname: PAnsiChar);var macro: array [0..80] of char;begin //设置于word的连接 DdeClientConv1.SetLink('WinWord','System'); //打开连接 if not DdeClientConv1.OpenLink then begin ShowMessage('打开连接出错！'); end; if not DdeClientConv1.ExecuteMacro(macname,False) then begin ShowMessage('执行宏命令出错！'); end;end;end.

 

下面，打开word，然后运行程序，点击button1，就会发现弹出了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] …… 帮助的关于