From: Koji Arai <JCA02266@...>
Date: 2000-07-29T15:06:28+09:00
Subject: [ruby-list:24042] Re: win32ole

新井です。

From: arton <arton@geocities.co.jp>
Date: 29 Jul 2000 03:13:42 +0900
Subject: [ruby-list:24040] Re: win32ole

> artonです。
> 
> win32oleのconst_loadを使用すればできます。

おっ、そんな便利なものがありましたか。
昔、win32ole-0.0.4 を使ったときもないのかなぁっと思ってたのですが、
今はドキュメントにもちゃんと書いてますね。失礼しました。
＃ 読んでも使い方わからなかったかも(^^;

毎回ロードしてると時間がかかる処理のようですので、以下のスク
リプトで一旦ファイルに出力して、それを require することにし
ました。

#!/usr/local/bin/ruby

require 'win32ole'
class WIN32OLE
  module Constants
  end
end

WIN32OLE.const_load(WIN32OLE.new('Word.Application'),
		    WIN32OLE::Constants)

print <<END
class WIN32OLE
  module WORD_CONST
END
WIN32OLE::Constants.constants.each {|v|
  print '    ', v, ' = ', eval("WIN32OLE::Constants::#{v}"), "\n"
}
print <<END
  end
end
END

word.Quit

exit

どうも、ありがとうございました。

ところで、2つめの質問です。

#!/usr/local/bin/ruby -Ks	# -*- Coding: sjis-dos -*-

require 'win32ole'

word = WIN32OLE.new('Word.Application')
word.visible = true
doc = word.Documents.Add
doc.Activate
p doc.name
word.Selection.InsertBefore("テスト")
# doc.Close
# word.Quit

を実行すると、Wordに

テスト□

などと出力されます。最後の"□"(実際は小さい四角、なにかよく
わからないコードです)がなぜでてくるのかわからないんですがな
んでしょこれ。VBで単純に Selection.InsertBefore("テスト") し
てもこうはなりません。

仕方ないので

word.Selection.InsertBefore("テスト")
word.Selection.Collapse WdCollapseEnd
word.Selection.Delete WdCharacter, -1

などとして凌いでます(これで定数が必要だったわけでした)。

Windows98 Second Edition 4.10.2222 A で、
Word 97 です。

よろしくお願いします。

--
新井康司 (Koji Arai)