+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: via VBA Objekt mit Namen ansprechen (/showthread.php?tid=38406)
via VBA Objekt mit Namen ansprechen - Pucki - 22.08.2022
Hallo Leute,
ich habe mal wieder ein kleines Problem.
Ich habe eine Corel-Datei (Corel X4) wo ich 3 Layer habe. Im Layer "Drucken" befindet sich eine Mengentext-Objekt mit Namen "Liste_Daten". Hab so umbenannt.
Ich möchte nun via VBA dieses Text-Objekt ansprechen. Den Inhalt löschen und "neuen Text eingeben".
Danach möchte ich die 1 Seite (ist nur 1 ) ausdrucken.
Ich kann zwar das Objekt jedes mal neu Zeichnen. Aber das wäre mir viel zu umständlich da ich den Objekt und allen anderen auf der Seite schon viel eingestellt habe.
Kann jemand bitte so freundlich sein und mir die 3 Befehle Objekt auswählen, Text eingeben, und Seite Drucken mal eben aufschreiben. Damit wäre mir SEHR VIEL geholfen.
VIELEN DANK im Voraus.
Gruß
Pucki
RE: via VBA Objekt mit Namen ansprechen - koter - 24.08.2022
Hallo Pucki,
Der Code:
Code:
Sub Pucki_1()
Dim Seite As Page
Dim NeuerText As String
Set Seite = ActivePage
NeuerText = "Bello" 'Der neue Text
Seite.Layers("Drucken").Shapes("Liste_Daten").Text.Story = NeuerText 'Alten Text überschreiben
ActiveDocument.PrintOut 'Drucken
End Subich glaube aber, ohne Makro geht es genau so schnell oder sogar schneller.
Gruß
Koter
RE: via VBA Objekt mit Namen ansprechen - Pucki - 24.08.2022
Vielen Dank für deine Antwort.
Allerdings sich Makros für mich er uninteressant wie du vielleicht noch aus einen anderen Thread weißt
Es geht um das Komplizierte Design und einige Text-Felder darin.
Einfach erklärt. Ich erstelle eine Datei unter Corel. Die Speichere ich mit den Vermerk als z.b "my_datei-LEER.cdr" ab.
Nun ist Visual-Basic dran.
Dort wird eine COPY Befehl aufgerufen, der die Datei zur neuen Datei kopiert.
copy my_datei-LEER.cdr my_datei.cdr
Nun öffne ich diese my_datei.cdr mir VB.
Und füttere die Text-Felder mit den passenden Daten. Dann drucken und weg damit. ;
In den seltensten Fällen speichere ich die unter einen anderen Namen. Die Kopie ist nur wegen meiner Instinkte da ;
Da ich die Angewohnheit habe, zu viel auf die Diskette zu klicken Eine Anwendung (die nicht meine ist) für so was wäre z.b. der Luxus-Serienbrief mit einen Schönen Design.
Aber sei dir Sicher du hast mir mit der Beantwortung super geholfen.
VIELEN VIELEN Dank.
Gruß
Pucki