AutoHotkey Community

   Word := COM_GetActiveObject("Word.Application")

   Sel  := COM_Invoke(Word,"Selection")      ; handle to the selection
   End  := COM_Invoke(Sel,"End")             ; get the end of selection, or pos after caret

   Doc  := COM_Invoke(Word,"ActiveDocument") ; handle to ActiveDocument
   Range:= COM_Invoke(Doc,"Range",End-1,End) ; handle to a range = last char in selection
   Text := COM_Invoke(Range,"Text")          ; get the text from the range
   MsgBox % Text

   COM_Release(Sel)                          ; cleanup
   COM_Release(Range)
   COM_Release(Doc)
   COM_Release(Word)

Word := COM_GetActiveObject("Word.Application")
Sel  := COM_Invoke(Word,"Selection")
COM_Invoke(Sel,"InsertSymbol",333,"Unicode",1) ; replace selection with ASC(0333)

;MsgBox % Excel_GetCell("A", 1)
Excel_GetCell(ColumnLetter, RowNumber){
   if !oExcel := COM_GetActiveObject("Excel.Application") { ; Get the Already Running Instance
      MsgBox Could not find Excel Instance.
      Return
      }
   if !oCells := com_invoke(oExcel,"Cells",RowNumber,Excel_GetColumnIndex(ColumnLetter)) {
      MsgBox Could not get cells.
      Return
      }
   Value := COM_Invoke(oCells,"Value")
   com_release(oCells)
   com_release(oExcel)
   return Value
}

FileName = test_word_document.doc

;Derived from Sean's simple example [for excel]
;http://www.autohotkey.com/forum/viewtopic.php?p=197771#197771
Title = Word Test
WinW = 800
WinH = 600
FileNameFullPath := File_GetFullPath(FileName)
WS_CLIPSIBLINGS := 0x4000000
WS_CLIPCHILDREN := 0x2000000
Gui, +Resize +LastFound ;+0x2000000
;WinSet, Trans, 255
Gui, Show, w%WinW% h%WinH% Center, %Title%

COM_AtlAxWinInit()

;container size
cOffsetLeft := 50
cOffsetTop := 50
cWidth := WinW - (cOffsetLeft * 2)
cHeight := WinH - (cOffsetTop * 2)

;create a container for the object so it does not take up the whole gui
hContainer := COM_AtlAxCreateContainer(WinExist(), cOffsetLeft, cOffsetTop, cWidth, cHeight)

;put the browser in the container
pweb := COM_AtlAxCreateControl(hContainer, FileNameFullPath)
pwdoc := COM_Invoke(pweb, "Document")
pwrd := COM_Invoke(pwdoc, "Application")

;Enable Web View
pawin := COM_Invoke(pwrd, "ActiveWindow")
COM_Invoke(pawin, "View=", 6)

;toolbars

prcbar := COM_Invoke(pwdoc, "CommandBars", "Reviewing")
COM_Invoke(prcbar, "Visible=", false) ; Show it

pscbar := COM_Invoke(pwdoc, "CommandBars", "Standard")
COM_Invoke(pscbar, "Visible=", true) ; Show it

pfcbar := COM_Invoke(pwdoc, "CommandBars", "Formatting")
COM_Invoke(pfcbar, "Visible=", true) ; Show it

pdoc := COM_Invoke(pwrd, "Documents")
COM_Invoke(pdoc,"Select") ; Select it
;padoc := COM_Invoke(pwrd, "ActiveDocument")

Selection := COM_Invoke(pwrd,"Selection")
MsgBox % Word_GetCurrentFont(Selection)
COM_Release(Selection)
;sWordCount := COM_Invoke(padoc, "WordCount")
/*
text=
(
pscbar : %pscbar%
pfcbar : %prcbar%
prcbar : %prcbar%
pawin : %pawin%
padoc : %padoc%
pdoc : %pdoc%
pwrd : %pwrd%
pwdoc : %pwdoc%
pweb : %pweb%
sWordCount : %sWordCount%
)
MsgBox %text%
 */
Return

Word_GetCurrentFont(psel){
   pFont := COM_Invoke(psel,"Font")
   StyleList := "Name,Size,Bold,Italic,Underline,AllCaps,DoubleStrikeThrough,Shadow,SmallCaps"
   StyleList .= ",StrikeThrough,Subscript,Superscript,Emboss,Position,Spacing"
   Loop, Parse, StyleList, `,
      {
      if !Val := COM_Invoke(pFont,A_LoopField)
         Val := 0
      sFont .= A_LoopField . "=" . Val . ";"
      }
   COM_Release(pFont)    ; formatting toolbar
   return sFont
   }

GuiClose:
;Save the Active Document
COM_Invoke(padoc, "Save")
Gui, Destroy
COM_Invoke(pwrd, "Quit")
COM_Release(pfcbar)    ; formatting toolbar
COM_Release(pscbar)    ; standard toolbar
COM_Release(prcbar)    ; reviewing toolbar
COM_Release(pawin)    ; active window
COM_Release(padoc)    ; active document
COM_Release(pdoc)    ; documents
COM_Release(pwrd)    ; word.application
COM_Release(pwdoc)    ; browser.document
COM_Release(pweb)    ; browser
COM_AtlAxWinTerm()
ExitApp

File_GetFullPath(File){
   Loop %File%
      Return A_LoopFileLongPath
   }

#Include COM.ahk

pweb := COM_AtlAxCreateControl(WinExist(), FileNameFullPath)

ControlMove,,,, 0, 0, ahk_id %hContainer%
ControlMove,,,, cWidth, cHeight, ahk_id %hContainer%

VBcode=
(
Sub Anything()
   MsgBox("YEAH")
End Sub
)

COM_Init()
Excel_ImportCode(VBcode) ; you cant call this twice with the same code
Excel_Run("Anything")
COM_Term()
return

Excel_Run(sFunction){
   if oExcel := COM_GetActiveObject("Excel.Application")
      COM_Invoke(oExcel,"Run", sFunction)
   COM_Release(oExcel)
}

Excel_ImportCode(VBcode){
   if fileexist(A_ScriptDir . "\tempvbcode.txt")
      FileDelete, %A_ScriptDir%\tempvbcode.txt
   FileAppend, %VBcode%, %A_ScriptDir%\tempvbcode.txt
   if oExcel := COM_GetActiveObject("Excel.Application")
      if oActiveWorkbook := COM_Invoke(oExcel,"ActiveWorkbook")
         if oVBProject := COM_Invoke(oActiveWorkbook,"VBProject")
            if oVBComponents := COM_Invoke(oVBProject,"VBComponents")
               COM_Invoke(oVBComponents,"Import", A_ScriptDir . "\tempvbcode.txt")
   COM_Release(oVBComponents)
   COM_Release(oVBProject)
   COM_Release(oWorkbooks)
   COM_Release(oExcel)
}