Hallo, wieder mal eine Scriptfrage von mir ;-)

Ich würde gerne ein bestimmtes Wort/String innerhalb eines existierenden Textrahmens FETT gedruckt haben. Find/Change scheint irgendwie nur auf das ganze Dokument anwendbar zu sein, oder?


Das hier funktioniert leider nicht:

TextrahmenName.ChangePreferences.fontStyle = "Bold"
TextrahmenName.ActiveDocument.Search ""& Text &"", False, False, ""

Gruß,
CL

Hi Steven J.,

versuchs doch mal im Adobe Indesign Scripting Forum. ;-)

cu
KP

Hallo
> Find/Change scheint irgendwie nur auf das ganze
> Dokument anwendbar zu sein, oder?
Das Stimmt nicht. Bei "Suchen/Ersetzen" kann man in der "Auswahl", "bis zum ENDE des TExtabschnitts" und im "Textabschnitt" arbeiten. Und natürlich im Dokument und, was die wenigsten wissen, in allen geöffneten Dokumenten.

Grüßle
Christoph Steffens
http://www.indesign-worker.com

> Das Stimmt nicht. Bei "Suchen/Ersetzen" kann man in der "Auswahl",
> "bis zum ENDE des TExtabschnitts" und im "Textabschnitt" arbeiten.
Hört sich gut an, weisst Du denn auch wie das geht ;-)? Oder weisst Du wie die Optionen heissen oder hast ein Beispiel? (im Adobe Scripting Guide wüsste ich jetzt gar nicht wonach ich genau suchen soll)

Gruß,
CL

Sorry,
meine Antwort bezog sich auf des "händische" S/E. Wie man an diese Funktion per Script kommt, weiß ich nicht.
Da habe ich dich missverstanden...

Grüßle
Christoph Steffens
http://www.indesign-worker.com

Du mußt den Bereich für die Suche definieren.
Try something like this:

Set myInDesign = CreateObject("InDesign.Application.CS")
Set myDocument = myInDesign.ActiveDocument
Set mySelection = myInDesign.Selection.Item(1)
myFindText = "^p"
myReplaceText = "^n"
Set myFoundItems = mySelection.Search(myFindText, False, False, myReplaceText)

Und wie könnte ich das

.fontStyle = "Bold"

in dem

Set myFoundItems = mySelection.Search(myFindText, False, False, myReplaceText)

unterbringen?

Niemand eine Idee?

Also den Suchbereich habe ich ja im Prinzip schon definiert - ich weiss, welches Wort ich verändern möchte. Ein Wort ersetzen kann ich ja, aber den FontStyle dieses Wortes habe ich nicht hinbekommen. In diese Zeile:

Set myFoundItems = mySelection.Search(myFindText, False, False, myReplaceText)

lässt sich vermutlich der FontStyle nicht unterbringen - zumindest habe ich keine funktionierende Schreibweise gefunden.

Und wenn ich meine Selection statt:
Set mySelection = myInDesign.Selection.Item(1)

auf:
Set mySelection = myInDesign.TextFrames.Item("TextFrameName")

ändere und mit .FontStyle kombiniere bekomme ich auch den Fehler, dass das Objekt diese Methode nicht unterstützt. Das AdobeScriptingGuide ist leider sehr spärlich mit Beispielen versehen.

Du mußt den Bereich für die Suche definieren.
Try something like this:

Set myInDesign = CreateObject("InDesign.Application.CS")
Set myDocument = myInDesign.ActiveDocument
Set mySelection = myInDesign.Selection.Item(1)
myFindText = "^p"
myReplaceText = "^n"
Set myFoundItems = mySelection.Search(myFindText, False, False, myReplaceText)

> Niemand eine Idee?

[url]http://www.adobeforums.com/cgi-bin/webx?13@49.ieVKdzx9CEF.1412544@.3bb79ebe/13[/url]

Öhm ja, im Adobe Forum ist auch mein Eintrag (über Firmenaccount). Hier nochmal die Lösung (für mich) für die Leser dieses Forums:

Function MachFett(ChangeWord)
myInDesign.FindPreferences = idNothingEnum.idNothing
myInDesign.ChangePreferences = idNothingEnum.idNothing

myDocument.Select TextFrameName
Set mySelection = myInDesign.Selection.Item(1)
myFindText = ChangeWord
myReplaceText = ChangeWord
myInDesign.FindPreferences.fontStyle="Regular"
myInDesign.ChangePreferences.fontStyle="Bold"
Set myFoundItems = mySelection.Search(myFindText, False, False,
myReplaceText)
myInDesign.FindPreferences = idNothingEnum.idNothing
myInDesign.ChangePreferences = idNothingEnum.idNothing
End Function