# word01.rb.txt: ruby script (encoding: Windows-31J)
  # z_word01.doc を出力
  # 新規文書に、素直に１行づつ文字を書き込んでいく
  # 中寄せ、右寄せを行う
  # 箇条書きを行う
  # ページ番号を付加(フッターに中寄せの形)
require "wrdap"

filename = "z_word01.doc"
if test(?e, filename)  # z_word01.docが存在するなら削除
  File.unlink(filename)
end

wrd = Wrdap.new  # Wordの起動
wrd.opens(filename) do |doc|
  slc = doc.Application.Selection
  i = 1  # iに段落番号を記録
  slc.TypeText "ワードの新規文書作成"  # １行入力
      # ↓ 中寄せを設定
  doc.Paragraphs(i).Range.ParagraphFormat.Alignment = WdAlignParagraphCenter
  slc.TypeParagraph()  # エンターキーを押すことに相当
  i += 1  # 段落番号を１つ増やす(次の段落の番号)

  slc.TypeText "2014年４月10日(金)"  # １行入力
      # ↓ 右寄せを設定
  doc.Paragraphs(i).Range.ParagraphFormat.Alignment = WdAlignParagraphRight
  slc.TypeParagraph()  # エンターキーを押すことに相当
  i += 1  # 段落番号を１つ増やす(次の段落の番号)

  slc.TypeText "今日の天気は晴れでした。"  # １行入力
  doc.Paragraphs(i).Range.ParagraphFormat.Alignment = WdAlignParagraphLeft
  slc.TypeParagraph()  # エンターキーを押すことに相当
  i += 1  # 段落番号を１つ増やす(次の段落の番号)

  slc.TypeText "電車に乗って出かけました。乗った電車は次のとおり。"  # １行入力
  slc.TypeParagraph()  # エンターキーを押す
  i += 1  # 段落番号を１つ増やす(次の段落の番号)

  doc.Paragraphs(i).Range.ListFormat.ApplyBulletDefault  # 箇条書きに切り替え
  slc.TypeText "京浜東北線"
  slc.TypeParagraph()
  i += 1
  slc.TypeText "山手線"
  slc.TypeParagraph()
  i += 1
  slc.TypeText "東西線"
  slc.TypeParagraph()
  i += 1

  parag = doc.Paragraphs(i)
  parag.Range.Style = WdStyleNormal  # 箇条書きを解除(標準スタイルに戻す)
  parag.Range.ParagraphFormat.Alignment = WdAlignParagraphLeft
  slc.TypeText "明日はバスに乗ってみようと思います。"
  slc.TypeParagraph()

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

__END__
＊中寄せなどの指定
　行の中寄せや右寄せなどを設定するには、
    doc.Paragraphs(i).Range.ParagraphFormat.Alignment = ……
のように Alignment の値を設定する。
　値としては次のものを指定可能。
・左寄せ  WdAlignParagraphLeft  0
・中寄せ  WdAlignParagraphCenter  1
・右寄せ  WdAlignParagraphRight  2
・両端揃え  WdAlignParagraphJustify  3
・均等割り付け  WdAlignParagraphDistribute  4

＊ワード文書のヘッダーとフッター
　文書のヘッダーおよびフッターにテキストを追加するには、Section の Headers プロパティおよび Footers プロパティを使用する。
　文書の各セクションには、次に示す３種類のヘッダーとフッターがある。
      WdHeaderFooterPrimary  1
      WdHeaderFooterFirstPage  2
      WdHeaderFooterEvenPages  3