Unter Windows (da VBS): Folgenden Code in eine neue Textdatei kopieren, als "Irgendwas.vbs" speichern und per Doppelklick ausführen.
Code:
Dim appref, docref, i
Set appref = CreateObject("Photoshop.Application")
'**********Hier Einstellungen vornehmen*************
textsize=18 '<--Hier die textgröße eintragen
'****************************************************
If appref.Documents.count<>0 Then
Set docref=appref.ActiveDocument
Else
MsgBox "Erst eine Datei öffnen!"
WScript.Quit
End If
'Alle Textebenen in allen Sets:
For i = 1 To docref.LayerSets.Count
For Each Layer In docref.LayerSets(i).ArtLayers
If Layer.Kind = 2 Then
Layer.TextItem.Size = textsize
End If
Next
Next
'Und nun noch die Textebenen ausserhalb der Sets:
For Each Layer In docref.ArtLayers
If Layer.Kind = 2 Then
Layer.TextItem.Size = textsize
End If
Next
Die Schriftart liesse sich so auch problemlos ändern.
Wenn du mit nem Mac unterwegs bist: Jemand fragen, der JS oder AS kann