tell application "Adobe InDesign CS2" 
	set mySel to selection 
	set myInsert to item 1 of mySel 
	if class of myInsert = insertion point then 
		set myStory to parent of myInsert 
		set there to index of myInsert 
		set contents of myInsert to thin space 
		set da1 to horizontal offset of character (there - 1) of myStory 
		set da2 to horizontal offset of character (there) of myStory 
		set da3 to horizontal offset of character (there + 1) of myStory 
		set wChar to da2 - da1 
		set wSpace to da3 - da2 
		if (wChar > 0) and (wSpace > 0) then 
			set tausendstel to wSpace / 125 
			set myKern to (wChar / 2) div tausendstel 
			set kerning value of insertion point there of myStory to (0 - myKern) 
			set kerning value of insertion point (there + 1) of myStory to (myKern - 125) 
			set underline of character there of myStory to true 
			set underline type of character there of myStory to dotted stroke style "p" of active document 
		else 
			set contents of character there of myStory to "" 
		end if 
	end if 
end tell 

tell application "Adobe InDesign CS2" 
	set mySel to selection 
	set lastChar to false 
	set myInsert to item 1 of mySel 
	if class of myInsert = insertion point then 
		set myStory to parent of myInsert 
		set myIndex to index of myInsert 
		set contents of myInsert to thin space 
		set x1 to horizontal offset of character (myIndex - 1) of myStory 
		set x2 to horizontal offset of character myIndex of myStory 
		try 
			set x3 to horizontal offset of character (myIndex + 1) of myStory 
		on error 
			set lastChar to true 
			set contents of insertion point (myIndex + 1) of myStory to "_" 
			set x3 to horizontal offset of character (myIndex + 1) of myStory 
		end try 
		set wChar to x2 - x1 
		set wSpace to x3 - x2 
		if (wChar > 0) and (wSpace > 0) then 
			set tausendstelGeviert to wSpace / 125 
			set myKern to (wChar / 2) div tausendstelGeviert 
			set kerning value of insertion point myIndex of myStory to (0 - myKern) 
			set kerning value of insertion point (myIndex + 1) of myStory to (myKern - 125) 
			set underline of character myIndex of myStory to true 
			try 
				set underline type of character myIndex of myStory to dotted stroke style "p" of active document 
			on error 
				set nuStyle to make dotted stroke style in active document 
				tell nuStyle 
					set name to "p" 
					set dot array to {7.0} 
					set stroke corner adjustment to none 
				end tell 
				set underline type of character myIndex of myStory to dotted stroke style "p" of active document 
			end try 
		else 
			set contents of character myIndex of myStory to "" 
		end if 
		if lastChar then 
		select character (myIndex + 1) of myStory 
	end if 
	end if 
end tell