﻿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