Texts Case

Luca Palumbo

Texts Case

Hi to all,

I'm looking for a way to change to upper case selected texts in a drawing but I can't find how to do it

I've tried to modify a macro found on web to change every text in drawing but it dosen't work

I don't know Catia/vba/script coding so maybe is easy to do but I can't figure out where is the error

Someone can help me? 


Language="VBSCRIPT"

Sub CATMain()

Dim oSel as Selection

Set oSel=CATIA.ActiveDocument.selection

For i = 1 To oSel.Texts.Count
oSel.Texts.Item(i).Text = UCase(oSel.Texts.Item(i).Text)

Next
End Sub


 

Thanks