Для Ном=1 по СчетК.КоличествоСубконто() Цикл
        Форма.СубконтоК1.Заголовок(СокрЛП(СчетК.ВидСубконто(Ном)));
        НазначитьТип("СубконтоК"+Ном+"",СчетК.ВидСубконто(Ном));        
        ["СубконтоК"+Ном+""]: = Константа.ОснПодразделение;
    КонецЦикла;

СубконтоК1
СубконтоК2
СубконтоК3

Это реквизиты табличной части документа

Затык тут:
["СубконтоК"+Ном+""]: = Константа.ОснПодразделение;

УстановитьАтрибут(<?>,);
Синтаксис:
УстановитьАтрибут(<ИмяРеквизита>,<Значение>)
Назначение:
Установить значение реквизита по имени идентификатора.
Параметры:
<ИмяРеквизита> - строковое выражение, содержащее имя реквизита, как оно задано в конфигураторе.
<Значение> - выражение, содержащее устанавливаемое значение реквизита.

Семерка так не умеет. Делай через Если.

(1) Спасибо.

теперь затык в Форма.СубконтоК1.Заголовок

Как в форме подсунуть динамически СубконтоК1
СубконтоК2
СубконтоК3

(3) подсмотри в типовой бухгалтерской конфигурации документ приходный кассовый ордер

Форма.ПолучитьАтрибут("СубконтоК"+Ном+"").Заголовок(СокрЛП(СчетК.ВидСубконто(Ном)));

вот так получилось ) всем спасибо