ドキュメントの Title プロパティを設定した場合、[名前を付けて保存] を選択すると、それが使用されるドキュメント名になります。デフォルトの保存場所を設定することもできます。VBAで
Set doc = ActiveDocument
sTitle = doc.BuiltInDocumentProperties("Title").Value
doc.BuiltInDocumentProperties("Title").Value = "A different title"
ただし、これは 2 回目以降の保存試行でのみ機能します。最初の試行では常に、テンプレートのタイトルがあればそれを使用し、ドキュメントの最初の行のコンテンツがなければそれを使用します。より良い解決策については、この回答の最後を参照してください。
ただし、新しいタイトルを有効にするには、名前を付けて保存する前にドキュメントに変更を加える必要があることに注意してください。
Sub SetSummaryInfo()
Dim dp As Object
Dim sTitle As String
If Documents.Count > 0 Then
Set dp = Dialogs(wdDialogFileSummaryInfo)
' Retrieve value of "Title" into a variable.
sTitle = dp.Title
' Set "Title" to a new value.
dp.Title = "My Title"
' Set the value without showing the dialog.
dp.Execute
' Save the changes
'ActiveDocument.Save
End If
End Sub
C# の HCL で指摘されているように、次のコードを使用してデフォルトのファイル名 (ダイアログのみ) を設定できます。
dynamic dialog = wordApp.Dialogs[WdWordDialog.wdDialogFileSummaryInfo];
dialog.Title = "MyTitle";
dialog.Execute();
これにより、標準の「名前を付けて保存」ダイアログが開き、デフォルトのファイル名が設定され(「タイトル」プロパティから期待されるものではありませんが、それが機能します)、ダイアログが開きます。