VPF::[VBA] Орфография в Excel - Форум программистов

amor

Дата 30.11.2006, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 30.11.2006

Репутация: нет
Всего: нет

ни как не могу закончить макрос, проблема в том, что не могу разобраться с орфографией в excel(spellchecker'ом). уважаемое сообщество прошу у вас помощи по вопросу определения присутствия ошибки в ячейке. т.е. мне нужен код определения наличия ошибки в ячейке. дальше я сам допишу, если есть то далее по коду делаем с ней что надо если нет то далее... именно наличие чтоб я смог разложить на ошибочные ячейки и правильные. чтоб это окно чекера ни выползало. блин целый день бьюсь, ни сочтите за наглость, в вопросах программирования я только начинаю.

Aloha

Дата 30.11.2006, 23:57 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 351
Регистрация: 14.5.2006

Репутация: 97
Всего: 165

amor

Вот этота процедура покрасит все слова с ошибкой на листе "Лист1" в красный цвет:

Код

Sub s_01()
  Dim v_Rng As Range, v_Cell As Range
  Dim v_Str As String, v_Word As String
  Dim v_Start As Long, v_WordLen As Long
  Dim n As Integer
  
  Set v_Rng = Sheets("Лист1").UsedRange
  For Each v_Cell In v_Rng
    v_Str = v_Cell.Text
    If Application.CheckSpelling(v_Str, , True) = False Then
      For n = 0 To UBound(Split(v_Str))
        v_Word = Split(v_Str)(n)
        v_WordLen = Len(v_Word)
        If Application.CheckSpelling(v_Word, , True) = False Then
          Do
            v_Start = InStr(v_Start + 1, v_Str, v_Word)
            If v_Start = 0 Then Exit Do
            v_Cell.Characters(v_Start, v_WordLen).Font.ColorIndex = 3
            v_Start = v_Start + v_WordLen
          Loop
        End If
      Next n
    End If
  Next
End Sub

Это сообщение отредактировал(а) alexeis1 - 1.12.2006, 13:55

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »