[CDR 2017-2022] Weld artistic text

[mnemonix]

Всем привет! Задал конструкцию:

ActiveSelection.BreakApart
ActivePage.Shapes.All.AddToSelection
ActiveSelection.ConvertToCurves
ActiveSelection.Weld

Затыкается на weld. Где-то я туплю...
Подскажите, плиз.

 

[lev]

Set s = ActiveSelection
Set s = s.Weld(s)

 

[mnemonix]

Заработало!

 

[DukereD]

если текст слить то не нужно его разламывать и даже переводить в кривые . достаточно просто WELD и все. все символы сольются

 

[mnemonix]

Да и с закривлённым тоже работает!

 

[dimastyj]

А почему потом текст не редактируется?

 

[_MBK_]

Вы это у кого сейчас спросили, а главное, зачем?

 

[MrDesigner]

А почему потом текст не редактируется?

Какой текст?

 

[dimastyj]

Наверное не так понял, я думал это выделяешь несколько текстов и он в один их группирует

 

[Акулыч]

Наверное не так понял, я думал это выделяешь несколько текстов и он в один их группирует

Так это вам не Weld нужно, а, наверное, Combine

 

[_MBK_]

Так это вам не Weld нужно, а, наверное, Combine

Нет

 

[Акулыч]

Нет

Почему нет - TextRange.Combine, вроде бы, сливает вместе два текста, оставляя их редактируемыми. Если я не ошибаюсь, конечно. Помню, что по Ctrl-L точно можно текст соединить с другим.