excel - 使用初始名称创建单词

Question

我正在尝试使用初始文件名从 Excel 创建 Word 文档，以便在保存过程中更快。 Word 文档不可能是宏文件，因为我无法将它们保存在我们的 SharePoint 中。

在打开 Word 文档之前，我执行以下操作:

从日志文件 (txt) 中选择特定的文本段落并将它们放在 Excel 文档中。

在 Excel 文档中，它们被存储用于控制工作。

从那里，一些信息将被转移到 Word 文档中，然后保存用于记录案例。

我找到了一些方法来更改active.document中的名称，但是Word文档不应该是active.document。

我想在创建 Word 文档之前初始化所需的名称:我想在文档窗口的标题中显示此名称，并在用户第一次尝试保存时建议它。

我尝试了以下方法，但它说这是不可能的，因为它是一个只读属性:

Sub CreateNewWordDoc()

    Dim wrdApp As Word.Application
    With wrdApp
        .Name = "desiredFileName"
    End With

    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True

    Dim wrdDoc As Word.Document
    Set wrdDoc = wrdApp.Documents.Add

End Sub

是否可以在不实际保存文件的情况下提供所需的文件名？

Answer 1

不保存文档是不可能给文档命名的——这就是 Word 的设计方式。什么是可能的:

更改文档窗口的标题:

wrdDoc.ActiveWindow.Caption = "desired file name"

请注意，如果用户出于某种原因为同一文档创建附加窗口，则此标题将不会传递给他们。

显示另存为对话框时预设建议的文件名:

 With wrdApp.Dialogs(Word.WdWordDialog.wdDialogFileSummaryInfo) 'enum value 86
   .Title = "desired file name"
   .Execute
 End With

这会将字符串写入内置文档属性 Title , Word 在为未保存的文档显示另存为时引用的内容。出于某种原因，使用 Document.BuiltinDocumentProperties(wdPropertyTitle)不起作用，因此必须检查内置对话框的路线。如需更多信息，请参阅 https://wordmvp.com/FAQs/MacrosVBA/SetDefFilename.htm .