Пример работы с Word через OLE. Часть 1. Создание документа без использования макетов.
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
// объединяем ячейки в конце таблицы
Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));
Скажите, а как в документе наоборот найти объединенные ячейки, или просто установить факт того, что например Документ.Tables(1) содержит объединенные ячейки.... Мне просто нужно прервать цикл загрузки документа, если в таблице есть объединенные ячейки
Спасибо заранее...
// Выравнивание по левому краю
Row.Cells(1).Range.ParagraphFormat.Alignment = 1;
По верхнему краю (wdCellAlignVerticalTop) - 0
По центру (wdCellAlignVerticalCenter) - 1
По нижнему краю (wdCellAlignVerticalBottom) - 3
Row.Cells(1).Range.ParagraphFormat.Alignment = 1;
По верхнему краю (wdCellAlignVerticalTop) - 0
По центру (wdCellAlignVerticalCenter) - 1
По нижнему краю (wdCellAlignVerticalBottom) - 3
Может сможет подсказать кто, как в документе Word скопировать и вставить ниже уже существующую таблицу.
Делаю так:
Шаблон = Новый COMОбъект("Word.Application");
Шаблон.Documents.Open(ИмяФайлаПолное);
Шаблон.Application.Documents(1).Content.Tables(1).Range.Copy();
Шаблон.Application.Documents(1).Content.InsertParagraphAfter();
Шаблон.Application.Documents(1).Content.Paste();
В результате таблица копируется но весь текст и предыдущая таблица исчезает.
Заранее благодарна.
Делаю так:
Шаблон = Новый COMОбъект("Word.Application");
Шаблон.Documents.Open(ИмяФайлаПолное);
Шаблон.Application.Documents(1).Content.Tables(1).Range.Copy();
Шаблон.Application.Documents(1).Content.InsertParagraphAfter();
Шаблон.Application.Documents(1).Content.Paste();
В результате таблица копируется но весь текст и предыдущая таблица исчезает.
Заранее благодарна.
Word.Selection.MoveDown(,числострок); // вниз
Word.Selection.MoveLeft(,числострок); // влево
Word.Selection.MoveRight(,числострок);// вправо
У меня с параметрами не ругаются.
Опустил курсор тупо в цикле Word.Selection.MoveDown()
Word.Selection.MoveLeft(,числострок); // влево
Word.Selection.MoveRight(,числострок);// вправо
У меня с параметрами не ругаются.
Опустил курсор тупо в цикле Word.Selection.MoveDown()
Здравствуйте, Nikola23!
Спасибо за представленный материал! Очень много полезных ньюансов! Когда начал пробовать чтото добавить возникли вопросы, например:
То что можно в файле Word записать макрос и разобрать код понятно. Вопрос в том, как его правильно перенести в среду 1с8.1 Можете подсказать источник, где бы этот вопрос был подробно расписан?
А еще столкнулся с такой проблемой. Может быть поможете... Вставляю картинку в Файл Word. При выполнении Объект.Application.Visible = 1 он отображается в масштабе 75%. Я вставляю в него картинку. Сохраняюю Все получается. При открытии этого файла в масштабе 100% картинка увеличивается в размерах. Как корректно выполнять вставку картинки?
Спасибо!
Спасибо за представленный материал! Очень много полезных ньюансов! Когда начал пробовать чтото добавить возникли вопросы, например:
То что можно в файле Word записать макрос и разобрать код понятно. Вопрос в том, как его правильно перенести в среду 1с8.1 Можете подсказать источник, где бы этот вопрос был подробно расписан?
А еще столкнулся с такой проблемой. Может быть поможете... Вставляю картинку в Файл Word. При выполнении Объект.Application.Visible = 1 он отображается в масштабе 75%. Я вставляю в него картинку. Сохраняюю Все получается. При открытии этого файла в масштабе 100% картинка увеличивается в размерах. Как корректно выполнять вставку картинки?
Спасибо!