🚀 go-pugleaf

I am not to good at apple script, so am finding this a little hard, but here is my script, thanks

I have named my headers H1, H2, H3,

property topheads : {"H1", "p1"}
property secondheads : {"H2", "p1"}
property thirdheads : {"H3", "p1"}
-- this script auto-numbers headings to a depth of three
-- first, concatenate all head styles so other paras are
-- easily ignored

copy topheads to allheads
repeat with n from 1 to count of secondheads
	copy item n of secondheads to end of allheads
end repeat
repeat with n from 1 to count of thirdheads
	copy item n of thirdheads to end of allheads
end repeat

tell application "InDesign 2.0.1"
	set myStory to parent story of selection
	set theLim to count of paragraphs of myStory
	set topCount to 1
	set secondCount to 1
	set thirdCount to 1

	repeat with n from 1 to theLim
		set myStyle to name of applied paragraph style of paragraph n of myStory
		if myStyle is in topheads then
			set word 1 of paragraph n of myStory to topCount as string
			set topCount to topCount + 0.1
			set secondCount to 1
			set thirdCount to 1
		else if myStyle is in secondheads then
			set word 1 of paragraph n of myStory to (topCount + 1) as string
			set word 2 of paragraph n of myStory to secondCount as string
			set secondCount to secondCount + 0.1
			set thirdCount to 1
		else if myStyle is in thirdheads then
			set word 1 of paragraph n of myStory to (topCount - 1) as string
			set word 2 of paragraph n of myStory to (secondCount - 1) as string
			set word 3 of paragraph n of myStory to thirdCount as string
			set thirdCount to thirdCount + 0.1
		end if
	end repeat
end tell