via VBA Objekt mit Namen ansprechen

[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