Sub Demo() With ActiveDocument If .Path <> "" Then .BuiltInDocumentProperties("Title") = Right(.Path, Len(.Path) - InStrRev(.Path, "\")) End With End Sub