1С + Word: Скопировать форматированный текст из одной ячейки таблицы в другую

[alexmyt]

Из 1С формируется документ Word на основе шаблона. Имеется таблица, в первой ячейке которой находится текст с форматированием. Остальные ячейки пустые. Необходимо скопировать текст из первой ячеки в остальные, не теряя форматирование.

Познания VB минимальные, решить проблему с наскока не получилось. Пытался сделать так (из 1С):

Table = Документ.Tables(Документ.Tables.Count);
Table.Cell(1,1).Select();
Text = Word.Selection.Range.FormattedText;

... // Цикл по строка и столбцам
Table.Cell(Row,Column).Range.FormattedText = Text;
... // КонецЦикла

В результате на последнем операторе ошибка:

Microsoft Word: Не удается скопировать содержимое между двумя этими диапазонами.

Помогите, пожалуйста, решить проблему.

[HandKot]

alexmyt

при копировании ячейки в ячейку, сохраняется форматирование копируемой ячейки

Код:

Public Function MyCopy()
    Dim tbl As Table
    Set tbl = ThisDocument.Tables(1)
    'копируем нужную ячейку
    tbl.Cell(1, 1).Select
    Selection.Copy

    For i = 1 To 5
        'вставляем данные
        tbl.Cell(2, i).Range.Paste
    Next i
End Function

[DDD2006]

Может нужно новую тему открыть, но решил задать вопрос в эту?
Пытаюсь сделать шаблон договора в Word 2003
пишу в 1С

Процедура Договор()
   
   WordApp=СоздатьОбъект("Word.Application");
   NewDoc=WordApp.Documents;           
   //Открітие файла
   Док=NewDoc.Add("d:\Тест.doc");
   //Заполнение текстового поля
   Док.FormFields("ТекстовоеКонтрагент").Result =СокрЛП(Контрагент.ПолнНаименование);
   Док.FormFields("ДатаДоговора").Result=СокрЛП(Договор.Наименование);
   Док.FormFields("ДатаВозникновенияДог").Result=СокрЛП(Формат(Договор.ДатаВозникновенияОбязательства,"Д (0)ДДММММГГГГ"));
   Док.FormFields("СокрФИО").Result=СокрЛП(ФИОКотраогент(Контрагент.ПолнНаименование));
   
   Док.FormFields("НомерПаспорт").Result=СокрЛП(Контрагент.ДокументНомер);       
   Док.FormFields("СерияПаспорта").Result=СокрЛП(Контрагент.ДокументСерия);
   
   Док.FormFields("ДатаВыдач").Result=СокрЛП(Контрагент.ДокументДатаВыдачи);
   Док.FormFields("ДокВыдан").Result=СокрЛП(Контрагент.ДокументКемВыдан);
   
   //WordApp.Documents.Open("d:\Тест.doc");
   Док.Save();
   //   Док.SaveAs("d:\"+ТекущаяДата()+" "+Контрагент.Наименование+".doc",0);
   Док.SaveAs("d:\"+Формат(ТекущаяДата(),"Д (0)ДДММММГГГГ") +" "+Контрагент.Наименование+".doc",1);
   Док.Documents.Open("d:\"+Формат(ТекущаяДата(),"Д (0)ДДММММГГГГ") +" "+Контрагент.Наименование+".doc");
   Док.Close();
   Док.Application.Quit();
   WordApp.Quit();
КонецПроцедуры

Но работает что-то он через раз и криво, не открывает этот заполненный договор, при открытии Ворда там 2 а то и более зависит от того сколько раз нажали документов... как можно исправить это?

Как можно записать уже в созданный файл?

Где можно скачать по VB хорошую документацию на русском?

[Polundra_Pi]

Я конечно не большой специалист по ВБА, но запись
 Док.Application.Quit();
   WordApp.Quit();
  есть масло маслянное,ведь достаточно записи WordApp.Quit(), которая завершает текущий процесс Ворда.
Не записывает в уже созданную заготовку возможно из-за того, что у файла поставлен атрибут только чтение.
И два раза сохранять информацию, не стоит, хотябы в самом файле заготовки, тоесть есле Вы используете метод
SaveAs, то Save не стоит применять, загразняя файл заготовки.
Хелп и есть неплохая, хоть и не самая лучшая документация, документация, не знаю есть он в русском переводе, но есть и другие книги.