通过Delphi自动化设置Word文档默认保存路径与文件名

需求：通过Delphi自动化控制Word，设置文档的默认保存文件夹和文件名，无需直接保存文档，让用户关闭或主动保存时自动使用该默认设置。

已尝试的方法及问题 #

• 方法一（无效果）：

  Dialog := Application.Dialogs[wdDialogFileSummaryInfo];
  Dialog.Title := 'MyFolderFilename'
  

  执行后无任何效果，无法设置默认保存信息。

• 方法二（报错）：

  Application.ActiveDoument.BuiltInDocumentProperties(wdPropertyTitle).Value := 'MyFolderFilename';
  

  运行时提示BuiltInDocumentProperties不存在，无法执行。

• 方法三（效果有限）：

  Dialog := Application.FileDialog[msoFileDialogSaveAs];
  Dialog.InitialFileName := 'MyFolderFilename';
  Dialog.Show;
  

  调用Show时默认路径和文件名能正常显示，但如果不调用Show，或调用后取消对话框，后续用户关闭/保存文档时，默认设置会失效。

问题解答 #

1. 能否将自定义FileDialog的默认设置传递给Word后续的原生保存对话框？ #

Word没有直接的API可以将自定义FileDialog的配置同步到原生保存对话框的默认值中。不过可以单独设置默认保存文件夹：

// 设置默认保存文件夹
Application.Options.DefaultFilePath[wdDocumentsPath] := 'C:\Your\Target\Folder';

但默认文件名无法通过全局属性设置，必须结合事件处理来实现。

2. 能否Hook保存/关闭事件，替换原生对话框为自定义FileDialog？ #

可以通过Word的事件模型实现，核心是监听DocumentBeforeSave事件，取消原生保存流程，转而显示自定义的保存对话框并处理保存逻辑：

步骤示例：

1. 首先在Delphi中定义Word事件的处理类（需引入Word类型库）：

type
  TWordEventHandlers = class
  private
    FWordApp: Word.Application;
    procedure DocumentBeforeSave(Sender: TObject; var Doc: Word.Document;
      var SaveAsUI: Word.WdSaveOptions; var Cancel: Word.WdSaveOptions);
  public
    constructor Create(AWordApp: Word.Application);
  end;

constructor TWordEventHandlers.Create(AWordApp: Word.Application);
begin
  FWordApp := AWordApp;
  // 绑定DocumentBeforeSave事件
  FWordApp.DocumentBeforeSave := DocumentBeforeSave;
end;

procedure TWordEventHandlers.DocumentBeforeSave(Sender: TObject; var Doc: Word.Document;
  var SaveAsUI: Word.WdSaveOptions; var Cancel: Word.WdSaveOptions);
var
  SaveDialog: FileDialog;
begin
  // 取消原生保存对话框
  Cancel := wdCancel;
  
  // 显示自定义保存对话框
  SaveDialog := FWordApp.FileDialog[msoFileDialogSaveAs];
  SaveDialog.InitialFileName := 'C:\Your\Target\Folder\MyDefaultFilename.docx';
  // 可添加其他对话框配置，如文件类型筛选等
  
  if SaveDialog.Show = -1 then // 用户点击保存
  begin
    Doc.SaveAs2(SaveDialog.SelectedItems.Item(1));
  end;
end;

2. 在初始化Word自动化时创建事件处理实例：

var
  WordApp: Word.Application;
  EventHandlers: TWordEventHandlers;
begin
  WordApp := CoWordApplication.Create;
  WordApp.Visible := True;
  EventHandlers := TWordEventHandlers.Create(WordApp);
  // 后续操作...
end;

通过这种方式，用户触发保存（或关闭时触发的保存提示）时，会自动显示你配置好的自定义保存对话框，完全替代原生对话框的行为。

内容的提问来源于stack exchange，提问作者LandShark