tell application "Adobe InDesign CC 2018" 
	set aDoc to active document 
	set shownFrame to "none" 
	set allStories to stories of aDoc 
	repeat with aStory in allStories 
		set nParas to count paragraphs in aStory 
		repeat with n from 1 to nParas 
			if (count lines in paragraph n of aStory) > 1 then 
				set lstFrame to first item of parent text frames of last line of paragraph n of aStory 
				set sndFrame to last item of parent text frames of line -2 of paragraph n of aStory 
				if lstFrame is not equal to sndFrame then 
					my showFrame(lstFrame) 
					select last line of paragraph n of aStory 
					return 
				end if 
				 
			end if 
		end repeat 
	end repeat 
end tell 
on showFrame(aFrame) 
	tell application "Adobe InDesign CC 2018" 
		set aSpread to my getSpread(aFrame) 
		if aSpread is not active spread of active window then 
			set active spread of active window to aSpread 
			zoom active window given actual size 
		end if 
	end tell 
end showFrame 
on getSpread(aThing) 
	tell application "Adobe InDesign CC 2018" 
		repeat until class of aThing is spread 
			set aThing to parent of aThing 
		end repeat 
		return aThing 
	end tell 
end getSpread 

tell application "Adobe InDesign CC 2018" 
	set aDoc to active document 
	set shownFrame to "none" 
	set allStories to stories of aDoc 
	repeat with aStory in allStories 
		set nParas to count paragraphs in aStory 
		repeat with n from 1 to nParas 
			if (count lines in paragraph n of aStory) > 1 then 
				set lstFrame to first item of parent text frames of last line of paragraph n of aStory 
				set sndFrame to last item of parent text frames of line -2 of paragraph n of aStory 
				if lstFrame is not equal to sndFrame then 
					my showFrame(lstFrame) 
					select last line of paragraph n of aStory 
					set question to display dialog "Weiter?" buttons {"Ja", "Nein"} default button 2 
					set result to button returned of question 
					if result is equal to "Nein" then 
						return 
					end if 
				end if 
				 
			end if 
		end repeat 
	end repeat 
end tell 
on showFrame(aFrame) 
	tell application "Adobe InDesign CC 2018" 
		set aSpread to my getSpread(aFrame) 
		if aSpread is not active spread of active window then 
			set active spread of active window to aSpread 
			zoom active window given actual size 
		end if 
	end tell 
end showFrame 
on getSpread(aThing) 
	tell application "Adobe InDesign CC 2018" 
		repeat until class of aThing is spread 
			set aThing to parent of aThing 
		end repeat 
		return aThing 
	end tell 
end getSpread