Иногда в коде некоторые комментарии хочется выделить заглавными буквами, чтобы выглядело как заголовок. Делаю процедуру преобразования текста в верхний регистр, чтобы повесить её на сочетание клавиш (разумеется, для этого нужно будет сперва переключиться в эксель).
Когда был скопирован русский текст, но стояла английская раскладка, переменная a получает крокозяблики. Как исправить?
Код |
---|
Public Sub UPPERCASE() Dim ClipBoard As New DataObject Dim a$, b$ ClipBoard.GetFromClipboard a = ClipBoard.GetText b = StrConv(a, vbUpperCase) ClipBoard.SetText b ClipBoard.PutInClipboard End Sub |
Когда был скопирован русский текст, но стояла английская раскладка, переменная a получает крокозяблики. Как исправить?