Установка фильтра по расширению
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.