可以通过以下步骤实现:
Sub GetFileNameTime()
Dim fileName As String
Dim fileTime As String
' 获取当前文档的文件名
fileName = ThisDocument.FullName
' 提取文件名中的时间部分
fileTime = Mid(fileName, InStrRev(fileName, "_") + 1, 14)
' 将提取到的时间保存到Word宏中
ThisDocument.Variables("FileNameTime").Value = fileTime
End Sub
这样,你就可以在Word文档中通过引用宏变量"FileNameTime"来使用文件名中的时间了。
注意:以上步骤是基于使用Microsoft Word的前提下进行的。对于其他文本编辑器或办公软件,具体实现方式可能会有所不同。
领取专属 10元无门槛券
手把手带您无忧上云