使用初始名称创建单词

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

您试图将Name 分配给不正确的Application 对象。

看看下面的代码对你有没有帮助：

Sub CreateNewWordDoc()

    Dim wrdApp As Object 'Word.Application
    Dim wrdDoc As Object 'Word.Document

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

    Set wrdDoc = wrdApp.Documents.Add
    With wrdDoc
        .SaveAs "desiredFileName"
    End With

End Sub

Answer 2

无法在不保存文档的情况下为其命名 - 这就是 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。