конструкций » Поиск

Результаты по ключевому слову: конструкций

Установлен безопасный режим. Выполнение операции запрещено

Не могу запустить обработку из раздела "Дополнительные обработки". Выдает "Установлен безопасный режим. Выполнение операции запрещено!"

В 1С Предприятии 8.2-8.3 появился специальный режим исполнения кода - безопасный режим. Суть безопасного режима в том что недоступно выполнение некоторых методов и конструкций встроенного языка. Если вы доверяете источнику из которого получена обработка - безопасный режим можно отключить.

В коде описания подключаемой обработки:

Код 1C v 8.2 УП

 Функция СведенияОВнешнейОбработке() Экспорт



    ПараметрыРегистрации = Новый Структура;

    МассивНазначений = Новый Массив;

    МассивНазначений.Добавить("Документ.ПриходнаяНакладная");

	МассивНазначений.Добавить("Документ.РасходнаяНакладная");





    ПараметрыРегистрации.Вставить("Вид", "ЗаполнениеОбъекта");

    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);

    ПараметрыРегистрации.Вставить("Наименование", "Обработка ТЧ");

    ПараметрыРегистрации.Вставить("Версия", "W1C.ru v 1.2");

    ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);

    ПараметрыРегистрации.Вставить("Информация", "Дополнительная обработка табличной части");



    ТаблицаКоманд = ПолучитьТаблицуКоманд();



    ДобавитьКоманду(ТаблицаКоманд,

    "Обработка ТЧ",

    "Обработка ТЧ",

    "ВызовКлиентскогоМетода",

    Истина, 

	"ОткрытиеФормы");



    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);



    Возврат ПараметрыРегистрации;

КонецФункции

исправьте БезопасныйРежим

Код 1C v 8.2 УП

     ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);

Категория: 1С Общие вопросы - Обычные формы

Замена текста в автофигуре word

Есть документ Word.
Заполняю программно:
TextFind.Execute("[V1]", Ложь, Истина, Ложь, , , Истина, , Ложь, "test", 2);

Текст [V1] находится в таблице, которая находится в автофигуре.
Почему-то текст не заменяется, хотя вне автофигуры все отрабатывает нормально.

Ответ:
Примерный код такой:

Код 1C v 8.х

   Договор = ПолучитьМакет("Договор");

// Получить объект из макета.

MSWord = Договор.Получить();



Попытка

	Документ = MSWord.Application.Documents(1);

	Документ.Activate();

	//Определим имена

	Заказчик = "Петр Иванович КакВасТам";

	Исполнитель = "helpf.pro - Помощник по 1С"

	

	// Получить объект, который будем использовать для поиска и замены.

	Замена = Документ.Content.Find;



	// Заменить заранее определенные ключевые конструкции на требуемый текст.

	Замена.Execute("[Заказчик]", Ложь, Истина, Ложь, , , Истина, , Ложь, Заказчик);

	Замена.Execute("[Исполнитель]", Ложь, Истина, Ложь, , , Истина, , Ложь, Исполнитель);

	// Далее аналогично для остальных ключевых конструкций.

	//	...

	// Делаем видимым приложение и активизируем его.

	MSWord.Application.Visible = Истина;

	MSWord.Activate();

Исключение

	// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.

	Сообщить(ОписаниеОшибки());

	MSWord.Application.Quit();

КонецПопытки;

Более подробно: Как сформировать новый договор, документ на основании файла, шаблона Microsoft Office Word?

Категория: Работа с Microsoft Office и OpenOffice

Как сформировать новый договор, документ на основании файла, шаблона Microsoft Office Word?

Для заключения договоров с контрагентами разработан типовой договор (шаблон).
При его оформлении (для реального контрагента) в определенные места документа вставляются данные о контрагенте.
Подобные фрагменты определены следующим образом: <ИмяОбласти> (на практике можно использовать другие способы, в нашем примере квадратные скобки [ ]).
Пример договора:
Договор
на оказание услуг

Я, [Заказчик], с одной стороны, именуемый в дальнейшем ЗАКАЗЧИК, и [Исполнитель],
с другой стороны, именуемый в дальнейшем ИСПОЛНИТЕЛЬ, заключили договор о настройке
системы 1С:Предприятие под нужды заказчика.

Дополнительные условия:
Глюки убирать сразу.

Оплата:
$100 в час. Обсуждению не подлежит.

Подписи сторон:

ЗАКАЗЧИК ИСПОЛНИТЕЛЬ
_____ [Заказчик] _____ [Исполнитель]

Оформленный таким образом документ сохранен в файле, который загружен в 1С v 8 в качестве макета (при его создании указывается, что тип макета – Active document).

Далее в соответствующем обработчике события (например, в обработчике нажатия на кнопку Создать договор) размещается следующий код:

Код 1C v 8.х

  Договор = ПолучитьМакет("Договор");

// Получить объект из макета.

MSWord = Договор.Получить();



Попытка

	Документ = MSWord.Application.Documents(1);

	Документ.Activate();

	//Определим имена

	Заказчик = "Петр Иванович КакВасТам";

	Исполнитель = "helpf.pro - Помощник по 1С"

	

	// Получить объект, который будем использовать для поиска и замены.

	Замена = Документ.Content.Find;



	// Заменить заранее определенные ключевые конструкции на требуемый текст.

	Замена.Execute("[Заказчик]", Ложь, Истина, Ложь, , , Истина, , Ложь, Заказчик);

	Замена.Execute("[Исполнитель]", Ложь, Истина, Ложь, , , Истина, , Ложь, Исполнитель);

	// Далее аналогично для остальных ключевых конструкций.

	//	...

	// Делаем видимым приложение и активизируем его.

	MSWord.Application.Visible = Истина;

	MSWord.Activate();

Исключение

	// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.

	Сообщить(ОписаниеОшибки());

	MSWord.Application.Quit();

КонецПопытки;

Код 1C v 7.x

 

	Word = создатьОбъект("Word.Application");

    wdDoc = Word.Documents;

	wdDoc.Open(ИмяФайлаШаблона,0,1); //открываем только на чтение

	// Делаем видимым приложение

	Word.Visible = 1;   

	wdFindContinue = 1;                                                                                    

	wdReplaceAll = 2;                    

	True = 1;                                        

	False = 0;

	Word.S_election.Find.Execute("[Заказчик]", True, True, False, False, False, True, wdFindContinue,False,"Петр Иванович КакВасТам", wdReplaceAll);

	Word.S_election.Find.Execute("[Исполнитель]", True, True, False, False, False, True, wdFindContinue,False,"helpf.pro - Помощник по 1C", wdReplaceAll);

Категория: Работа с Microsoft Office и OpenOffice