1

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

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

2

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

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

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