すぐに忘れてしまうので、メモ
#! ruby -Ks
# -*- coding: cp932 -*-
require 'win32ole'
fso = WIN32OLE.new('Scripting.FileSystemObject')
path = fso.GetAbsolutePathName(ARGV[0])
word = WIN32OLE.new('Word.Application')
word.visible = false
doc = word.Documents.Open(path)
begin
doc.Activate
idx = 1
doc.Paragraphs.each do |para|
puts para.Range.Text
puts doc.Paragraphs(idx).Range.Text
idx += 1
break if idx > 20
end
ensure
doc.Close
word.Quit
end
0 件のコメント:
コメントを投稿