Hallo,
ich habe eine CATIA-Zeichnung (angenommen mit dem Namen „Gestelle“) mit 8 Blättern. Jedes Blatt hat einen anderen Namen (Gestell1, Gestell2, Gestell3,..). Nun möchte ich mit einem Makro 8 separate pdf-Dateien auf einmal erstellen. Diese pdf sollten nach dem Blattnamen benannt sein.
Ich habe hier schon ein bestehendes Makro:
Sub CATMain()
Dim oDoc As Document
Dim DocName As String
Dim DocPath As String
Dim PDFPath As String
Set oDoc = CATIA.ActiveDocument
DocName = oDoc.Name
DocPath = oDoc.Path
PDFPath = DocPath & "\" & Left(DocName, Len(DocName) - 11) & "_Profilzng" & ".pdf"
'Debug.Print "PDF Path: " & PDFPath
oDoc.ExportData PDFPath, "pdf"
End Sub
Das Problem bei diesem Makro ist jedoch dass er mir hier immer den Zeichnungsnamen vorne mit in den pdf-Dateinamen einfügt also
Gestelle_Gestell1.pdf
Gestelle_Gestell2.pdf
Gestelle_Gestell3.pdf
usw.
Wie muss ich jetzt das Makro umbauen damit er mir die pdf-Dateien ohne den Zeichnungsnamen vorne benennt, also die pdf sollten dann so aussehen:
Gestell1.pdf
Gestell2.pdf
Gestell3.pdf
usw.
Ich hoffe ihr habt eine Lösung für mein Anliegen
Gruß Stefan
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP