# word02.rb.txt: ruby script (encoding: Windows-31J)
  # data02.txt を取り込んで、z_word02.doc を出力
  # ワード文書にテキストファイルを挿入し、フッターに中寄せのページ番号を付けル
require "wrdap"

filename = "z_word02.xls"
if test(?e, filename)  # z_word02.xlsが存在するなら削除
  File.unlink(filename)
end
data_file = "data02.txt"

wrd = Wrdap.new  # Wordの起動
wrd.opens(filename) do |doc|
      # ↓ テキストファイルを挿入する
  slc = doc.Application.Selection
  slc.InsertFile('FileName'=>Wrd::fullpath(data_file),
      'Range'=>"", 'ConfirmConversions'=>false, 
      'Link'=>false, 'Attachment'=>false)

      # ↓ フッターにページ番号を付加(中寄せ)
  slc.Sections.each do |sect|
    sect.Footers(WdHeaderFooterPrimary).PageNumbers.Add(
        'PageNumberAlignment'=>WdAlignPageNumberCenter,
        'FirstPage'=>true)
  end
  doc.save  # ワード文書の保存
end
wrd.quit

__END__
＊InsertFileのパラメータ
　InsertFile() は、テキストファイルだけでなく、他のワード文書などの取り込みにも利用できる。
　その引数は次のとおり。
・FileName: 必ず指定します。挿入するファイルのパスとファイル名を指定します。パスを指定しないと、現在のフォルダ内のファイルが指定されます。
・Range: 省略可能です。引数 Name に Word 文書を指定した場合は、ブックマーク名を指定します。Excel など、他のアプリケーションのファイルを指定した場合は、範囲名やセル範囲 (R1C1:R3C4 など) を指定します。
・ConfirmConversions: 省略可能です。true を設定すると、Word 文書以外の形式のファイルを挿入するときにファイルの変換を確認するダイアログ ボックスが表示されます。
・Link: 省略可能です。true を設定すると、INCLUDETEXT フィールドを使用してファイルが挿入されます。
・Attachment: 省略可能です。true を設定すると、電子メール メッセージにファイルが添付されます。