Loading ...
Sorry, an error occurred while loading the content.

Text concordance

Expand Messages
  • John Rethorst
    Here s an Applescript to make a list of every word in a WP doc (without duplicates). Have the doc as the front window when you run this. set theConcordance to
    Message 1 of 1 , Mar 14, 2005
    • 0 Attachment
      Here's an Applescript to make a list of every word in a WP
      doc (without duplicates). Have the doc as the front window
      when you run this.

      set theConcordance to {}
      tell application "WordPerfect" to set theText to text of ¬
      document 1
      set wordList to words of theText
      repeat with i in wordList
      if theConcordance does not contain i then set ¬
      theConcordance to theConcordance & (i as string)
      end repeat
      set text item delimiters to return
      tell application "WordPerfect"
      activate
      make window with data "" & (theConcordance as string)
      end tell
      John R.
    Your message has been successfully submitted and would be delivered to recipients shortly.