Выдаёт ошибку при заполнении шаблона word и формировании внешней печ формы документа:
Ошибка при установке значения атрибута контекста (Text)
   Find.Replacement.Text = СокрЛП(ТекстЗамены);
по причине:
Произошла исключительная ситуация (Microsoft Word): Слишком длинный строковый параметр.
Функция замены:
Функция WordFindReplace(ОбъектВорд, ТекстПоиска, ТекстЗамены)
   
ТекстПоиска = "@" + СокрЛП(ТекстПоиска) + "@";
   
   wdReplaceAll = 2;
   wdFindContinue = 1;
   
   Find = ОбъектВорд.Content.Find;
   Find.Text = ТекстПоиска;
   Find.Replacement.Text = СокрЛП(ТекстЗамены);
   Find.Forward = True;
   Find.Wrap = wdFindContinue;
   Find.Format = False;
   Find.MatchCase = False;
   Find.MatchWholeWord = False;
   Find.MatchWildcards = False;
   Find.MatchSoundsLike = False;
   Find.MatchAllWordForms = False;    
               
   Find.Execute(, , , , , , , , , , wdReplaceAll)

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

Как обойти проблему?

пробовал делить строку в цикле по 255 символов, но в итоге результат получается последний кусок текста из 255 символов.

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

вот замена в цикле:

   ТекстПоиска = "@" + СокрЛП(ТекстПоиска) + "@";
   
   wdReplaceAll = 2;
   wdFindContinue = 1;
   
   Find = ОбъектВорд.Content.Find;
   Find.Text = ТекстПоиска;
   Если  СтрДлина(ТекстЗамены) > 255 Тогда
       
       ОстатокТекстаЗамены = СтрДлина(ТекстЗамены);    
       i = 1;
       Пока ОстатокТекстаЗамены > 255 Цикл
           ПорцияТекстаНаЗамену255 = Сред(ТекстЗамены, i, 255);        
           Find.Replacement.Text = СокрЛП(ПорцияТекстаНаЗамену255);
           i = i + 255;
           ОстатокТекстаЗамены = СтрДлина(ТекстЗамены) - i;
       КонецЦикла;
       
   КонецЕсли;
   //Find.Replacement.Text = СокрЛП(ТекстЗамены);
   Find.Forward = True;
   Find.Wrap = wdFindContinue;
   Find.Format = False;
   Find.MatchCase = False;
   Find.MatchWholeWord = False;
   Find.MatchWildcards = False;
   Find.MatchSoundsLike = False;
   Find.MatchAllWordForms = False;    
               
   Find.Execute(, , , , , , , , , , wdReplaceAll)

(2) каким образом?

(2) сам то пробовал хоть раз?

(5) да.. более чем здорово.
раньше тоже заморачивался всякие трудовые через шаблоны ворда хреначить...
а результат тот же что и табличный документ сохраненный в нужном формате

Че-то очень сложно.
Я делал обработку по заполнению договора, с проблемами как в (0) не сталкивался.... могу поискать кусок кода

(6)Попробовал.
"Документ Word 2007 не может содержать более 63 колонок и 32767 строк"

(3) так вы Find.Execute не включили в цикл. Чего издеваетесь?

(2) сохранять в формате html?

(9) если сразу сделать в цикле Find.Execute, то цикл один раз отработает и строка поиска затрётся

2(10) почему?

2(8) а для ворд-документа очень важно содержать 63 колонки и 32767 строк? Чтобы можно было наверное распечатать все это дело?

Может где-то в коде не хватает ПС?

(3)Может где-то в коде не хватает ПС?

Делай. Заменить(СтрокаПоиска, ТекстЗамены+СтрокаПоиска)

(16) применительно к моему коду в (3), можно продемонстрировать?

делать людям нечего...

(16)у объекта word нет такого метода

2(19) поэтому его и не использууют.
а используют только те кто знает как пользоваться find и replace

(20) ну подсказывайте, коль есть способ решить проблему

(17) ну ты совсем обнаглел.
-Вы что и есть за меня будете?
-Ага!

в 2 и 5 подсказали

(22) не думаю, просто, этот кусок кода какая-то абстракция в данном случае.

надо думать.. если не думать, то ничего не получится.

вообщем, решений, не меняя принцип формирования печатной формы, нет?

c.Find.Execute
   While c.Find.Found
       Debug.Print c.Text
       '~~> I am assuming that the start word and the end word will only
       '~~> be in the start and end respectively and not in the middle
       Debug.Print Replace(Replace(c.Text, StartWord, ""), EndWord, "")
       c.Find.Execute
   Wend

может тут пригодится

http://infostart.ru/public/18940/

вообщем сделал так:


   ТекстПоиска = "@" + СокрЛП(ТекстПоиска) + "@";
   
   wdReplaceAll = 2;
   wdFindContinue = 1;
   
   Find = ОбъектВорд.Content.Find;
   Если  СтрДлина(ТекстЗамены) > 231 Тогда
       
       ОстатокТекстаЗамены = СтрДлина(ТекстЗамены);    
       i = 1;
       
       Пока ОстатокТекстаЗамены > 231 Цикл
           ПорцияТекстаНаЗамену255 = Сред(ТекстЗамены, i, 231);        
           Find.Forward = True;
           Find.Wrap = wdFindContinue;
           Find.Format = False;
           Find.MatchCase = False;
           Find.MatchWholeWord = False;
           Find.MatchWildcards = False;
           Find.MatchSoundsLike = False;
           Find.MatchAllWordForms = False;    
           
           Find.Execute(ТекстПоиска, , , , , , , , ,СокрЛП(ПорцияТекстаНаЗамену255) + ТекстПоиска, wdReplaceAll);
           i = i + 231;
           ОстатокТекстаЗамены = СтрДлина(ТекстЗамены) - i;
       КонецЦикла;
       
   КонецЕсли;
осталось перенести в word перевод строки как изначально в строке замены, как это можно организовать?

Как из 1с скомандовать word, чтобы он перенёс строку?

получилось:

   ТекстПоиска = "@" + СокрЛП(ТекстПоиска) + "@";
   
   wdReplaceAll = 2;
   wdFindContinue = 1;
   
   Find = ОбъектВорд.Content.Find;
   
   ОстатокТекстаЗамены = СтрДлина(ТекстЗамены);    
   i = 1;
   
   Для Счетчик = 1 По СтрЧислоСтрок(ТекстЗамены) Цикл
       
       ТекСтрока = СтрПолучитьСтроку(ТекстЗамены, Счетчик);
       Find.Forward = True;
       Find.Wrap = wdFindContinue;
       Find.Format = False;
       Find.MatchCase = False;
       Find.MatchWholeWord = False;
       Find.MatchWildcards = False;
       Find.MatchSoundsLike = False;
       Find.MatchAllWordForms = False;    
       
       Если Счетчик = СтрЧислоСтрок(ТекстЗамены) Тогда
           Find.Execute(ТекстПоиска, , , , , , , , ,"" + СокрЛП(ТекСтрока), wdReplaceAll);
       Иначе
           Find.Execute(ТекстПоиска, , , , , , , , ,СокрЛП(ТекСтрока) + Символ(13)+Символ(10) + ТекстПоиска, wdReplaceAll);
       КонецЕсли;
   
   КонецЦикла;
теперь осталось организовать отступы абзацев, если кто в курсе подсказывайте, буду признателен.

(31) поиск в гугле "Объектная модель Word" спасет отца русской демократии

тема закрыта, всем благодарен за участие.