Corel macros CopyPaste TextRange v1.0 v. 3.1

Corel macros CopyPaste TextRange v3.1

Макрос по нажатию кнопки Copy копирует из выделенного текстового фрагмента
заданные флажками данные о текстовых аттрибутах:

• шрифте
• стиле (Bold, Italic))
• размере шрифта
• заливке
• контуру
• подчеркиванию (UnderLine)
• зачеркиванию (Strikethru)
• надчеркиванию(OverScore)
• регистру (Case)

и по нажатию кнопки Paste присваивает эти аттрибуты другому выделенному
текстовому фрагменту (можно скопировать однократно и многократно присвоить нескольким разным фрагментам).

В программе CorelDRAW регистр можно задать несколькими способами:
а) набор текста удержанием кнопки Shift
б) конвертированием через пункт меню Text - Change Case
в) выбором олного из пунктов UpperCase в докере Object Properties

Первые два способа имеют меньший приоритет перед третьим
(вы не сделает Case равным нормальному если в докере Object Properties задали
UpperCase = AllCaps) и к тому же являются необратимыми.
Если же вы задали верхний регистр третьим способом, то всегда можно вернуть исходное состояние - оригинал. Иногда это важно.
Поэтому сделано так, что информация о скопированном Case накладывается
на кнопку Paste. В случае использования верхнего регистра заданного через Object Properties - подсказка выглядит как AB, Ab, smAB (smallCaps).
Если же шаблон задан через Shift - то подсказка выглядит как ^AB, ^Ab
Шаблон ab вариантов не имеет.

Кроме того, в макросе есть выдвижная панель, где собраны дополнительные
команды конвертирования Case в различные варианты регистра, такие как
AllCAPS, smallCAPS, none, none&lower, lowercase, UpperCase,
TitleCase, SentenceCase и Position (SubScripr, SuperScript)
TitleCase - делает заглавными первые буквы КАЖДОГО СЛОВА
SentenceCase - делает заглавной только первую букву СТРОКИ

Проверен на версиях
CorelDraw Х5 ... 2018

Спасибо за тестирование и замечания izrukvruki

В последних версиях информация о весе - Bold передается через стиль ... оказывается