nisus.com

Code: Select all

$defaultParagraphStyleName = 'Normal'  # Put an appropriate paragraph style name between the single quotes

Require Pro Version 1.3
$doc = Document.active
if $doc == undefined
	exit  # exit silently
end

$paras = $doc.paragraphStyles
$defaultParagraphStyle = undefined
foreach $para in $paras
	if $para.name == $defaultParagraphStyleName
		$defaultParagraphStyle = $para
		Break
	end
end

if $defaultParagraphStyle == undefined
	exit "You have to create or import \"$defaultParagraphStyleName\" paraagraph style before running this macro, exiting..."
end

$sels = $doc.text.findAll '^\p{Any}', 'E', '-am'  # in the main document body only

foreach $i, $sel in reversed $sels
	if $sel.text.documentContentType != 'body'  # then, $sel is in a table
		$sels.removeValueAtIndex $i
	else
		$attr = $sel.text.attributesAtIndex $sel.location
		if $attr.paragraphStyle != undefined  # then, this paragraph has a style
			$sels.removeValueAtIndex $i
		end
	end
end

if $sels.count
	Push Target Selection $sels
		$defaultParagraphStyle.apply
	Pop Target Selection
else
	exit 'There is no paragraph not having a paragraph style, exiting...'
end