require "luacom"

function GetSynonym (name, line, wildcards)

word = luacom.GetObject("Word.Application")

if not word then
  ColourNote ("white", "red", "Word is not running")
  return
end -- if

word.Visible = true  -- make Word visible
word:Activate ()  -- bring Word to the front

if word.Documents.count == 0 then
  ColourNote ("white", "red", "No document open in Word")
  return
end -- if

doc = word.ActiveDocument  -- get active document

doc.Words (1):InsertBefore (wildcards [1] .. " ")  
doc.Words (1):CheckSynonyms ()

-- show resulting word
ColourNote ("white", "blue", doc.Words (1).Text)

ActivateClient ()  -- reactivate MUSHclient

-- release COM objects
doc = nil
word = nil

end -- function 

WordNet Search: bash
 (n) knock, bash, bang, smash, belt (a vigorous blow) 
 (n) bash, do, brawl (an uproarious party) 
 (v) sock, bop, whop, whap, bonk, bash (hit hard) 

<aliases>
  <alias
   match="wordnet *"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>local http = require "socket.http"
local url = "http://wordnetweb.princeton.edu/perl/webwn"
local search = "?c=0&amp;s=" .. string.gsub("%1", " ", "+")
local html = http.request(url .. search)
AnsiNote("\\n" .. ANSI(37) .. "WordNet Search: %1")
for m in string.gmatch(html, "S:&lt;/a&gt;([^\\n]*)\\n") do
  local s = string.gsub(m, "&lt;[^&gt;]*&gt;", "")
  AnsiNote(ANSI(32) .. s)
end</send>
  </alias>
</aliases>

Dim si As SynonymInfo
Dim wordApp As Word._Application
wordApp = CreateObject("Word.Application")
si = wordApp.SynonymInfo("good")