• DrEvil
  • Восстановленный участник
  • На форуме с 15 августа 2001г.
  • Сообщений: 1
  • Спасибо: 0

Тема: О Find & Replace средствами VBA

Скажите пожалуйста, как можно реализовать команду Find & Replace на VBA. Меня интересуют отдельные Chr из TextString, и их замена на другие в соответствии с таблицей (If Else).

  • Ilya
  • Восстановленный участник
  • На форуме с 12 октября 2001г.
  • Сообщений: 11
  • Спасибо: 0

Re: О Find & Replace средствами VBA

Классика:
просматриваешь все объекты пространства модели/листа
for each ...
на предмет их типа, если тип "AcText" или "AcMText", то вот он и попался.
Посмотри в примерах к 2000 ACADу есть .DVB файл изменяющий высоту ВСЕХ текстовых строк в чертеже
Успехов

  • Ilya
  • Восстановленный участник
  • На форуме с 12 октября 2001г.
  • Сообщений: 11
  • Спасибо: 0

Re: О Find & Replace средствами VBA

Попробуй перебрать все объекты пространства модели с помощью for each, просматривая свойство .TYPE (по-моему...)
и если это "AcText" (по-моему...), то и делай с ним в этот момент, что хочешь. У объекта "..Text" есть масса свойств:
стиль, высота, содержание и т.д. Можно сравнить содержание с чем-нибудь  и тут же его изменить. Я так делал, когда конвертировал 866 кодировку в Unicodе.
Успехов