Text extract with style

Hi everybody,
I use a script to extract text from quark based on its applied style using the below routine. But now I need to extract text with its style like bold, italic. Is there anyone expertise on this issue. Help!!!


repeat with aTextBox in textBoxList
							tell aTextBox
								set foundParagraphList to (every paragraph whose style sheet is myStyle)
								repeat with aParagraph in foundParagraphList
									set thisline to contents of aParagraph
									if thisline is not equal to "" then
										set recipe to recipe & myStyle & tab & thisline & tab & pageIndex & return
									end if
								end repeat
							end tell --aTextBox
						end repeat