Подскажите как передать данные в таб. часть Word из таблицы 1C? #486669

Подскажите как передать данные в таб. часть Word из таблицы 1C?

нашел модель пробую так

то выдает кучу ошибок Таб = ТД.Tables.Add(Selection<<?>>.Range, 2, 4); {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (Selection) Таб.Columns.PreferredWidthType    = wdPreferredWidthPoints<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (wdPreferredWidthPoints) Таб.Columns.PreferredWidth    = WordApp<<?>>.CentimetersToPoints; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (WordApp) Таб.Columns.PreferredWidth    = WordApp<<?>>.CentimetersToPoints; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (WordApp) Таб.Columns.PreferredWidth    = WordApp<<?>>.CentimetersToPoints; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (WordApp) Таб.Columns.PreferredWidth    = WordApp<<?>>.CentimetersToPoints; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (WordApp) Таб.ApplyStyleHeadingRows    = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue) Таб.ApplyStyleLastRow        = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue) Таб.ApplyStyleFirstColumn    = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue) Таб.ApplyStyleLastColumn    = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue) Таб.Cell(1, 1).Range.Font.Bold    = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue) Таб.Cell(1, 2).Range.Font.Bold    = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue) Таб.Cell(1, 3).Range.Font.Bold    = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue) Таб.Cell(1, 4).Range.Font.Bold    = xlTrue<<?>>; {Документ.НН_Заявка.Форма.Модуль}: Переменная не определена (xlTrue)

если делаю так то таблица появляется не там где нужно

то балицы увы нет на форме

документа

не ужели ни кто еще не проснулся

По поводу переменной вполне закономерно. Её в 1с нет. Ищи её значение в визуал бэйсике. Да и всё остальное ищи там же. Как вариант можно создавать в ворде макросы и осознавать, что они делают. Но чтение матчасти даёт больше гарантии успеха.

может кто поделиться примером матчасть конечно это хорошо но времени нет

ап

Кстати даже ТД.Selection не взлетит, так как это ссылка на выделенный элемент. По опыту работы без таблиц самое простое - замена значений. С таблицами - сложнее. Опыта нет. Нужно искать как позиционироваться на нужную таблицу.

жду народ у кого есть опыт может подскажет

+Один из вариантов - использовать закладки.

пример можешь дать рабочий для ТиС или бух любу таблицу выгрузку в Ворд

Рабочий- надо писать. А так я даю тебе направление. Выдели таблицу. Далее Вставка-закладка даешь имя, ставишь галочку скрытые закладки(может это и лишнее). Далее Сервис-макрос- начать запись. Правка-найти-закладку выбираешь твою закладку. Останавливаешь запись макроса и внимательно изучаешь его текст.

Что то стало получаться Заносит в 1 столбец номер по порядку выравнивает его по центру Но вопрос как во второй,третий и т.д. занести данные Товар количество и т.д.

У selection есть метод goto, но там синтаксис неудобный

Кстати, Cell возможно тоже заработает

Из 1С по-любому не получится сделать всё тоже, что ты можешь сделать в Visual Basic и поэтому реальный вариант один - прописать макросы и сохранить вордовский документ с макросами и их запускать из 1С, можно создать макросы с параметрами и в эти параметры из 1С передавать значения, ну вот пример для Excel:    ExcelApp=СоздатьОбъект("Excel.Application");

не ужели в этом примере нельзя передать в другой столбец другие параметры?

Можно её перехитрить. Понапиши в шаблоне макросов и вызывай их из 1с как-то так Normal.NewMacros.macros1

Все работает в , только надо правильные параметры подставить: ... Таб = ТД.Tables.Add(ТД.Range(НомерСимволаКудаВставляешьТаблицу, НомерСимволаКудаВставляешьТаблицу), 2, 4); ... Таб.ApplyStyleHeadingRows    = -1; ...

А вот и знатоки визуал бэйсика подтянулись :-)

Кстати, вопрос. Как можно переделать синтаксис следующей команды, чтобы её можно было вызвать по оле.

смотри в справке числовые значения констант VB и их подставляй и вместо Selection подставляй объект в котором переходишь я так, где-то рядом, вот Абрахамс если заглянет, никому мало не покажется :)

PaulBC, объясни на моем примере как мне во второй столбец этой таблицы добавить посля с таблицы 1С СокрЛП(Товар.ПолнНаименование)

как мне сменить номер столбца? я понимаю что Таблица.Cell(Ном + 1,1).Select; я меняю по строчно

и опять ни кого не ужели сегодня не мой день

вроде бы стал разбираться

Пипец какой-то. Справки по VBA нет, чтоль? К ячейке таблицы можно обращаться типа Table.Cell

:-))

пример бы дал сразу бы разобрался

-))