--MAKE "NO STYLE"

--Gordon Woolf Sept. 1998

--This script will make all styles into "No style" settings
-- so copy can be taken across to other files.
-- It also removes unused styles so file can be taken across 
-- with no danger of importing styles which are not needed.

GetPages >> pagenums

loop y = 1, pagenums

page y

GetObjectIDList >> nNumofObj, objectidlist
Loop x = 1, nNumofObj

set objectidlist >> nObjectID, ..., ..., ..., cTypeOfObject, ..., ..., ..., ..., ..., ..., ..., ..., ..., ...,objectidlist

SelectID nObjectID
if cTypeOfObject = 1
TextEdit
SelectAll
Style "No style"
DeSelect
endif

endloop
endloop

getstylenames >> ...,stylenames
while not(empty(stylenames))
set stylenames >> style,stylenames
if not(style?used.styles)
removestyle style
endif
endwhile

return