Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
16 Дек 2017, 13:50
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: 1С и Word  (Прочитано 4677 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн .Mj

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2013-08-02
  • Сайт: 
1С и Word
« Первое сообщение: 02 Авг 2013, 16:50 »
Здравствуйте. Помогите, пожалуста, решить одну проблему ...

 Необходимо из 1С Документооборот 8 в файл *.doc вставить надпись, причём не просто вставить - а заменить ей в нужном файле текст <МестоДляВставки...>.
 С формированием надписи и вставкой её в файл по координатам проблем не возникает.
 С заменой указанного текста просто текстом - тоже проблем не возникает.
 Но как поймать указанный текст и заменить его надписью - непонятно.
 Прошу помощи.

 Надпись формирую так же как и в функции ВставитьРегистрационныйШтампВФайлDocСУказаниемПоложения конфигурации Документооборот, примерно так:
Док = WordApp.Documents.Add(ИмяВременногоФайлаOffice);
 
oGraphicObject = Док.Shapes.AddTextBox(1, 100, 100, 145, 100);

//устанавливаем привязку положения к печатной области
oGraphicObject.RelativeHorizontalPosition = 0;
oGraphicObject.RelativeVerticalPosition = 0;


  oGraphicObject.left = -999998;
  oGraphicObject.Top = -999999;

oGraphicObject.Select();

Если ЗначениеЗаполнено(ТекстНадписи) Тогда
  WordApp.Selection.Font.Bold = Ложь;
  WordApp.Selection.ParagraphFormat.Alignment = 1;
WordApp.Selection.TypeText(ТекстНадписи.НазваниеОрганизации + Символы.ВК);
WordApp.Selection.TypeText("№ " + ТекстНадписи.РегНомер);
  WordApp.Selection.TypeText(" от ");
Иначе
  WordApp.Selection.ShapeRange.Line.Visible = Ложь;
КонецЕсли;

WordApp.Selection.ShapeRange.TextFrame.AutoSize = Истина;
WordApp.Selection.ShapeRange.Fill.Visible = Ложь;
WordApp.Selection.Font.Bold = Истина;

Док.SaveAs(НовыйПутьКФайлу, 0);

Док.Saved = Истина;
Док.Close();
WordApp.Quit();


Оффлайн Dethmontt

  • Денис
  • Модератор
  • *****
  • Сообщений: 2857
  • РЕПУТАЦИЯ: 546
  • КПД: 19%
  • Адын Эс
  • Регистрация: 2010-11-01
  • Сайт: 
  • Профессия: Программист 1С
Re: 1С и Word
« Ответ #1: 02 Авг 2013, 20:15 »
Find() и Execute() в помощь
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Оффлайн .Mj

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2013-08-02
  • Сайт: 
Re: 1С и Word
« Ответ #2: 03 Авг 2013, 14:30 »
Find() и Execute() в помощь
т.е. грубо говоря что-то такиое ...
ЗаменаКонтента = НовыйДокумент.content.Find;
ЗаменаКонтента.Execute(ЧтоЗаменяем,Ложь,Истина,Ложь,,,Истина,,Ложь,Строка(ЧемЗаменяем));

тогда что передавать, чтобы заменялось не текстом, а надписью???
Добавлено: 04 Авг 2013, 12:28

ну или хотя бы как вытащить координаты искомого текста?

Последний раз редактировалось: .Mj; 04 Авг 2013, 12:28. Причина: Объединение сообщений

Оффлайн .Mj

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2013-08-02
  • Сайт: 
Re: 1С и Word
« Ответ #3: 06 Авг 2013, 21:57 »
прошу совета!

Оффлайн Steelvan

  • *
  • Сообщений: 4
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-06-17
  • Сайт: 
  • Профессия: Бухгалтер
Re: 1С и Word
« Ответ #4: 02 Июн 2014, 18:37 »
Можно не заниматься связкой WORD с 1С, а получать сразу красивые отформатированные документы с использованием ОптимаСофт:Документы.
Скриншоты можно посмотреть http://www.optimasoft.info/index_doki.html
Там используется внешняя компонента, встроенная в 1С и управляемая кодом 1С.


Теги: 1C 1С Word 
 

Макет Active Document; Документ Word прогр.средствами. Как добавить гиперссылку?

Автор lyuberРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 1
Просмотров: 3993
Последний ответ 22 Авг 2011, 17:21
от lyuber
Любой макрос, функцию,надстройку в EXCEL(WORD) взаимодействие с 1С

Автор TatitutuРаздел Резюме

Ответов: 1
Просмотров: 3137
Последний ответ 19 Мар 2010, 10:39
от Myti
Внешняя печатная форма, тонкий клиент, печать в Word

Автор ЕгорСРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 1
Просмотров: 6830
Последний ответ 03 Мар 2012, 20:47
от ЕгорС
1С документооборот. Защита документа Word от изменения с сохранением автозаполнения

Автор blade165Раздел Пользователям "1С - Предприятие 8"

Ответов: 0
Просмотров: 1379
Последний ответ 17 Июн 2014, 01:31
от blade165
Вывод значений из подвала табличной части в макет Word

Автор Andrey104Раздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 1
Просмотров: 863
Последний ответ 26 Ноя 2015, 05:35
от Andrey104

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
155 Сообщений
ilyay ilyay
66 Сообщений
alex0402
53 Сообщений
AIFrame
47 Сообщений
oleg-x
44 Сообщений
andron81_81
44 Сообщений
BuhRust
33 Сообщений
MuI_I_Ika MuI_I_Ika
32 Сообщений
Golickoff Golickoff
31 Сообщений
Dima Dddd Dima Dddd
24 Сообщений

* Кто онлайн

  • Точка Гостей: 301
  • Точка Скрытых: 0
  • Точка Пользователей: 7
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal