Как отменить проверку орфографии для диапазона?

[eeigor]

На этот вопрос уже отвечал Владимир (@sokol92), но я не могу найти...
Именно для диапазона листа, а не для всего текущего документа.
Эту проверку надо отменить программно (в макросе).

[sokol92]

А мне уже не на кого ссылаться. 
Пробуем:

Код Выделить Развернуть

' Отменяет проверку орфографии в ячейках выделения.
Sub Test2
  Dim oRange, oLocale
  oRange=ThisComponent.CurrentSelection
  oLocale=oRange.CharLocale
  oLocale.Country=""
  oLocale.Language="zxx"  ' все вопросы - к MRI :)
  oRange.CharLocale=oLocale
End Sub

[sokol92]

Нашел таинственный zxx. Означает, что текст не имеет лигнгвистического контента.

[eeigor]

Владимир, спасибо, попробую позже. Но через GUI тоже напомните: не могу найти в меню

[sokol92]

Формат ячеек / Шрифт / Язык. Установить: [Без проверки] (верхняя позиция списка).

[eeigor]

Ещё раз спасибо

Всё отлично. Маленький, но очень полезный код, а то надоели красные волнистые линии...