Напрямую вроде нет ничего. Либо как (6), либо можно хитро, в попытках обработать:
Попытка
ВидОбъекта = ТекФорма.Ссылка;//ТипЗначения = "Документ или Справочник";
Исключение
КонецПопытки;
Попытка
ВидОбъекта = ТекФорма.ДокументСписок;//ТипЗначения = "ДокументСписок";
Исключение
КонецПопытки;
(7) Спасибо. Пришел к мнению что в данной ситуации это единственный способ.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший