如何使用宏获取 Word 文档的当前文件名（不带扩展名或完整路径）？

我有代码可以提取文件的完整路径，减去扩展名，并且我正在尝试将其修改为仅存储文件名，再次不包含扩展名。

Sub ShowFilename()

Dim pathName As String
With ActiveDocument
If Len(.Path) = 0 Then
.Save
End If
If Right(.Name, 1) = "x" Then
pathName = Left$(.FullName, (Len(.FullName) - 5))
Else
pathName = Left$(.FullName, (Len(.FullName) - 4))
End If
End With
MsgBox pathName

End Sub

这显示C:\Users\test，文档的名称是test.docm。如何修改它以仅显示文件名？我需要把绳子分开吗\并提取最后一部分？

FSO 有一组针对此类事物的方法，其中之一是“getBaseName”

Msgbox CreateObject("scripting.filesystemobject").getbasename(o.Name)

http://msdn.microsoft.com/en-us/library/xhxzwwe1(v=vs.84).aspx http://msdn.microsoft.com/en-us/library/xhxzwwe1(v=vs.84).aspx