Extension: .docx

Script Language: Basic.uc

Setup:
  Dim Text As String, DocxToText As Long, PrettyXML_BW As Long, PrettyXML_Color As Long
  DocxToText      = Transformation("DocxToText.uc")
  PrettyXML_BW    = Transformation("PrettyXML_BW.uc")
  PrettyXML_Color = Transformation("PrettyXML_Color.uc")

Searchable Text:
  Text = UnpackFile(SelectedFile, "/word/document.xml")
  Transform(Text, DocxToText)

Open As Plain Text (Default):
  Text = UnpackFile(SelectedFile, "/word/document.xml")
  Transform(Text, DocxToText)

Open As XML (Raw):
  UnpackFile(SelectedFile, "/word/document.xml")

Open As XML (Formatted):
  Text = UnpackFile(SelectedFile, "/word/document.xml")
  Transform(Text, PrettyXML_BW)

Open As XML (Formatted in color):
  Text = UnpackFile(SelectedFile, "/word/document.xml")
  Transform(Text, PrettyXML_Color, Highlight)

