From: Kenji Noda <zaq94465a@...>
Date: 2001-02-15T20:36:58+09:00
Subject: [ruby-list:27885] word to text 完成

野田と申します。
ない知恵を絞って、皆様のご指導のもとやっと完成しました。
幼稚かもしれませんが、うれしい気持ちでいっぱいです。
windows MEでエラーなく実行できました。
フォルダをデスクトップにおいてもOKです。
Dir::chdir("word")を入れなければエラーになります。
見よう見まねですがこれからも宜しくご指導お願いいたします。
それからcygwinはどう呼んだらいいのでしょうか

   Convert Word-files to text-files
        By Kenji Noda (zaq94465a@cat.zero.ad.jp)
     Thanks to Ruby!!!

--------Main folder-------------------
ruby(folder)
   bin(folder)--files
   include(folder)--files
   lib(folder)--files

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


#-----w_text.rb-------
require 'win32ole'
$,="\n"
home=Dir::pwd
Dir::chdir("word")
dirinfo=Dir::entries(Dir::pwd)
dirinfo.shift
dirinfo.shift
dirinfo.pop

wd = WIN32OLE.new("Word.Application")
dirinfo.each do |doc|
  doc = File.expand_path(doc)
  savefile = doc.gsub /\.doc$/is, ".txt"
  savefile.gsub! '/word/','/word/text/'
  begin
    wdoc = wd.Documents.open doc 
    wdoc.saveAs savefile,4
    wdoc.close
  rescue
    $stderr.print $!.message, "\n"
  end
end
wd.quit