RegExp = Новый COMОбъект("VBScript.RegExp");

RegExp.Global = Истина;

RegExp.Pattern = "^\d+$"; //шаблон поиска

Matches = RegExp.Execute(НашаСтрока);            

Результат = Matches.Count;

   

 //инициализация часть 1

СсылкаМакет = ПолучитьМакет(Акт);

MSWord = СсылкаМакет.Получить();

Попытка

СсылкаМакет = MSWord.Application.Documents(1);

СсылкаМакет.Activate(); 

//выгружаем табличную часть с нарушениями в строку часть 2

str = Новый COMОбъект(ADODB.Stream);

str.Open();

СтрочкаТаблицы = ЭлементыФормы.Нарушения.ТекущиеДанные;

Для Каждого СтрочкаТаблицы Из Нарушения Цикл

str.WriteText( + СтрочкаТаблицы.Описание +  Нарушены требования СНИПФЗГОСТ:  + СтрочкаТаблицы.СНИПФЗГОСТ  +  Статья:  + СтрочкаТаблицы.ЧастьСтатья  + Символ(13),0);

КонецЦикла;

str.Position = 0;

НарушенияТекст = str.readText();



//вставляем в закладку текст с нарушениями часть 3

MSWord.Bookmarks(НарушенияТекст).S_elect();

MSWord.Application.S_election.TypeText(НарушенияТекст);



//открыть Word часть 4

СсылкаМакет.Application.Visible = Истина;



СсылкаМакет.Activate();

Исключение

//если ошибка 

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

MSWord.Application.Quit();

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

 Word = MSWord.Application;

Документ = Word.ActiveDocument();

//Переместиться вниз на 22 строк

Word.S_election.MoveDown(,22);

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

//подготовка таблицы:

Rng = Word.S_election.Range;

//Формируем заголовок:

Rng.I_nsertAfter(№ п/п*Установленные нарушения и меры по их устранению*Основания); 

Rng.I_nsertParagraphAfter();

//сама таблица

СтрочкаТаблицы = ЭлементыФормы.НарушенияПредписание.ТекущиеДанные;

Для Каждого СтрочкаТаблицы из НарушенияПредписание Цикл 

Rng.I_nsertAfter(Строка(СтрочкаТаблицы.НомерСтроки)+*+СтрочкаТаблицы.Описание + ;  + СтрочкаТаблицы.Предписание +* + СтрочкаТаблицы.СНИПФЗГОСТ +   + СтрочкаТаблицы.ЧастьСтатья);

Rng.I_nsertParagraphAfter(); 

КонецЦикла; 

Rng.ConvertToTable(*);

Документ.Tables(1).AutoFormat(17); //номер таблицы в шаблоне

Word.Visible = Истина;   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

   

   КомОбъект.Application.Visible=1;

   КомОбъект.Variables.Item("ДатаПриказа").Value="24.01.2007";

   КомОбъект.Fields.UpDate();



   КомОбъект.PrintOut(); //распечатать документ



   //Ожидание окончания отправки на печать...

   Пока objWord.Application.BackgroundPrintingStatus<>0 Цикл

     Предупреждение("Ожидание",1);

   КонецЦикла;  



   КомОбъект.Application.Quit(); //закрыть Word

   КомОбъект = 0;

КонецПроцедуры

   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

   КомОбъект.Application.Visible=1;

   КомОбъект.Bookmarks(СокрЛП("ИмяЗакл")).S_elect();

   КомОбъект.Application.S_election.TypeText(СокрЛП("тест проверка"));

КонецПроцедуры   

 // Параметры договора обозначены в тексте переменными вида "[%НомерДоговора%]"

Функция ПечатьДокумента() Экспорт

     

    Договор = ПолучитьМакет("ActiveDocument_ДоговорПоставки"); // получим макет-ActiveDocument 

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

    Попытка

	Doc = MSWord.Application.Documents(1);

        Doc.Activate();         

        Replace = Doc.Content.Find;    

        

        FindText = "{НомерДоговора}";     // что искать - имя_шаблона

        MatchCase = Ложь;                 // использовать регулярные выражения        

        MatchWholeWord = Истина;          // искать слово целиком

        MatchWildcards = Ложь;            // испоьзовать регулярные выражения 

        MatchSoundsLike = Неопределено;   // искать созвучные 

        MatchAllWordForms = Неопределено; // искать все формы слова

        Forward = Истина;                 // искать вперед

        Wrap = Неопределено;              // что должен вернуть Find-объект 

        Format_ = Ложь;                   // использовать форматирование

        ReplaceWith = "N777";             // текст, на который надо заменить имя_шаблона

        

        // кратко:        

        //Replace.Execute(FindText,Ложь,Истина,Ложь,,,Истина,,Ложь,НомерДоговора);        

        

        Replace.Execute(

            FindText, 

            MatchCase, 

            MatchWholeWord, 

            MatchWildcards, 

            MatchSoundsLike, 

            MatchAllWordForms, 

            Forward,

            Wrap,

            Format_,

            НомерДоговора);

            

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

        MSWord.Activate();

    Исключение

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

        MSWord.Application.Quit();    

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

 

    возврат 0;



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

 RegExp = Новый COMОбъект("VBScript.RegExp");   

 ///////////////////////////////////////////////////////////////////////

//Поиск вхождений подстроки

Процедура RegExp_Exec()

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML

    Matches=RegExp.Execute("Это <hr> строка <br> с тегами HTML");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            Сообщить("Найден тег:"+ Match.Value);

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

    //Выдаст в окно сообщений:    

    //Найден тег:<hr>

    //Найден тег:<br>    

КонецПроцедуры

 ///////////////////////////////////////////////////////////////////////

//Поиск вхождений подстроки с использованием подвыражений

Процедура RegExp_Exec1()

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "([^<]*)(<[^>]*>)([^<]*)"; //Ищем теги HTML, а также текст до и после тега

    Matches=RegExp.Execute("  <tr><td id=aaa>Дятел <td> долбит <td> сосну </tr>");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            

            SubMatches = Match.SubMatches;

            ЧислоПодвыражений=SubMatches.Count();

            Для н = 0 По ЧислоПодвыражений-1 Цикл

                SubMatch=SubMatches.Item(н);

                Если SubMatch="" Тогда

                    Продолжить;

                КонецЕсли;    

                

                Сообщить("Подстрока: "+SubMatch);

            КонецЦикла;    

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

КонецПроцедуры



//Выводит в окно сообщений:

//Подстрока:   

//Подстрока: <tr>

//Подстрока: <td id=aaa>

//Подстрока: Дятел 

//Подстрока: <td>

//Подстрока:  долбит 

//Подстрока: <td>

//Подстрока:  сосну 

//Подстрока: </tr>

 ///////////////////////////////////////////////////////////////////////

//Проверка подстроки

Процедура RegExp_Test()

    RegExp = CreateObject("VBScript.RegExp");

    RegExp.Pattern =  "^\d+$"; //Шаблон, который соответствует целому числу

    стр="12345";//Строка, которую тестируем

    Если RegExp.Test(стр)=0 Тогда

        Сообщить("Это не целое число");

    Иначе

        Сообщить("Это целое число");

    КонецЕсли;

    //Выдаст в окно сообщений:    

    //"Это целое число"

КонецПроцедуры

 ///////////////////////////////////////////////////////////////////////

//Замена текста в подстроке

Процедура RegExp_Replace()

    

    //Строка, где мы будем производить замены

    стр="Дятел долбил сосну";

    

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Истина; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Истина; //Многострочный режим

    

    

    RegExp.Pattern = "(долбил)"; 

    

    стр=RegExp.Replace(стр, "про$1"); 

    Сообщить(стр);

    //Выдаст в окно сообщений:    

    //"Дятел продолбил сосну"

КонецПроцедуры