本文整理自网络，侵删。
DDE(Dynamic Data Exchange)，称为动态数据交换。用于进程间的通讯，看看他如何来和Word交互。
在System页签下有TDdeClientConv组件，拖一个放到界面上，然后我们写如下代码：
unit Unit1;
interface
uses
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.
相关阅读 >>
Delphi中sendmessage给一个edit控件发送wm_settext消息
Delphi richedit控件中插入图片bmp(bmp,文件),gif(文件)
Delphi 过滤网页代码 <script></script>
更多相关阅读请进入《Delphi》频道 >>
