1 Тема от demonzzzz

  • demonzzzz
  • рядовой
  • Неактивен
  • Зарегистрирован: 17.11.2011
  • Сообщений: 2

Тема: Обработка макросами части текста

Создал несколько макросов для редактирования текста. Макросы обрабатывают весь текст, находяшийся в документе (т.е. перед выполнением действий он выделяет весь текст).
Казалось бы все удобно и прекрасно, но есть одно "но"... Я для работы использую блаки - такая себе "шапка" с реквизитами, которую не надо бы обрабатывать, но тем не менее "шапка" выделяется вместе с текстом.
Так вот, можно ли как то сделать, что бы текст выделялся кроме этой заготовки-шапки?

2 Ответ от VBA-addict

  • VBA-addict
  • майор
  • Неактивен
  • Зарегистрирован: 12.10.2010
  • Сообщений: 66

Re: Обработка макросами части текста

добавить
Dim MyRange As Range
Set MyRange = ActiveDocument.Range
MyRange.SetRange Start:=Selection.Start, End:=Selection.End

После этого заменить все использования ActiveDocument.Range
на MyRange

или код в студию - будем смотреть предметно.

Делай, что можешь, и будь, что будет!

3 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Обработка макросами части текста

Можно еще создать для шапки отдельный стиль, а в коде Коллекцию Replaces в которую не включать стили шапки.........

4 Ответ от demonzzzz

  • demonzzzz
  • рядовой
  • Неактивен
  • Зарегистрирован: 17.11.2011
  • Сообщений: 2

Re: Обработка макросами части текста

К примеру вот такой макрос по удалению лишних абзацев:
Sub delPar()
Dim sPar As String
Dim par As Paragraph
Dim i As Integer
i = 0
For Each par In ActiveDocument.Paragraphs
   If Right(par, 2) = Chr(46) & Chr(13) Then
       i = i + 1
   Else
      If Right(par, 1) = Chr(13) Then
         par.Range.Text = Replace(par.Range.Text, Chr(13), " ")
      End If
   End If
Next par
End Sub