Люди плиз.
Как заполнить таблицу Word в цикле?

Народ че никто не знает, как это сделать?

В ворде нажми "записать макрос", сделай необходимые тебе заполнения, останови запись и посмотри что там записалось. Затем оберни всё в цикл.

Ворд=СоздатьОбъект("Word.Application");
Док=Ворд.Documents.Open(Файл);
Таблицы=Док.Tables;
Для к=1 По Таблицы.Count Цикл
 Таблица=Таблицы.Item(к);
 Строки=Таблица.Rows;
 Колонки=Таблица.Columns;
 Для стр=1 По Строки.Count Цикл
   Для кол=1 По Колонки.Count Цикл
     Сообщить(Таблица.Cell.Item(стр,кол);
   КонецЦикла;
 КонецЦикла;
КонецЦикла;

А таблица должна быть фиксированной длины, или ее можно заполнять сколь душе угодно

По идее второе но у меня нет примера см (2)

Я смотрю что (3) это пойдет для Excele,  а Ворде куда пихать мои значения он не понимает

(3) как запустить этот макрос из 1С приэтом использую шаблоны?

(4)

   Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter;
   
   Если СписокСотрудников.КоличествоСтрок() > 0 Тогда
       Таб = Документ.Tables.Add(Selection.Range, СписокСотрудников.КоличествоСтрок() + 1, 4);
   Иначе
       Таб = Документ.Tables.Add(Selection.Range, 2, 4);
   КонецЕсли;    //"Если СписокСотрудников.КоличествоСтрок() > 0 Тогда
   
   Таб.Columns.PreferredWidthType    = wdPreferredWidthPoints;
   Таб.Columns(1).PreferredWidth    = WordApp.CentimetersToPoints(1.3);
   Таб.Columns(2).PreferredWidth    = WordApp.CentimetersToPoints(7);
   Таб.Columns(3).PreferredWidth    = WordApp.CentimetersToPoints(5);
   Таб.Columns(4).PreferredWidth    = WordApp.CentimetersToPoints(3);
   
   Таб.Style                    = "Сетка таблицы";
   Таб.ApplyStyleHeadingRows    = xlTrue;
   Таб.ApplyStyleLastRow        = xlTrue;
   Таб.ApplyStyleFirstColumn    = xlTrue;
   Таб.ApplyStyleLastColumn    = xlTrue;
   
   Таб.Cell(1, 1).Range.Text    = "№№";
   Таб.Cell(1, 1).Range.Font.Bold    = xlTrue;
   
   Таб.Cell(1, 2).Range.Text    = "ФИО Работника";
   Таб.Cell(1, 2).Range.Font.Bold    = xlTrue;
   
   Таб.Cell(1, 3).Range.Text    = "№ текущего счета в рублях";
   Таб.Cell(1, 3).Range.Font.Bold    = xlTrue;
   
   Таб.Cell(1, 4).Range.Text    = "сумма перечислений";
   Таб.Cell(1, 4).Range.Font.Bold    = xlTrue;
   
   СписокСотрудников.ВыбратьСтроки();
   Пока СписокСотрудников.ПолучитьСтроку() > 0 Цикл
       НомерСтроки = СписокСотрудников.НомерСтроки + 1;
       Таб.Cell(НомерСтроки, 1).Range.Text    = Строка(СписокСотрудников.НомерСтроки);
       Таб.Cell(НомерСтроки, 2).Range.Text    = СокрЛП(СписокСотрудников.Сотрудник.Наименование);
       Таб.Cell(НомерСтроки, 3).Range.Text    = СписокСотрудников.НомерСчета;
       Таб.Cell(НомерСтроки, 4).Range.Text    = СписокСотрудников.Сумма;
   КонецЦикла;    //"Пока СписокСотрудников.ПолучитьСтроку() > 0 Цикл


$5

(4)к этой строке что вначале надо написать??

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter;

Таб или Документ

(8) Таб = Документ.Tables.Add(Selection.Range, СписокСотрудников.КоличествоСтрок() + 1, 4);

еще ругается на Selection че делать?

можно ли сделать таблицу в таблице?


   Попытка
       scr                = СоздатьОбъект("MSScriptControl.ScriptControl");
       scr.language    = "vbscript";
       WordApp            = scr.eval("CreateObject(""Word.Application"")");
   Исключение
       Попытка
           WordApp = СоздатьОбъект("Word.Application");
       Исключение
           Сообщить("Не удалось открыть Word. " + ОписаниеОшибки());
           Возврат;
       КонецПопытки;
   КонецПопытки;
   WordApp.DisplayAlerts    = xlFalse;
   Документ = WordApp.Documents.Add();
   Документ.Activate();
   Selection = WordApp.Application.Selection;


материт на чем свет стоит

WordApp.DisplayAlerts    = xlFalse<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(211)}: Переменная не определена (xlFalse)
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(219)}: Переменная не определена (wdAlignParagraphCenter)
Таб.Columns.PreferredWidthType    = wdPreferredWidthPoints<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(228)}: Переменная не определена (wdPreferredWidthPoints)
Таб.ApplyStyleHeadingRows    = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(235)}: Переменная не определена (xlTrue)
Таб.ApplyStyleLastRow        = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(236)}: Переменная не определена (xlTrue)
Таб.ApplyStyleFirstColumn    = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(237)}: Переменная не определена (xlTrue)
Таб.ApplyStyleLastColumn    = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(238)}: Переменная не определена (xlTrue)
Таб.Cell(1, 1).Range.Font.Bold    = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(241)}: Переменная не определена (xlTrue)
Таб.Cell(1, 2).Range.Font.Bold    = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(244)}: Переменная не определена (xlTrue)
Таб.Cell(1, 3).Range.Font.Bold    = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(247)}: Переменная не определена (xlTrue)
Таб.Cell(1, 4).Range.Font.Bold    = xlTrue<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(250)}: Переменная не определена (xlTrue)
При проверке модуля обнаружены синтаксические ошибки!

xlTrue = -1
xlFalse = 0

хорошо а с этим как быть?

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(222)}: Переменная не определена (wdAlignParagraphCenter)
Таб.Columns.PreferredWidthType    = wdPreferredWidthPoints<<?>>;
{Z:\1C общая\Фирмы\ЛэнгвичЛинк\Выгрузка в Банк word.ert(231)}: Переменная не определена (wdPreferredWidthPoints)
При проверке модуля обнаружены синтаксические ошибки!

wdPreferredWidthPoints = 3

wdAlignParagraphCenter = 1

попробую спасибо


xlFalse = 0;
xlTrue = -1;

xlAutomatic            = -4105;
xlThin                = 2;
xlContinuous        = 1;
xlEdgeLeft            = 7;
xlEdgeTop            = 8;
xlEdgeBottom        = 9;
xlEdgeRight            = 10;
xlInsideVertical    = 11;
xlInsideHorizontal    = 12;

wdAlignParagraphRight    = 2;
wdAlignParagraphCenter    = 1;
wdPreferredWidthPoints    = 3;
wdAlignRowCenter        = 1;
wdAlignParagraphLeft    = 0;


(19) С VBA совсем не дружишь?

(19) Кстати "Выгрузка в Банк word.ert" что-то мне смутно напоминает. В какой банк выгружаешь?

Спасибо ребят я решил эту проблему, через шаблоны и макросы в Word. Если кому чего скинуть могу.

Отдельное спасибо хочу выразить  "dk"