Есть задача загружать информацию из документов Word в 1С 8.0 . В документе есть таблица , в основном эту таблицу и надо загружить. Пока нашел только как создается объект Word.Application, больше ничего найти не могу

up

из экселя легче загружать, из ворда хз

(0) А.Михайлов 1С: 7.7/8.0 Системное программирование "Работа с Microsoft Word"

там почитай

это понятно - то есть из ворда вообще вариантов нет ?

ну как ето неть..есть ActiveX

недавно обсуждали , поищи..
да и на крайняк таблицу можно подцепить перебором коллекций объектов в документе по оле

теоретически могу предположить, что возможно, скажем, из Делфи подключиться к Ворду, разобрать объект на таблицы, абзацы. Потом цепляться к 1с и туда грузить.

почему нет? есть :)

   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 Цикл
   
   Таб.Rows.Alignment = 1;



(7) ужоснах.

(8)
это я так понимаю создание в Ворде таблицы на основе 1С, а мне нужно обратной действие найти таблицу в вордовском документе и загрузить ее в табличную часть документа

(10) ооо ЁЁЁЁЁ шире вселенной горе моё..

(10) дык методы и объекты теже
сначала смотришь коллекцию - Документ.Tables
определяешь нужную таблицу  - Документ.Tables.Items(1) или как-то так
читаешь данные из таблицы - Таб.Cell(1, 3).Range.Text

(0) Почему именно Ворд?

еще маленький вопросик
       Попытка
       Wk = Новый COMОБъект("Word.Application");
   Исключение
       Сообщить(ОписаниеОшибки());
   КонецПопытки;
   Wk.WorkBooks.Open("С:\file.doc");
   Wk.Quit();
Создаю объект, выбираю файл и программа выдает ошибку "Поле объекта не обнаружено (WorkBooks)"  Я что-то неправильно делаю ?

(9) сам в шоке

(13)
потому что из банка документы поступают в этом формате, заставить банк выгружать их в Excel пока не реально , вот и пробую из Ворда загружать

:)
Wk.Documents.Open

и поставь ужо справку в ворде по VBA

хм, думал новичок, заглянул в карточку, ндя
не приходилось на VBA писать?

(19)
с Excel-ем работал , с Вордом как-то совсем не приходилось