So etwas lässt sich per Script leicht realisieren. Voraussetzung: PS CS/CS2 oder PS7 mit Scriptunterstützung.
Erstelle eine leere Textdatei und füge folgenden Inhalt rein:
Code:
Option Explicit
Dim appref
Dim docref
Dim startRulerUnits
Dim anzahl, pfad, reihe, i, j
Set appref = CreateObject("Photoshop.Application")
startRulerUnits = appref.Preferences.RulerUnits
'**********Hier den Pfad eingeben*************
pfad = "c:\"
'**********Hier den Pfad eingeben*************
If appref.Documents.Count <> 0 Then
Set docref = appref.ActiveDocument
Else
MsgBox "Kein Dokument geöffnet!"
End If
anzahl = InputBox("Maximale Anzahl angeben:", "Eingabe", 10)
reihe = anzahl \ 3 + anzahl Mod 3
For j = 1 To reihe
for i=1 to 3
docref.ArtLayers(i).TextItem.Contents = CStr(j+(i-1)*reihe)
next
docref.SaveAs pfad & "dok" & j & ".psd"
Next
Hier musst du nur noch den Speicherpfad angeben und die Datei als "irgendwas.vbs" abspeichern.
Jetzt einfach noch in PS ein Dokument vorbereiten. Wichtig dabei ist, dass die oberen 3 Ebenen die Textebenen in aufsteigender Reihenfolge sind:
Bsp:
ebene45 (01)
ebene22 (04)
ebene99 (07)
ebene5
Hintergrundebene
Bei Fragen....einfach hier melden
Gruß mh
PS: Anschliessend das Script natürlich noch per Doppelklick starten!