1 Тема от Alik007

  • Alik007
  • рядовой
  • Неактивен
  • Зарегистрирован: 11.03.2010
  • Сообщений: 1

Тема: Удалить нейзвестные повторяющиеся предложения.

Есть тестовые вопросы, общим количеством 100 листов в rtf файле.
Как можно найти повторяющиеся вопросы и удалить их?
Заранее спасибо за варианты решения данного вопроса.

2 Ответ от Денис

  • Денис
  • майор
  • Неактивен
  • Зарегистрирован: 10.01.2010
  • Сообщений: 63

Re: Удалить нейзвестные повторяющиеся предложения.

Alik007 пишет:

Есть тестовые вопросы, общим количеством 100 листов в rtf файле.
Как можно найти повторяющиеся вопросы и удалить их?
Заранее спасибо за варианты решения данного вопроса.

Если речь идет о вопросах, т.е. со знаком "?" на конце, и при этом вопросы совпадают до символа, то можно так:

Sub delduplsent()
Dim rSent As Range
For Each rSent In ActiveDocument.Sentences
    rSent.Select
    rSent.MoveEndWhile cset:=Chr(13), Count:=wdBackward
    rSent.MoveEndWhile cset:=" ", Count:=wdBackward
    rSent.Font.Color = wdColorRed
    If rSent.Characters.Last = "?" Then 'Определяем вопрос ли это
        With ActiveDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = rSent
            .Replacement.Text = ""
            .Font.Color = wdColorAutomatic
            .MatchWildCards = False
            .Execute Replace:=wdReplaceAll
        End With
    End If
    rSent.Font.Color = wdColorAutomatic
Next rSent

End Sub

Отредактировано Денис (12.03.2010 09:00:07)

3 Ответ от andrkar

  • andrkar
  • Модератор
  • Неактивен
  • Откуда: Томск
  • Зарегистрирован: 10.03.2010
  • Сообщений: 431
  • Поблагодарили: 26

Re: Удалить нейзвестные повторяющиеся предложения.

Предложу и такой вариант (сам им часто пользуюсь!): выделяем все вопросы, заходим в меню "Таблица", там выбираем "Сортировка". В появившемся окне ставим переключатель "без строки заголовка", жмем ок. Смотрим вопросы - одинаковые будут рядом, удаляем ненужные абзацы.. все визуально очень хорошо видно!