This AppleScript requires Tex-Edit Plus to work and is based on the "Export Selection" script. The purpose of the script is to insert the HTML tags for bold, italics, and strikethrough into VoodooPad's currently selected text. That's all it does; links are untouched and the underlining is ignored. This is useful for pasting into some bulletin boards and blogs.

Notes:

- For some reason this script seems to take >30 seconds to run, and ActivityMonitor shows the hard drive is not busy. I'm not sure why this is. If anyone knows, I'd appreciate an email to alangenh [at] excite [dot] com. Thanks!
- I seem to have to copy the the clipboard manually before calling the script. Don't know why.

    --script to convert text styles in the selection to html tags using Tex-Edit Plus
    tell application "VoodooPad"
      activate
      tell application "System Events" to keystroke "c" using command down
    end tell
    tell application "Tex-Edit Plus"
      activate
      make new document at front
      tell application "System Events" to keystroke "v" using command down
      set temporaryWin to name of front window
      tell window temporaryWin
        replace looking for "^*" looking for styles {style:{bold, italic, underline}} replacing with "<b><i>^*</i></b>"
        replace looking for "^*" looking for styles {style:{bold, italic}} replacing with "<b><i>^*</i></b>"
        replace looking for "^*" looking for styles {style:{bold, underline}} replacing with "<b>^*</b>"
        replace looking for "^*" looking for styles {style:{italic, underline}} replacing with "<i>^*</i>"
        replace looking for "^*" looking for styles {style:bold} replacing with "<b>^*</b>"
        replace looking for "^*" looking for styles {style:italic} replacing with "<i>^*</i>"
        replace looking for "^*" looking for styles {style:outline} replacing with "<strike>^*</strike>"
        replace looking for "^*" looking for styles {style:strikethrough} replacing with "<strike>^*</strike>"
      end tell
    end tell