Еникеев Марат | Руководитель проектов 1С | ГК «Комплексная автоматизация»

«Структурно-независимые базы данных в 1С»

В докладе расскажу об идеях построения гибких (содержащих в БД структуру данных) систем на платформе 1С. Рассмотрим: - варианты развития функциональности известных подсистем БСП "Дополнительные реквизиты/сведения"; - как они соотносятся с конфигурациями "Конвертация данных (2 и 3)" и "Система проектирования прикладных решений"; - причем здесь паттерн программирования Модель-Представление-Контроллер (MVC) и расширение “Характеристики” языка запросов СКД; - по-новому посмотрим на периодические независимые регистры сведений и возможности их использования. Коснемся вопросов интеграции такого рода систем с внешними, в частности использование пакетов\фабрик XDTO, проведём аналогии с пакетом EnterpriseData (универсальный формат обмена данными). Обозначим области применения таких систем и их ограничения, в частности возможные подходы к решению проблем версионирования, производительности, обеспечения целостности данных и специфику формирования отчетов. Рассмотрим практический опыт разработки/внедрения/сопровождения подобной структурно-независимой формации на примере запатентованного продукта учета ресурсов системы здравоохранения и его механизмов интеграции с федеральным сервисом Единой Государственной Информационной Системы Здравоохранения в разрезе Федерального Регистра Медицинских Работников и других регистров. Поговорим об использовании этих идей в целях: - прототипирования информационных систем на этапе сбора/анализа требований, - построения экспертных систем поддержки принятия решений (ЭСППР) на базе описанной архитектуры.

поиск активной страницы Word.Application

1. kuza_87 24 28.12.16 07:17 Сейчас в теме
Всем привет. Передо мной стоит следующая задача. Нужно в 1с программно открыть документ DOCx, найти страницу на которой расположен определённый текст и изменить ориентацию этой страницы. Помогите разобраться ка это сделать. Заранее спасибо.
Вознаграждение за ответ
Показать полностью
Найденные решения
6. SlavaKron 28.12.16 17:27 Сейчас в теме +3 $m
ДокументWord.Content.Select();
ОбъектWord.Selection.Find.Execute("искомый текст");
НовыйРаздел = ДокументWord.Sections.Add(ОбъектWord.Selection.Range());
НовыйРаздел.PageSetup.Orientation = 1; //установить альбомную ориентацию страницы


как-то так.
Остальные ответы
Сортировка: Древо
2. Fox-trot 54 28.12.16 07:36 Сейчас в теме
так ты на каком этапе запнулся? 1с уже запускается?
3. kuza_87 24 28.12.16 08:09 Сейчас в теме
(2) конечно. 1с запускается, ком объект создаётся. Чё дальше делать не знаю
ОбъектWord = Новый COMОбъект("Word.Application");
		ОбъектWord.DisplayAlerts=ложь;
		Документ = ОбъектWord.Documents.Open(ПутьКФайлу);
		ДокументВорд = Документ.Application.Documents(1);
		ДокументВорд.Activate();		
		ДокументВорд.Content.Find.Execute("искомый текст");

4. igel9780 153 28.12.16 09:17 Сейчас в теме
Что бы сменить ориентацию только одной страницы в документе, необходимо выделить страницу в отдельный раздел документа. То-есть, в конце текста перед этой страницей нужно поставить разрыв раздела (со следующей страницы). И в конце текста этой страницы так же разрыв раздела. Просто разрыв страницы не сработает.

И не факт, что вставив разрывы разделов вы выделите одну страницу. Их вполне может оказаться и две.
5. kuza_87 24 28.12.16 10:49 Сейчас в теме
(4)А мне и нужно их две выделить. Начиная со страницы где обнаружен этот текст дальше до конца. Здесь нет для меня проблемы. Проблема в том что не знаю как всё это сделать программно. Гуглил, ничего интересного не нашел.
6. SlavaKron 28.12.16 17:27 Сейчас в теме +3 $m
ДокументWord.Content.Select();
ОбъектWord.Selection.Find.Execute("искомый текст");
НовыйРаздел = ДокументWord.Sections.Add(ОбъектWord.Selection.Range());
НовыйРаздел.PageSetup.Orientation = 1; //установить альбомную ориентацию страницы


как-то так.
7. v3rter 28.12.16 17:40 Сейчас в теме
Попробуйте

ActiveDocument.Bookmarks("\page").Range.Select


это выделит текущую страницу документа.
Оставьте свое сообщение
Все разделы

Вакансии


Программист 1С
Москва
зарплата от 100 000 руб. до 200 000 руб.
Полный день

Преподаватель 1С
Санкт-Петербург
Полный день

Удаленный ИТ-журналист
Санкт-Петербург
По совместительству

Программист 1С
Санкт-Петербург
зарплата от 80 000 руб. до 150 000 руб.
Полный день