powerpoint 宏命令 ( 积分: 50 )

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

procedure TForm1.Button1Click(Sender: TObject);
begin
如果我想在这执行粘贴命令应该怎么写啊
end;