Текст в ячейках таблицы документа Word в верхний регистр

[irina181]

Привет форумчане. Надо макросом в ячейках где "латиница" организовать перевод текста в верхний регистр после выхода из контрола. Что-то у меня не получается. Файл во вложении. Всем спасибо.

[Serge_Bliznykov]

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
 ' Раскладка клавиатуры
    mod_Klava.Latkir
  
    '1. Проверка, из какого поля произошёл выход.
    If ContentControl.Tag = "vin" Then ' если это поле VIN, тогда
        ContentControl.Range.Text = UCase(ContentControl.Range.Text) 'преобразуем всё в верхний регистр
    End If
   
End Sub

[irina181]

Спасибо, что выручили. Хорошего Вам вечера.

[Serge_Bliznykov]

Всегда пожалуйста.
И Вам всего хорошего!
И успехов в автоматизации!