// Mortal - не претендую на красоту решения, сделал так: //добавил общий модуль mortalАвтонумерация, в котором 1 функция  Функция ПолучитьНомер(Ссылка) Экспорт     ДокИмя = Ссылка.Метаданные().Имя;     Запрос = Новый Запрос;     Запрос.Текст =       "ВЫБРАТЬ ПЕРВЫЕ 1    |    " + ДокИмя + ".Ссылка,    |    " + ДокИмя + ".Дата,    |    " + ДокИмя + ".Номер КАК Номер    |ИЗ    |    Документ." + ДокИмя + " КАК " + ДокИмя + "    |ГДЕ    |    " + ДокИмя + ".Дата МЕЖДУ &ДатаНачала И &ДатаКонца	|    И " + ДокИмя + ".Ссылка <> &ЭтотОбъект    |    И ПОДСТРОКА(" + ДокИмя + ".Номер, 1, 5) <> ""-""    |    И ПОДСТРОКА(" + ДокИмя + ".Номер, 1, 1) = ""0""    |    |УПОРЯДОЧИТЬ ПО    |    Номер УБЫВ";         Запрос.УстановитьПараметр("ДатаНачала", '20130101000000');       	  Запрос.УстановитьПараметр("ДатаКонца",  '20131231235959');        	  Запрос.УстановитьПараметр("ЭтотОбъект", Ссылка);    Результат = Запрос.Выполнить();    Выборка = Результат.Выбрать();    Выборка.Следующий();                                       НомерЧислом = Число(Прав(Выборка.Номер,6));    НовыйНомерСтрокой = Формат((НомерЧислом + 1),"ЧГ=0");    Если СтрДлина(НовыйНомерСтрокой) = 1 Тогда        НовыйНомерСтрокой = ("0000000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 2 Тогда        НовыйНомерСтрокой = ("000000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 3 Тогда        НовыйНомерСтрокой = ("00000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 4 Тогда        НовыйНомерСтрокой = ("0000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 5 Тогда        НовыйНомерСтрокой = ("000000" + НовыйНомерСтрокой);    КонецЕсли;        Возврат(НовыйНомерСтрокой);        КонецФункции// в модуле объекта нужных документов (для которых обязательна сквозная нумерация до конца года) добавил //mortal temp+Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)        Если ЭтотОбъект.ЭтоНовый() Тогда        Если ЭтотОбъект.Дата <= '20140101000000' И ТекущаяДата() <= '20140101000000' Тогда            ЭтотОбъект.Номер = mortalАвтонумерация.ПолучитьНомер(ЭтотОбъект.Ссылка);            КонецЕсли;    КонецЕсли;КонецПроцедуры//mortal temp-   

  // после 

Функция ПолучитьНомерНаПечать(Знач НомерОбъекта, УдалитьПрефиксИнформационнойБазы = Ложь, УдалитьПользовательскийПрефикс = Ложь) Экспорт

// добавляем



//Префикс при печати нам не нужен

	УдалитьПрефиксИнформационнойБазы = Истина;

   

  ТабДокумент  = Новый ТабличныйДокумент;

    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Справка";



    АктивныйДокумент = ПолучитьМакет("Макет");

    КомОбъект = АктивныйДокумент.Получить();



    Попытка



        Word = КомОбъект.Application;

        Док=Word.Documents(1);

        // Отключим проверку грамматики и вывод информации о грамматических ошибках.

        Док.GrammarChecked=0;

        Док.ShowGrammaticalErrors=0;



        Док.Activate();

        Файл = КаталогВременныхФайлов() + "файл" + Выборка.Номер + ".doc";

        Word.S_election.WholeStory();

        Word.S_election.Copy();



        Счетчик = 1;

        Для каждого Строка Из СсылкаНаОбъект.Товары Цикл



            Замена = Док.Content.Find;

            НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект);

            Замена.Execute("[Номер]",  Ложь, Истина, Ложь, , , Истина, , Ложь, НомерДокумента);

            Замена = Док.Content.Find;

            Замена.Execute("[Дата]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Формат(Выборка.Дата, "ДЛФ = ДДММГГ"));

            Замена = Док.Content.Find;

            Замена.Execute("[Наименование]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(Строка.Номенклатура));

            Замена = Док.Content.Find;

            Замена.Execute("[Количество]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(Строка.Количество));

            Замена = Док.Content.Find;

            Замена.Execute("[Декларация]", Ложь, Истина, Ложь, , , Истина, , Ложь, РегНомерДекларации);

            Замена = Док.Content.Find;

            СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Организация, Выборка.Дата,,);

            ФактАдрес = ФормированиеПечатныхФормСервер.ОписаниеОрганизации(СведенияОПоставщике, "ФактическийАдрес");

            Производитель = Выборка.ОрганизацияНаименованиеСокращенное + ", " + Выборка.ФактАдресОрганизации;

            Замена.Execute("[Производитель]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Производитель);



            Word.S_election.EndKey(6);



            Если Счетчик < СсылкаНаОбъект.Товары.Количество() тогда

                Word.S_election.I_nsertBreak(7);

                Word.S_election.Paste();

            КонецЕсли;

            Счетчик = Счетчик + 1;

        КонецЦикла;



        Док.SaveAs(Файл);

        Док.Close(0);



        ЗапуститьПриложение("""" + Файл + """");



    Исключение

        Сообщить(ОписаниеОшибки());

        Word.Quit();

    КонецПопытки;   

 // Например необходимо:

// в строке "C:\Documents and Settings\E.S.Migachev\Рабочий стол\1С" получить номер последнего символа "\"

//Ном= ПолучитьНомерПоследнегоСимвола( "C:\Documents and Settings\E.S.Migachev\Рабочий стол\1С", "\")

//в результате Ном=53

Функция ПолучитьНомерПоследнегоСимвола(Знач ИсходнаяСтрока, Знач СимволПоиска)

	ПозицияСимвола = СтрДлина(ИсходнаяСтрока);

	Пока ПозицияСимвола >= 1 Цикл

		Если Сред(ИсходнаяСтрока, ПозицияСимвола, 1) = СимволПоиска Тогда

			Возврат ПозицияСимвола; 

		КонецЕсли;

		ПозицияСимвола = ПозицияСимвола - 1;	

	КонецЦикла;

	Возврат 0;

  КонецФункции