via VBA Objekt mit Namen ansprechen

[Pucki]

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

[koter]

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 Sub

ich glaube aber, ohne Makro geht es genau so schnell oder sogar schneller.

Gruß

Koter

[Pucki]

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