[CDR 2017-2021] Получить имя файла без расширения

[tohaa]

Добрый день.
Подскажите мне пожалуйста каким образом получить текущее имя файла без его расширения?
Name = ActiveDocument.Name возвращает "имя файла".cdr
А мне нужно получить только "имя файла" без расширения.

 

[_MBK_]

Я бы сказал даже так - проверять четвертый справа символ на равенство "." и если равен - отрезать последние 4 символа

 

[tohaa]

Элементарно!
Спасибо dastin!

Name = ActiveDocument.Name
Name = Left(Name, Len(Name) - 4) " удаление 4х последних символов имени файла
Name = Name & " что хотите дописать .cdr"