Установка фильтра по расширению

Q: Как на кнопку назначить команду cm_SrcUserSpec с параметрами фильтрации:
*.doc
;*.txt и т.д.?

A: Подвесь скрипт на кнопку

Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand "cm_SrcUserDef"
TCS.SendKeystroke "*.doc;*.txt"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing

Расширения вписывать понятно где. Для запуска нужен Script Helper.

Batya