---

Hallo Forum,

es gibt zu diesem Thema schon einige Treads , eine Lösung dazu habe ich aber leider nicht finden können.
Ich möchte meine Veröffentlichungen überprüfen und die Umlaute eliminieren.
Das wäre mein Ansatz:

Code:

---

Sub CATMain()
On Error Resume Next

    Dim oDoc As Document
    Dim oProd As Product
    Set oDoc = CATIA.ActiveDocument
    Set oProd = oDoc.Product
    Set Publics = oProd.Publications
    Dim ref1 'As String
   

For i = 1 To Publics.Count
        Set ref1 = Publics.Item(i).Valuation
        MyString = ref1.DisplayName
       
            If MyString Like "*ö*" Then
                MyString = Replace(MyString, "ö", "oe")
            ElseIf MyString Like "*ä*" Then
                MyString = Replace(MyString, "ä", "ae")
            ElseIf MyString Like "*ü*" Then
                MyString = Replace(MyString, "ü", "ue")
            ElseIf MyString Like "*ß*" Then
                MyString = Replace(MyString, "ß", "ss")
            End If
   
    Publics.Item(i).Valuation.DisplayName = MyString 'hier sollte die Umbenennung stattfinden
     
    Set i = i + 1
Next
End Sub

---

leider übernimmt das Macro den Inhalt von MyString nicht. Hat so etwas schon jemand lösen können?

G

Norbert

------------------
V5R20
Catia + Smarteam

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
IMHO gibt dir "Valuation" die Referenz nicht die Publication zurück.
Anbei wein Beispiel wie es klappen könnte:

Zitat:

---

Sub CATMain()
On Error Resume Next

    Dim oDoc As Document
    Dim oProd As Product
    Set oDoc = CATIA.ActiveDocument
    Set oProd = oDoc.Product
    Set Publics = oProd.Publications
    Dim ref1 'As String
 

For i = 1 To Publics.Count
        Set ref1 = Publics.Item(i)
        MyString = ref1.Name   
           
                MyString = Replace(MyString, "ö", "oe")           
                MyString = Replace(MyString, "ä", "ae")           
                MyString = Replace(MyString, "ü", "ue")         
                MyString = Replace(MyString, "ß", "ss")         

ref1.Name = MyString 'hier sollte die Umbenennung stattfinden   

Next
End Sub

---

Achtung, falls du auch Umlaute in Großbuchstaben hast, musst du diese auch ersetzen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

vielen Dank für Deine Hilfe.
Leider ersetzt das Macro den Namen der Publikation nicht

Code:

---

ref1.Name = MyString

---

ich werde mal weitersuchen

Gruß

Norbert

------------------
V5R20
Catia + Smarteam

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich habe damals auch nach einer Lösung gesucht Veröffentlichung per Makro umzubenennen. Bin aber dann zu dem Schluss gekommen das es keine Möglichkeit gibt. Hast du noch was gefunden?

Gruß Tobi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP