page count

DEVONthink Tips
1

is there a way to find a total page count from a selected group of documents?
and is there a way to scope Concordance to a group or selection without moving them to Inbox?

thanks much
ken

2

Page count: a pretty brute-force way is to select the documents, merge them, then select Print. The print dialog will tell you how many pages you have. Obviously not something you’ll want to do frequently

Concordance is limited to a single database (Inbox is a database) at a time, or to a single document. Nothing in between.

3

yuk - OK thanks for the tip korm…

ken
new feature - page count should be part of Concordance IMO and an option to scope concordance to a selected group or documents

4

It’s scriptable:


tell application "DEVONthink Pro"
	set theSum to 0
	set theSelection to the selection
	repeat with theRecord in theSelection
		set theSum to theSum + (page count of theRecord)
	end repeat
end tell
5

ahh - beautiful ; I made a copy of the Count Words script using your pseudo code to guide the parameter changes and whalah!

Count Pages now works for group or document selections

thanks very much Christian
ken

here’s the script that works for me:

– Count Pages.

tell application id “com.devon-technologies.thinkpro2”
try
set this_selection to the selection
if this_selection is {} then error “Please select some contents.”
set this_pages to my countPages(this_selection)
display alert “DEVONthink Pro” message (this_pages as string) & " pages."
on error error_message number error_number
if the error_number is not -128 then display alert “DEVONthink Pro” message error_message as warning
end try
end tell

on countPages(these_childs)
local this_child, this_count
tell application id “com.devon-technologies.thinkpro2”
set this_count to 0
repeat with this_child in these_childs
set this_count to this_count + (page count of this_child)
set this_count to this_count + (my countPages(children of this_child))
end repeat
end tell
return this_count
end countPages