Massenänderung der Dateiversion per Makro
#1
Hallo,

ich würde gerne alle .cdr- Dateien (mit X3) erstellt, mit X3 öffnen und gleich wieder als Dateien der Version 10 speichern. Ich möchte diese Dateien einem Freund zur Verfügung stellen, der die Version 10 nutzt. Ich habe versuchshalber mal den Vorgang per Makro aufgezeichnet. Wie müsste ich den Code nun ändern, damit das für alle Dateien in einem Verzeichnis klappt?

Sub Dateiformat()
' Recorded 13.04.2015
Dim openopt As StructOpenOptions
Set openopt = CreateStructOpenOptions
With openopt.ColorConversionOptions
.SourceColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
.TargetColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
End With
Dim doc1 As Document
Set doc1 = OpenDocumentEx("L:\CorelDraw\Vorlage_Trennbl„tter_schmal.cdr", openopt)
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = True
.Filter = cdrCDR
.IncludeCMXData = True
.Range = cdrAllPages
.EmbedICCProfile = True
.Version = cdrVersion10
End With
doc1.SaveAs "L:\CorelDraw\Vorlage_Trennbl„tter_schmal.cdr", SaveOptions
End Sub

Danke und Gruß
Zitieren
#2
Hallo derhornist,

dazu brauchst du kein eigenes Macro erstellen, das gibt es schon als Standard in Corel Draw!!

Schau mal unter
-->Extras-->Macros-->Macros ausführen-->Macros in-->FileConverter-->Ausführen

Damit kannst du ganze Verzeichnisse in ein anderes Format deiner Wahl konvertieren.
Auch von einer Corel Datei (Cdr) in ein niedrigeres CDR Format.
Zitieren
#3
Hallo,

na DAS war ja mal einfach.

Vielen Dank für die schnelle Antwort!!!

Gruß

xmasdanke
Zitieren
#4
Gern geschehen Smile
Machs aber sicherheitshalber mit Kopien, man weiß ja nie ;-)
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Makro - Text an Rechteck ausrichten benni313 5 284 31.01.2024, 09:20
Letzter Beitrag: benni313
  Grafik per Makro Exportieren Chrisbeee 10 1.190 10.02.2023, 00:54
Letzter Beitrag: Chrisbeee
Photo Kreis erhält nach Export über Makro als DXF sehr viele Knotenpunkte Olaf 4 1.049 22.06.2022, 08:34
Letzter Beitrag: Olaf
  Makro für Konturerstellung pieksdi 16 2.422 08.08.2021, 12:00
Letzter Beitrag: pieksdi
  Makro in CorelDraw einbinden Karthagos 10 2.122 20.06.2021, 18:24
Letzter Beitrag: Karthagos
  Text in Corel Vorlage anhand von Makro / VBA ändern Olaf 4 1.727 02.03.2021, 11:06
Letzter Beitrag: Olaf
Sad Makro erzeugt Laufzeitfehler nowa 13 2.465 12.12.2020, 17:19
Letzter Beitrag: nowa
  Makro-Schutz FlyingGancho 7 1.455 27.11.2020, 21:23
Letzter Beitrag: koter
Question Altes .bas Makro mit CorelDraw 2017 öffnen GreenDread 2 1.724 01.04.2019, 17:03
Letzter Beitrag: GreenDread
  Makro gesucht, das alle offenen Andockfenster schließt und wiederherstellt datt Niggl 7 1.695 27.03.2017, 20:57
Letzter Beitrag: datt Niggl