Преобразование кода VBA в CATScript или VBScript

Question

GisMofx предоставил мне этот код VBA.
Я использую этот код, чтобы удалить указанные символы из моих частей тела Catia.
Не могли бы вы помочь мне в преобразовании этого в CATScript или Vbscript?

Sub FixPartBodyNames() 

Dim myPart As Part 
Set myPart = CATIA.ActiveDocument.Part 

Dim myBody As Body 

Dim newName As String 
Dim newCharacter As String 
newCharacter = " " 

For Each myBody In myPart.Bodies 'loop through all the bodies in the part 
newName = myBody.Name 'get the current body's name 
newName = Replace(newName, ".", newCharacter) 'replace all "." with " " 
newName = Replace(newName, "/", newCharacter) 'replace all "/" with " " 
myBody.Name = newName 'rename the current body with the revised name 
Next 

MsgBox "All Done!" 
End Sub 

Answer 1

Вы пытались изменить FixPartBodyNames с CATMain?