1 Тема от Vetalwm

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

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

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

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

Офис 2007.

Спасибо.

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

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

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 Ответ от Vetalwm

  • Vetalwm
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.03.2010
  • Сообщений: 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

Спасибо!