Hallo miteinander,

ich habe folgendermaßen einen als Snippet vorhandenen TextFrame platziert:

Set SnippetFrame = INDD.ActiveDocument.Pages.Item(1).Place("C:\test.idms", Array(PositionRight, PositionTop), , False, True)

Es gelingt es mir nicht, anschließend den SnippetFrame anzusprechen. Die folgenden Befehle liefern die Fehlermeldung "Objekt unterstützt diese Methode oder Eigenschaft nicht":

Test1 = SnippetFrame.Label

SnippetFrame.FillColor = INDD.ActiveDocument.Colors.Item("Knallgelb")

Was mache ich falsch?

Vielen Dank für eure Hilfe.

Gruß
wopii

Hallo wopii,

herzlich willkommen in der Skriptwerkstatt auf HilfDirSelbst! :-)

Dein Beitrag wurde bisher fast 50 Mal gelesen. Aber keine Antwort auf die eigentlich einfache Frage.
Würdest Du JavaScript verwenden, dann wäre der Erfolg bestimmt grösser ...

Zu Deiner Frage: SnippetFrame ist nicht ein Objekt, sondern ein Array.
Um das Snippet anzusprechen, musst Du das erste Element des Arrays adressieren. Vielleicht so(?):

Code

SnippetFrame.Item(1).FillColor = INDD.ActiveDocument.Colors.Item("Knallgelb") 

Nicht getestet, weil Mac OS X.

Gruss, Hans

Hallo Hans,

besten Dank für Deine hilfreiche Antwort. Ja, so funktioniert es!

Dass ein Snippet, das sich auf dem Bildschirm genauso "anfühlt" wie ein TextFrame, kein solcher ist, sondern ein Array... darauf muss man erst einmal kommen. Aber ich werde hier jetzt nicht über die InDesign-API-Dokumentation jammern;-)

Ja, JavaScript ist in InDesign-Kreisen weiter verbreitet als VB6, aber mit VB6 kenne ich mich aus, mit JavaScript nicht.

Nochmals besten Dank und viele Grüße
Wolfgang

Hallo Wolfgang,

bitteschön.

Sicher, das plazierte Snippet fühlt sich im Dokument wie ein Text-(oder Bild-)rahmen an.

Aber hier geht es um das Ergebnis des Plazierungs-Befehls. Und dieses Ergebnis ist nun mal als Array definiert. Und darauf kommt man, indem man sich im Object-Model-Verzeichnis umschaut ...

Gruss, Hans

Hallo Hans,

Code

SnippetFrame.Item(1).FillColor = INDD.ActiveDocument.Colors.Item("Knallgelb") 

ist zwar syntaxfehlerfrei, liefert aber leider nicht so ganz das Ergebnis, das ich haben möchte: Der Befehl bewirkt, dass der Text in Knallgelb erscheint. Was ich möchte, ist ein knallgelber Frame-Hintergrund (so wie es der Fall ist, wenn ich FillColor auf einen TextFrame anwende).

Mit Item(2) und anderen Indizes habe ich schon herumgespielt, auch mit Parent. Nichts funktioniert.

Weißt Du Rat?

Viele Grüße
Wolfgang, der gerade dabei ist, weitere 250 MB Dokumentation von der Adobe-Website herunterzuladen, aber nicht die Hoffnung hat, darin Antwort auf Fragen zu finden...

Zitat

Dass ein Snippet, das sich auf dem Bildschirm genauso "anfühlt" wie ein TextFrame,

Erstellen Sie mal ein Snippet, das aus 5 Textrahmen besteht und platzieren das. Fühlt sich das immer noch an wie ein Textrahmen?

Antwort auf [ Gerald Singelmann ]

Zitat

Dass ein Snippet, das sich auf dem Bildschirm genauso "anfühlt" wie ein TextFrame,

Erstellen Sie mal ein Snippet, das aus 5 Textrahmen besteht und platzieren das. Fühlt sich das immer noch an wie ein Textrahmen?

Nein, in der Tat. Ist irgendwie logisch:-)

Viele Grüße
Wolfgang

Hallo Wolfgang,

Antwort auf:

Weißt Du Rat?

Würdest Du mir bitte das besagte Snippet zustellen?
Die Adresse findest Du in meinem Profil.

Gruss, Hans

Hallo Hans,

das Snippet ist unterwegs.

Gruß
Wolfgang

Hallo Wolfgang,

danke für das Snippet.

Also ... SnippetFrame.Item(1) ist der Textrahmen. Wenn der Text, der sich darin befindet, eingefärbt werden soll, dann muss ParentStory eingefügt werden.

Diese JavaScript-Zeile funktioniert wie erwartet:

Code

SnippetFrame[0].parentStory.fillColor = app.activeDocument.colors.itemByName("Knallgelb"); 

Mit VB wird es vermutlich so klappen:

Code

SnippetFrame.Item(1).ParentStory.FillColor = INDD.ActiveDocument.Colors.Item("Knallgelb") 

Gruss, Hans

Antwort auf [ Hans Haesler ]

Zitat

Mit VB wird es vermutlich so klappen:

Code

SnippetFrame.Item(1).ParentStory.FillColor = INDD.ActiveDocument.Colors.Item("Knallgelb") 

Leider nein:-( Sattsam bekannte Fehlermeldung: "Dieses Objekt unterstützt diese Methode oder Eigenschaft nicht". Offenbar haben TextFrames, die via Snippet platziert wurden, keine Eltern. Ich hab's auch mit einem Snippet versucht, das zwei verkettete Textrahmen enthält -- gleiches Ergebnis.

Aus Verzweiflung habe ich noch folgendes versucht:

Code

SnippetFrame.Item(1).Texts.Item(1).ParentStory.FillColor = INDD.ActiveDocument.Colors.Item("Knallgelb") 

Das ist offenbar syntaktisch korrekt (keine Fehlermeldung), färbt aber ebenfalls die Zeichen und nicht den Hintergrund.

Auch folgendes funktioniert nicht:

Code

Dim Duplikat as InDesign.TextFrame 
Set Duplikat = SnippetFrame.Item(1) 

Ich geb's jetzt auf. Die Sache ist glücklicherweise nicht lebenswichtig.

Herzlichen Dank für die Zeit, die Du Dir genommen hast!

Wolfgang

Hallo Hans,

das Problem ist gelöst. Ursache war, dass das Snippet im Rahmen einer Schleife

Code

For Each TextFrame in INDD.ActiveDocument.TextFrames 
   If TextFrame.Label <> "" then 
      Set SnippetFrame = .... 
   End If 
next 

platziert wurde.

Während die Schleife durchlaufen wird, ist das Snippet nicht korrekt ansprechbar (was ja auch irgendwie verständlich ist). Danach kann es wie ein ganz normaler TextFrame angesprochen werden, und FillColor färbt den Frame und nicht die Zeichen.

Tja, immer wieder diese Schleifen...

Viele Grüsse
Wolfgang

Hallo Wolfgang,

ich sehe erst jetzt, dass ich die Aufgabe nicht verstanden habe ...

Nicht der Text, sondern der Hintergrund des Textrahmens soll eingefärbt werden. Dazu braucht es natürlich das ParentStory nicht.

Aber bei Deiner Schleife blicke ich nicht ganz durch. Woher nimmst Du denn die Pfade der Snippets? Die Schleife läuft vorwärts: Da müssen sich doch die importierten, gelabelten Snippets störend auswirken.

Ich habe jetzt in einem Dokument das Farbfeld "Knallgelb" angelegt und fünf Textrahmen erzeugt. Zwei davon mit einem Label versehen.

Zu Beginn wird per Dialog das Snippet ausgewählt. Dann werden in der rückwärts laufenden Schleife die Textrahmen geprüft. Wenn bei einem Rahmen das Label nicht ein leerer String ist, dann wird das Snippet geladen und der Hintergrund des Snippet-Rahmens wird mit "Knallgelb" eingefärbt.

Code

var curDoc    = app.documents[0]; 
var snipFile  = File.openDialog (); 
var txtFrames = curDoc.textFrames; 
var nFrames   = txtFrames.length; 
for (var i=nFrames-1; i>0; i--) { 
	if (txtFrames.item(i).label != "") { 
		var SnippetFrame = curDoc.pages.item(0).place(File(snipFile)); 
		SnippetFrame[0].fillColor = curDoc.colors.itemByName("Knallgelb"); 
	} 
} 

Ergebnis: Das Snippet ist in der Schleife sehr wohl ansprechbar. Bedingung ist, dass SnippetFrame.Item(1) benutzt wird.

Ach ja: Entschuldige bitte das JavaScript. Aber für VBA sind meine Kenntnisse nicht ausreichend.

Gruss, Hans

Antwort auf [ Hans Haesler ]

Hallo Hans,

Zitat

Aber bei Deiner Schleife blicke ich nicht ganz durch. Woher nimmst Du denn die Pfade der Snippets?

Die stammen aus einer Datenbank, die im Zuge von Vorgängerprojekten angelegt wurde.

Zitat

Die Schleife läuft vorwärts: Da müssen sich doch die importierten, gelabelten Snippets störend auswirken.

Ja, da hast Du völlig recht. Eine solche Schleife vorwärts laufen zu lassen, ist sicher keine gute Idee:-(

Zitat

Ich habe jetzt in einem Dokument das Farbfeld "Knallgelb" angelegt und fünf Textrahmen erzeugt. Zwei davon mit einem Label versehen.

Zu Beginn wird per Dialog das Snippet ausgewählt. Dann werden in der rückwärts laufenden Schleife die Textrahmen geprüft. Wenn bei einem Rahmen das Label nicht ein leerer String ist, dann wird das Snippet geladen und der Hintergrund des Snippet-Rahmens wird mit "Knallgelb" eingefärbt.

Ich habe die Schleife versuchshalber mal rückwärts laufen lassen. Das sieht dann in VB etwa so aus:

Code

Dim AnzahlFrames as Integer 
Dim Z as Integer 
Dim Pfad as String 
 
AnzahlFrames = INDD.ActiveDocument.TextFrames.Count 
 
For Z = AnzahlFrames To 1 Step -1 
   Set myFrame = INDD.ActiveDocument.TextFrames.Item(Z) 
   If myFrame.Label <> "" then  
       Set SnippetFrame = INDD.ActiveDocument.Place(Pfad) 
       SnippetFrame.Item(1).FillColor = INDD.ActiveDocument.Colors.Item("Knallgelb") 
   End If 
Next Z 

Ergebnis: Es wird die Schrift eingefärbt und nicht der Rahmen. Ein versuchsweise eingefügtes "ParentStory" erzeugt eine Fehlermeldung.

Fazit: Innerhalb dieser Schleife, egal ob vorwärts oder rückwärts, färbt FillColor die Schrift und nicht den TextFrame. Weiß der Teufel, warum. Scheint eine Besonderheit der VB-Implementierung zu sein.

Wenn ich nach dem Platzieren eine separate Schleife speziell zum Färben der TextFrames ausführe, färbt FillColor, wie erwartet, die TextFrames.

Ich hab's aufgegeben, das verstehen zu wollen...

Viele Grüsse
Wolfgang