//Вариант 1&НаКлиентеПроцедураЗаменитьОткрыть()COMОбъект=ПолучитьCOMОбъект("D:\От.docx");СтрокаПоиска="{v8 fio}";СтрокаЗамены="Пупкин Иван Иваныч";Замена=COMОбъект.Content.Find;Замена.Execute(СтрокаПоиска,,,,,,,,,СтрокаЗамены,2);COMОбъект.Application.Visible=1;//указываем, что надо показать юзеру наш COM-объектCOMОбъект.Activate();КонецПроцедуры///////////////////////////////////Вариант 2&НаКлиентеПроцедураПоказатьДокументMSWord(COMСоединение)ЭкспортCOMСоединение.Application.Selection.Collapse();COMСоединение.Application.Visible=Истина;COMСоединение.Activate();КонецПроцедуры&НаКлиентеПроцедураЗаполнитьПараметры(ЗначCOMОбъект,ЗначДанныеОбъекта=Неопределено)ЭкспортЕслиДанныеОбъекта=НеопределеноТогдаВозврат;КонецЕсли;ДляКаждогоПараметрЗначениеИзДанныеОбъектаЦиклЕслиТипЗнч(ПараметрЗначение.Значение)<>Тип("Массив")ТогдаЗаменить(COMОбъект,ПараметрЗначение.Ключ,ПараметрЗначение.Значение);КонецЕсли;КонецЦикла;КонецПроцедуры&НаКлиентеПроцедураЗаменить(Object,ЗначСтрокаПоиска,ЗначСтрокаЗамены)СтрокаПоиска="{v8 "+СтрокаПоиска+"}";СтрокаЗамены=Строка(СтрокаЗамены);Object.Select();Selection=Object.Application.Selection;FindObject=Selection.Find;FindObject.ClearFormatting();ПокаFindObject.Execute(СтрокаПоиска)ЦиклЕслиПустаяСтрока(СтрокаЗамены)ТогдаSelection.Delete();ИначеSelection.TypeText(СтрокаЗамены);КонецЕсли;КонецЦикла;Selection.Collapse();КонецПроцедуры&НаКлиентеПроцедураСформировать(Команда)COMОбъект=ПолучитьCOMОбъект("D:\От.docx");ДанныеОбъекта=НовыйСтруктура;ДанныеОбъекта.Вставить("fio","Пупкин Иван Иваныч");ДанныеОбъекта.Вставить("num",12345);ЗаполнитьОткрыть(COMОбъект,ДанныеОбъекта);КонецПроцедуры&НаКлиентеПроцедураЗаполнитьОткрыть(COMОбъект,ДанныеОбъекта)ЗаполнитьПараметры(COMОбъект,ДанныеОбъекта);ПоказатьДокументMSWord(COMОбъект);КонецПроцедуры
Comments (0)
HTTPSSSH
You can clone a snippet to your computer for local editing.
Learn more.