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

Автор Тема: Поиск по шаблону и подсчет количества слов в документе Word из 1С 7.7  (Прочитано 395 раз)

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

Оффлайн Allisa

  • *
  • Сообщений: 7
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2016-03-13
  • Сайт: 
  • Профессия: Программист 7.7
1. Есть справочник "Слова". В него занесено 10 слов.
2. Есть справочник "Обработка документа Ворд".
3. Есть справочник "Слова из документа". Подчинен справочнику "Обработка документа Ворд".

На форме элемента справочник "Обработка документа Ворд" есть кнопка "Обработать". Открывается нужный вордовский файл, идет поиск слов из справочника "Слова" по указанному документу.
При нахождении - вопрос:" Нашли вхождение... Заполнить справочник "Слова из документа"?"
Если да, то заполняется подчиненный справочник.

Все работает отлично, но хотелось добавить 2 вещи:
1. Вытащить через команду "Сообщить" все предложение (или абзац), содержащее искомый шаблон.
2. Посчитать количество слов в этом документе ворд. ActiveDocument.Words.Count работает криво, возвращает слова с учетом переносов и пр. На ComputeStatistics(wdStatisticWords) - ругается 1С.
Функция Текст_Найти(Оле,аТекст)
    Текст=СокрЛП(аТекст);
    //поиск
    Оле.Selection.Find.ClearFormatting();
    Оле.Selection.Find.Text=Текст;
    Оле.Selection.Find.MatchCase=0;
    Оле.Selection.Find.MatchWholeWord=1;
    Оле.Selection.Find.MatchWildcards=0;
    Оле.Selection.Find.MatchSoundsLike=0;
    Оле.Selection.Find.MatchAllWordForms=0;
    Оле.Selection.Find.Forward=1;
    Оле.Selection.Find.Wrap=1;
    Оле.Selection.Find.Format=0;
    Ответ=Оле.Selection.Find.Execute();   
   
    Если Оле.Selection.Find.Found()=0 Тогда
          Возврат(0);
    Иначе
          Возврат(1);
    КонецЕсли;
КонецФункции

В процедуре:
Если (Текст_Найти(Оле,СокрЛП(ТекСлово))=1) Тогда
Сообщить("Предложение: "+.......);

Плз, хлп))


Теги:
 


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

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

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


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

* Реклама

Смотрите бесплатно более 300 видеоуроков по работе в 1С:Бухгалтерия 8 и 1C:ЗУП 8 ред. 3.0

СМОТРЕТЬ >>

* Поиск

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

* Реклама

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

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

Геннадий ОбьГЭС Геннадий ОбьГЭС
149 Сообщений
alex0402
102 Сообщений
MuI_I_Ika MuI_I_Ika
53 Сообщений
Norfolk
51 Сообщений
LexaK
47 Сообщений
AsadRoman
27 Сообщений
друган
21 Сообщений
SlimShady
21 Сообщений
alexandr_ll
19 Сообщений
MrLvovsky MrLvovsky
16 Сообщений

* Кто онлайн

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

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

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

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

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

Поиск

 

Dellos Catering - выездной ресторан кейтеринг по всему Миру
SimplePortal 2.3.5 © 2008-2012, SimplePortal