`

    tell application "VoodooPad"
    	set linePrefix to text returned of (display dialog "What prefix should I look for when gathering lines?" default answer "TODO: ")
    	set foundItems to {}
    	repeat with myPage in pages of document 1
    		set pageParagraphs to paragraphs of text of myPage
    		repeat with myParagraph in pageParagraphs
    			set lineText to myParagraph as text

    			set AppleScript's text item delimiters to the linePrefix
    			set linePieces to every text item of lineText
    			if (count of linePieces) is greater than 1 then
    				set foundItem to the last item of linePieces
    				set the end of foundItems to "From " & (display name of myPage) & ": " & foundItem
    			end if
    		end repeat
    	end repeat

    	set AppleScript's text item delimiters to return
    	set the clipboard to foundItems as string

    	display alert "Finished" message "You may now paste the collected lines into any page."
    end tell

`

Submitted by chiznibitz at yahoo