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

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

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

P2457.0227178P1 

其中，前5个字符是案例参考，然后是句号或“句点”，然后是6位日期（MMddyy），然后是两位后缀

句号、日期和后缀由Word自动创建，前缀由用户生成

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

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

子存储文件名（）
将MyDocTitle设置为字符串
作为文档的Dim-oDoc
暗角范围
设置oDoc=ActiveDocument
oDoc.表格（1）.行（1）.单元格（2）.选择
Set oRng=选择。单元格（1）。范围。段落（1）。范围
oRng.End=oRng.Cells（1）.Range.End-1
好的。选择
MyDocTitle=Selection.Text
带对话框（wdDialogFileSummaryInfo）
.Title=MyDocTitle
.执行
以
对话框（wdDialogFileSaveAs）.Show
端接头

执行以下操作：

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

希望有帮助