创建包含标点符号的文件名

Question

我正在创建一个 Word 模板，该模板将在保存时创建文件名。

在文档中第一个表格的第二个单元格中，有一个参考字段，类似于：

P2457.0227178P1 

其中，前 5 个字符是大小写参考，然后是句号或“句点”，然后是 6 位日期 (MMddyy)，然后是两位数后缀。

句点、日期和后缀由 Word 自动创建，前缀是用户生成的。

为了使它成为保存时的默认文件名，下面的代码将此单元格的内容作为文档标题。
保存时，Word 会在句号之前切断文档标题，因此它只提供前缀作为文件名。

如何将整个引用作为默认保存文件名？

Sub SaveAsFilename()
    Dim MyDocTitle As String
    Dim oDoc As Document
    Dim oRng As Range
    
    Set oDoc = ActiveDocument
    
    oDoc.Tables(1).Rows(1).Cells(2).Select
    
    Set oRng = Selection.Cells(1).Range.Paragraphs(1).Range
    oRng.End = oRng.Cells(1).Range.End - 1
    oRng.Select
    
    MyDocTitle = Selection.Text
    
    With Dialogs(wdDialogFileSummaryInfo)
        .Title = MyDocTitle
        .Execute
    End With
    
    Dialogs(wdDialogFileSaveAs).Show
End Sub

Answer 1

这样做：

With Dialogs(wdDialogFileSaveAs)
    .Name = MyDocTitle
    .Show
End With

希望对您有所帮助。