From: Kenji Noda <zaq94465a@...>
Date: 2001-02-21T00:04:12+09:00
Subject: [ruby-list:28112] Word-files to text-files

野田と申します。
Win98 Office2000でエラーが出ませんでした。
パスがcygdrive/cとなるところを見落としていました。
----------------------------------------------
   Convert Word-files to text-files 
  ( Can't use by Word97 ) upper version only!
==============================================
ruby(folder)
   bin(folder)--files
   include(folder)--files
   lib(folder)--files

word(folder)--word files
            --text(folder)--texts
word2text.bat ------> ruby\bin\ruby w2text.rb
w2text.rb
==============================================

#-----w2text.rb-------
require 'win32ole'
wd = WIN32OLE.new("Word.Application")

home=Dir::pwd
path=home+"/word"
Dir::chdir("word")
dirinfo=Dir::entries(path)

dirinfo.each do |doc|
  doc = File.expand_path(doc)
  next if FileTest.directory?(doc)

  doc.gsub! '/cygdrive/c','c:'
  savefile=doc.gsub '/word/','/word/text/'
  savefile.gsub! /\.doc/is,".txt"

  begin
    puts doc
    wdoc = wd.Documents.open doc
    wdoc.saveAs savefile,4
    wdoc.close
  rescue
    $stderr.print $!.message, "\n"
  end
end
puts "Completed!!"
sleep(1)
wd.quit