via VBA Objekt mit Namen ansprechen
#1
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
Zitieren
#2
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
Zitieren
#3
Vielen Dank für deine Antwort.

Allerdings sich Makros für mich er uninteressant wie du vielleicht noch aus einen anderen Thread weißt Wink

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. ;Wink In den seltensten Fällen speichere ich die unter einen anderen Namen. 

Die Kopie ist nur wegen meiner Instinkte da ;Wink Da ich die Angewohnheit habe, zu viel auf die Diskette zu klicken Wink

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
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Photo Bogenschrift am Objekt ausrichten ist weg ? panzerauto 6 324 08.08.2022, 18:24
Letzter Beitrag: panzerauto
  Objekt aus Knoten mit Farbe füllen Spaceliner 7 390 02.08.2022, 10:11
Letzter Beitrag: Spaceliner
  Schrift oder Objekt einseitig grösser ziehen derBibo1969 2 520 01.03.2022, 20:00
Letzter Beitrag: derBibo1969
  VBA relative Objekt Position Pucki 27 2.438 15.11.2021, 22:39
Letzter Beitrag: koter
  Objekt verschieben Karthagos 2 663 03.05.2021, 12:38
Letzter Beitrag: Karthagos
  Objekt Anordnung / Abstand corely 1 582 25.04.2021, 14:05
Letzter Beitrag: Piet
  Objekt "durchscheinend" abru 4 832 25.03.2021, 19:04
Letzter Beitrag: abru
  x8: Dokumentgröße an Objekt anpassen mtemp 3 1.364 11.03.2021, 02:07
Letzter Beitrag: mtemp
  Gestrichelte Linie um ein Objekt Holzmichl 4 804 01.02.2021, 17:49
Letzter Beitrag: norre
  Outline um komplexes Objekt Paintinger 9 1.549 27.02.2020, 14:29
Letzter Beitrag: Piet