1

Тема: Удаление слов с ошибками

добрый день.
Понадобилось почистить мои словари, они специфические, так что в инете готовые не найти.

Документ имеет вид списка слов, по одному слову на строку.
Надо удалить все слова, которые подчеркивает Word.
Без разбора и исправлений, просто удалить.

Офис 2007.

Спасибо.

2

Re: Удаление слов с ошибками

Vetalwm пишет:

Надо удалить все слова, которые подчеркивает Word.
Без разбора и исправлений, просто удалить.
Спасибо.

Можно так:

Sub delErrWords()
Dim rWord As Range
For Each rWord In ActiveDocument.Words
    If rWord.SpellingErrors.Count > 0 Then
        rWord.Delete
    End If
Next rWord
End Sub

3

Re: Удаление слов с ошибками

Денис пишет:
Vetalwm пишет:

Надо удалить все слова, которые подчеркивает Word.
Без разбора и исправлений, просто удалить.
Спасибо.

Можно так:

Sub delErrWords()
Dim rWord As Range
For Each rWord In ActiveDocument.Words
    If rWord.SpellingErrors.Count > 0 Then
        rWord.Delete
    End If
Next rWord
End Sub

Спасибо!