Delphi 使用 DDE 與 Word 互動：建立連結、執行巨集命令

DDE 簡介

Dynamic Data Exchange (DDE) 是 Windows 早期進程間通訊機制，透過「服務|主題|項目」三層命名。Word 作為 DDE Server，服務名 WinWord，主題 System，項目為巨集命令 (如 [FileNew])。

Delphi 實作步驟

1. 工具箱 System 頁面拖放 TDdeClientConv，命名 DdeClient。
2. 設定 DdeClient.SetLink('WinWord', 'System')。
3. 呼叫 OpenLink 建立會話。
4. 用 ExecuteMacro(PChar('[Command]'), False) 發送命令。
5. 完成後 CloseLink 釋放。

封裝函數

procedure TForm1.RunWordMacro(const MacroCmd: string);
var
  Macro: array[0..255] of Char;
begin
  DdeClient.SetLink('WinWord', 'System');
  if not DdeClient.OpenLink then
  begin
    ShowMessage('無法連接 Word，請確認 Word 已啟動');
    Exit;
  end;
  StrPCopy(Macro, MacroCmd);
  if not DdeClient.ExecuteMacro(Macro, False) then
    ShowMessage('巨集執行失敗：' + MacroCmd);
  DdeClient.CloseLink;
end;

常用 Word 巨集命令表

注意事項與現代替代

• DDE 需 Word 已執行且為 DDE Server (舊版 Word 預設啟用，新版可能需設定)。
• DDE 為單工、無型別安全、易受版本影響，**已被 Microsoft 棄用**。
• 現代方案：OLE 自動化 (CreateOleObject('Word.Application'))、Open XML SDK (操作 .docx)、Microsoft Graph API (雲端)。