Microsoft Powerpoint: AppleScript für Preistafeln

War eine Lösung für eine Preistafel bei einer Auktion, es geht von 8000 in 500er-Schritten bis zur letzten Folie. Es wird hierbei immer das erste und einzige Text-Feld auf der Folie gesetzt:

Code zum markieren einmal anklicken Code im Skript-Editor öffnen

tell application “Microsoft PowerPoint”

tell active presentation

set thenumber to 8000

repeat with i from 1 to count of every slide

##content looks like this – >    8.500 €

set content of text range of text frame of shape 1 of slide i to (characters 1 through -4 of (thenumber as text) & “.” & characters -3 through -1 of (thenumber as text) & ” €”) as text

set thenumber to thenumber + 500

end repeat

end tell

end tell