Excel - VBscript для проверки орфографии

Я хочу, чтобы проверка орфографии проверяла орфографию в определенной ячейке Excel. Я использую приведенный ниже код, который действительно работает.

If Target = rDNotes Then
    Target.CheckSpelling
End If

Что мне не нравится в этом коде, так это то, что он предлагает вам, несмотря ни на что, даже если он не обнаружил никаких ошибок в ячейке. Он спросит, хочу ли я проверить орфографию в остальной части рабочего листа.

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

Спасибо за любую помощь или предложения, которые у кого-то могут быть.


excel vbscript spell-checking spelling
person Chris    schedule 11.11.2013    source источник

Ответы (1)


arrow_upward
0
arrow_downward

На самом деле я только что понял это. Мне нужно было поставить.

If Target = rDNotes Then
    Target.CheckSpelling SpellLang:=1033
End If

Я не уверен, что означает SpellLang: = 1033, но это работает именно так, как мне нужно. Мне нужно будет провести дальнейшее исследование, чтобы узнать, что это делает, и другие варианты, которые, я уверен, у него есть.

person Chris    schedule 11.11.2013
comment
Спасибо Дэвиду за объяснение! - person Chris; 11.11.2013