Док = Метаданные.Документы; 
СписокДокументов = Новый СписокЗначений(); 
СписокДокументов.Добавить(Док.ПлатежноеПоручениеИсходящее, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежноеПоручениеВходящее, , Ложь); 
СписокДокументов.Добавить(Док.АккредитивПереданный, , Ложь); 
СписокДокументов.Добавить(Док.АккредитивПолученный, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежноеТребованиеВыставленное, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежноеТребованиеПолученное, , Ложь); 
СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПереданное, , Ложь); 
СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПолученное, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежныйОрдерСписаниеДенежныхСредств, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежныйОрдерПоступлениеДенежныхСредств, , Ложь); 
Если СписокДокументов.ОтметитьЭлементы("Укажите, какие списки документов открыть") Тогда 
   Для Каждого НазваниеДокумента из СписокДокументов Цикл 
         Если НазваниеДокумента.Пометка Тогда 
                        ФормаСписка = Документы[НазваниеДокумента.Значение.Имя].ПолучитьФормуСписка(); 
                        ФормаСписка.Открыть(); 
         КонецЕсли; 
       КонецЦикла; 
КонецЕсли;