Extension: .pptx

Script Language: Basic.uc

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

Searchable Text:
  Text = UnpackFiles(SelectedFile, "/ppt/slides/")
  Transform(Text, PptxToText)

Open As Plain Text (Default):
  Text = UnpackFiles(SelectedFile, "/ppt/slides/")
  Transform(Text, PptxToText)

Open As XML (Raw):
  UnpackFiles(SelectedFile, "/ppt/slides/")

Open As XML (Formatted):
  Text = UnpackFiles(SelectedFile, "/ppt/slides/")
  Transform(Text, PrettyXML_BW)

Open As XML (Formatted in color):
  Text = UnpackFiles(SelectedFile, "/ppt/slides/")
  Transform(Text, PrettyXML_Color, Highlight)