Try...
[VBA]
left(ActiveDocument.Name, instrrev(ActiveDocument.Name, ".") -1)
[/vba]