Encoding в X3

[dik973]

Может кто знает где находится Encoding(имеется ввиду для использования в макросах). Ведь должна же где то быть...

 

[wOxxOm]

Ответ: Encoding в X3

объект TextRange свойства CharSet и LanguageID.

dim sh as shape
set sh=ActiveLayer.CreateArtisticText(Left, Bottom, Text, [LanguageID], [CharSet], [Font], [Size], [Bold], [Italic], [Underline], [Alignment])
.......
with ActiveShape.Text.Story.Paragraphs(2)
.CharSet=cdrCharSetRussian
.LanguageID=cdrRussian
end with
......
и так далее
Доп.информация в VisualBasicEditor в ObjectBrowser (кнопка F2) для объекта Text, TextRange

 

[dik973]

Ответ: Encoding в X3

Спасибо, но не то ... Вот это лучше отработало на указанном ниже примере, Encoding сделал почти тоже...

Sub myTemp()
Dim s As Shape
For Each s In ActivePage.FindShapes(Type:=cdrTextShape)      
 For Each p In s.Text.Story.Paragraphs
  p.Text = Application.ConvertFromUnicode(p.Text, 1252)
  p.LanguageID = cdrRussian
 Next p
Next s
End Sub

Возможно проблема с шрифтом, но какой уж есть.

 

[Sanchos]

Ответ: Encoding в X3

Лучше обрабатывать либо посимвольно либо по словам иначе слетит форматирование.
Соответствующий макрос прилагается.
Работает с выделенным

ВНИМАНИЕ: Если в блоке текста уже есть правильные русские символы их надо отделить, иначе они пропадут.

 

[dik973]

Ответ: Encoding в X3

Спасибо, Sanchos!!! А вот так нормальные символы не надо отслеживать...
Я немного изменил Ваш макрос, только inChar...

 

[Sanchos]

Ответ: Encoding в X3

И тебе спасибо, только ты дописал в одну функцию, а другую обделил вниманием. Вот всё дописал...

 

[dik973]

Ответ: Encoding в X3

Немного еще подправил. Там были проблемы с группами. Так вроде работает...

 

[Sanchos]

Ответ: Encoding в X3

А проблем небыло, просто обработка групп и поверклипов не написана. Кому надо сами допишут