• Галина
  • Восстановленный участник
  • На форуме с 23 октября 2003г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Как находить абзацы, начинающиеся с определенного слова? (MS Word)

Помогите, пожалуйста, написать макрос:
Нужно находить в ворде абзацы, начинающиеся с определенного слова, и удалять их.

  • Leonid R
  • Восстановленный участник
  • На форуме с 4 июля 2003г.
  • Сообщений: 14
  • Спасибо: 0

Re: Как находить абзацы, начинающиеся с определенного слова? (MS Word)

Этот пример удаляет абзацы начинающие со слова "Any " в активном документе

Public Sub aaa()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
 MsgBox p.Range.Words(1)
  If p.Range.Words(1) = "Any " Then p.Range.Delete
 Next
End Sub

  • Галина
  • Восстановленный участник
  • На форуме с 23 октября 2003г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как находить абзацы, начинающиеся с определенного слова? (MS Word)

Благодарю вас, Леонид!
Я также нашла свое менее оригинальное решение:

With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = "Текст"
    .MatchCase = True
    With .Replacement
        .ClearFormatting
        .Style = "Заголовок 4"
        End With
        .Execute Replace:=wdReplaceAll
End With
With ActiveDocument.Content.Find
    .ClearFormatting
    .Style = "Заголовок 4"
    With .Replacement
        .ClearFormatting
        .Text = ""
        End With
        .Execute Replace:=wdReplaceAll
End With
 End Sub

C уважением, Галина

  • На форуме с 13 января 2004г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как находить абзацы, начинающиеся с определенного слова? (MS Word)

Галина. Объясните зачем это нужно.....

  • Галина
  • Восстановленный участник
  • На форуме с 23 октября 2003г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как находить абзацы, начинающиеся с определенного слова? (MS Word)

Это нужно по работе, для обработки больших массивов текста (в Word). Вот.
Галина