Результаты поиска

ошибка где-то в районе 2 copy s ne exch f ne or { при замене на заглушку "true {" или на "false {" начинает работать ps особо не знаю, какова на самом деле ошибка не найду, авось много не напортишь ------------------ Заглянул на сайт автора - в свежей версии в includetext вместо "f" - "fn"...

а-а, упустил условие, что и пустышки нужны

Попробуйте безтекстовый вариант. Последняя строка: 15 10 moveto (4820020831233 02) () /ean13 /uk.co.terryburton.bwipp findresource exec showpage У меня выводится без ошибки. Имхо сработал Ваш 1%

TotalСommander + поиск readme.txt + файлы на панель (или Ctrl+B + фильтр readme.txt) + плагин CopyTree/TreeCopyPlus/Treecopy

Со свежераспакованными аналогично, проверял сразу после вскрытия (но несколько лет назад).

MetaNormalC

А я предпочитаю отбивать инициалы неразрывными пробелами фиксированной ширины

Версия трёхдневка: Sub LenArea() ActiveDocument.Unit = ActiveDocument.Rulers.HUnits MsgBox "Length = " & ActiveShape.DisplayCurve.Length & vbCr & "Area = " & ActiveShape.DisplayCurve.Area End Sub

Ламинированная металликом плёнка имхо будет иметь ещё чуть более дальнее сходство (там ещё слой прозрачки добавится) + доп. работа. В подобных случаях зачастую хочется получить представление о результате, а точность пробы это уже бонус. Цветопробные бумаги тоже не имитируют в полной мере...

Как-то сложновато. Вроде бы были металлизированные материалы для струйной печати?

А для жестянщиков или печатников по фольгированным материалам?

В режиме Interactive Fill (G) хватаем паттерн за центральный маркер и таскаем его куда хотим.

вариант:If ActiveDocument Is Nothing Then Exit Sub

Объекты могут находиться на разных слоях, группировка-разгруппировка переместит их на один слой. Я бы воспользовался функцией установки позиции. Да и макрос попроще будет. Sub CenterP() ActiveSelection.SetPositionEx cdrCenter, ActivePage.CenterX, ActivePage.CenterY End Sub

Ваш код не найдёт "рекламу" в клипах (мне для примера данная обвязка не нужна была) оператор "=" сбойнёт на "сером шрифте" (забыл упомянуть его в своём посте), лучше использовать s.Text.Find("реклама", False) (запостил пример с ошибкой "" вместо "реклама", сейчас поправил) Из цикла перебора...

Искать можно, причем, припоминая Ваш же пост - [2017] - Анализ строк с кириллицей поставим опыт: создаем несколько текстовок "реклама", в т.ч. и "серыми шрифтами" (Печать по-русски "серыми" шрифтами.) прогоняем тест: Sub aaa() Dim s As Shape m = "" For Each s In...

Объявку в битмап, битмап в распознавалку, поиск в результате, всё автоматизировать. В объявках рекламных фирм, выставок и т.п. это слово может быть и в основном тексте - может центр битмапа выкусывать и распознавать только поля?

Сможешь обработать?

От важности задачи зависит. Без образца xml даже сложности задачи оценить не могу. В нете находятся всяческие "анализаторы счетов" принимающие xml-счета МТС, может подойдёт какой.

Читается чего-нибудь типа: XML и XSLT в примерах для начинающих Пишется соответствующий xml'у xsl-шаблон и просматривается. Может на твои конкретные xml'ы уже кем-то сделаны соответствующие шаблоны или просмотровщики.