vba - Word VBA - 保存时在文件名中添加日期和文档属性

Question

拳头，如果这已在另一个线程上得到回答，我很抱歉，我一直在寻找没有任何运气，我希望我在正确的地方发布这个问题。

基本上，我有一个 Word 文档 (Office 365)，我希望在保存文档时能够使用它。我希望文件名如下：CURENT DATE & STATIC TEXT & DOCUMENT PROPERTY(ABSTRATC) & DOCUMENT_PROPERTY(AUTHOR)

• 当前日期 = yyyy.mm.dd
• STATIC TEXT = 只是我添加的自定义文本，并且将永远是纯文本。
• DOCUMENT PROPERTY(ABSTRATC) = 在 Word 文档中，我添加了许多“文档属性”字段。在本例中为“摘要”。我希望它在文件名中。
• DOCUMENT_PROPERTY(AUTHOR) = 在 Word 文档中，我添加了许多“文档属性”字段。在本例中为“作者”。我希望它在文件名中。

我插入了一个 VBA 代码，它成功地完成了除了在文件名中添加文档属性之外的所有操作。我使用文档属性的原因是因为我希望 Word 中的首页在您填写第 2 页时自动填写。所以我希望这些字段也可以输入文件名。

这是可以做到的吗？

Public Sub FileSave1()
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & "" & Format((Year(Now() + 1) Mod 100), "20##") & "." & _
        Format((Month(Now() + 1) Mod 100), "0#") & "." & _
        Format((Day(Now()) Mod 100), "0#") & " Report - Firealarm - Building A"
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

标签： vbams-word