tell (make dialog row) 
				tell (make dialog column) 
					make static text with properties {static label:"Name:"} 
					make static text with properties {static label:"Titel 1:"} 
					make static text with properties {static label:"Titel 2"} 
				end tell 
				tell (make dialog column) 
					set NameField to make text editbox with properties {edit contents:"Vorname Name", min width:60} 
					set Titel1Field to make text editbox with properties {edit contents:"+49(0)511-87451-0", min width:60} 
					set Titel2Field to make text editbox with properties {edit contents:" ", min width:60} 
				end tell 
			end tell 

	tell spread 1 of aDoc to set t to make text frame with properties {geometric bounds:{20, 4, 30, 40}, item layer:aLayer} 
	set tc to vkName & return & vkTitel1 & return & vkTitel2 
	set contents of t to tc 
	set s to parent story of t 
	set point size of characters of s to 6 
	set point size of characters of line 1 of s to 8 
	set fill color of characters of s to aSwatch 
	set fill color of line 1 of s to "Black" 
	set applied font of s to "Baskerville BQ" 
	set font style of s to "Italic" 
	set applied font of line 1 of s to "Akzidenz Grotesk" 
	set font style of line 1 of s to "Bold" 

tell spread 1 of aDoc to set t to make text frame with properties {geometric bounds:{23, 43, 53, 85}, item layer:aLayer} 
set tc to "Hallo" & tab & "Welt" 
set contents of t to tc 

tell parent story of t 
  make tab stop with properties {position:9} 
end tell 

set meinetelnr to "+49(0)3231-23456-23" 
 
my telnrgliedern(meinetelnr) 
 
on telnrgliedern(ausgangsstring) 
	set mylist to every text item of ausgangsstring 
	set startstring to "+49 (0) " 
	set nrlist to characters 7 thru -1 of ausgangsstring 
	 
	--liste umgekehrt sortieren 
	set nrlist02 to {} 
	repeat with i from 1 to count of nrlist 
		set mynr to item i of nrlist 
		set beginning of nrlist02 to mynr 
	end repeat 
	 
	--von ende her paarweise abzaehlen 
	set nrlist03 to {} 
	set counter to 0 
	repeat with j from 1 to count of nrlist02 
		set mynr02 to item j of nrlist02 
		try 
			set mynr02 to mynr02 as number 
			if counter = 2 then 
				set mynr02 to mynr02 & " " 
				set beginning of nrlist03 to mynr02 
				set counter to 1 
			else 
				set beginning of nrlist03 to mynr02 
				set counter to counter + 1 
			end if 
		on error 
			set mynr02 to " " & mynr02 & " " 
			set beginning of nrlist03 to mynr02 
			set counter to 0 
		end try 
	end repeat 
	set telnr to startstring & (nrlist03 as string) 
	return telnr 
end telnrgliedern 

tell application "Adobe InDesign CS3" 
  activate 
  -- eventuell offengebliebene Dialoge schliessen 
  try 
    destroy dialogs 
  end try 
  -- den Dialog vorbereiten 
  set aDialog to make dialog with properties {name:"Visitenkarte"} 
  tell aDialog 
    tell (make dialog column) 
      tell (make dialog row) 
        tell (make dialog column) 
          make static text with properties {static label:"Name:"} 
          make static text with properties {static label:"Titel 1:"} 
          make static text with properties {static label:"Titel 2:"} 
        end tell 
        tell (make dialog column) 
          set NameField to make text editbox with properties {edit contents:"Vorname Name", min width:160} 
          set Titel1Field to make text editbox with properties {edit contents:"+49(0)511-87451-0", min width:160} 
          set Titel2Field to make text editbox with properties {edit contents:" ", min width:160} 
        end tell 
      end tell 
    end tell 
    -- den Dialog zeigen 
    with timeout of 300 seconds 
      set dResult to show aDialog 
    end timeout 
    -- die Auswahl auswerten 
    if dResult = true then 
      set vkName to edit contents of NameField 
      set vkTitel1 to edit contents of Titel1Field 
      set vkTitel2 to edit contents of Titel2Field 
    else 
      destroy aDialog 
      error number -128 
    end if 
    destroy aDialog 
  end tell 
   
  -- die Textkette dem Handler zum Spationieren schicken   
  set vkTitel1 to my groupNumbers(vkTitel1) 
   
  -- die Suchen/Ersetzen-Vorgaben leeren 
  set find text preferences to nothing 
  set change text preferences to nothing 
  set find change text options to nothing 
   
  set aDoc to document 1 
  set aLayer to layer 1 of document 1 
  set aSwatch to swatch 6 of document 1 
  tell spread 1 of aDoc to set t to make text frame with properties {geometric bounds:{20, 4, 30, 40}, item layer:aLayer} 
  set tc to vkName & return & vkTitel1 & return & vkTitel2 
  set contents of t to tc 
  set s to parent story of t 
   
  -- die Zeichen definieren ("<2009>" ist der Unicode des Achtelgevierts) 
  set find what of find text preferences to "¶" 
  set change to of change text preferences to "<2009>" 
   
  -- das Suchen/Ersetzen auslösen 
  tell s to change text 
   
  set point size of characters of s to 6 
  set point size of characters of line 1 of s to 8 
  set fill color of characters of s to aSwatch 
  set fill color of line 1 of s to "Black" 
  set applied font of s to "Baskerville BQ" 
  set font style of s to "Italic" 
  set applied font of line 1 of s to "Akzidenz Grotesk" 
  set font style of line 1 of s to "Bold" 
   
  -- die Suchen/Ersetzen-Vorgaben leeren 
  set find text preferences to nothing 
  set change text preferences to nothing 
  set find change text options to nothing 
end tell 
 
-- der Handler, welcher das Spationieren vorbereitet 
on groupNumbers(tmpString) 
  set tmpString to change "(\\(0\\))" into "¶\\1¶" in tmpString with regexp 
  set tmpString to change "(-)" into "¶\\1¶" in tmpString with regexp 
  set tmpString to change "¶([0-9])?([0-9][0-9])([0-9][0-9])¶" into "¶\\1¶\\2¶\\3¶" in tmpString with regexp 
  set tmpString to change "¶([0-9])([0-9][0-9])" into "¶\\1¶\\2" in tmpString with regexp 
  set tmpString to change "¶+" into "¶" in tmpString with regexp 
  return tmpString 
end groupNumbers