#~ #1.统计word文档的图片数、表格数、页数、字数；
#~ #2.按照段落抽取word文档中的内容；
$KCODE = "e"
require "win32ole"
word = WIN32OLE.new("word.Application")
word.visible = false
doc = word.Documents.open("D:/w.docx")
doc.Activate
#~ p doc.Content.Text.split(//).size
#~ doc.CopyStylesFromTemplate("D:/r.docx")
#~ p doc.Content.Pages

p doc.ComputeStatistics(0)#字数
p doc.ComputeStatistics(1)#行数 
p doc.ComputeStatistics(2)#页数
p doc.ComputeStatistics(3)#字符数（不计空格）
p doc.ComputeStatistics(4)#段落数
p doc.ComputeStatistics(5)#字符数（计空格）
p doc.ComputeStatistics(6)#中文字符和朝鲜语字符
p doc.InlineShapes.Count #图片数
p doc.Tables.Count #表格数
p doc.Paragraphs.Count#段数
p i = doc.Paragraphs.count#段数
for n in 1..i
  str=doc.Paragraphs(n).Range.text#按段数提取内容
  st=str.split(/[\r\a\s]/).join("")
  p st if st!=""
end