WORDオブジェクトモデルの使用方法 (ID:31923)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はづき：「おはようございます、昨日はごちそう様でした…」
真琴  ：「あっ、ハヅキさん、おはようございます」
はづき：「あんなに美味しいバーベキュー初めて食べました、アタシ」
勝爺  ：「そうでしょう？ 近い内にまたご招待しましょうね」
はづき：「それが…、実はアタシ…今日、東京に帰ることになりました」
真琴  ：「あ、そうなんだ…、もうコッチには戻らないンですか？」
はづき：「ええ、最初はこんな長く居る予定じゃなかったのに、ココが好きになって」
真琴  ：「ハヅキさん、だったら、もう少しココに…」
はづき：「ダメなんです、もうコレ以上病院での定期検査を延ばせなくて…これからしばらくは病院生活です」
真琴  ：「それなら、来年の夏にまた来てくださいね」
勝爺  ：「そう、待ってますよ」
はづき：「はい、必ず来年もまた夏に来ます、じゃあ、母が待ってますからこれで…」

春子：「おっはよう〜、途中でハヅキさんに会ったけど、東京に帰るらしいネ」
真琴：「うん、また来年の夏に来るって…、ハルコさん、チョット教えてくれる？」
春子：「ン？ 来年の夏にリープする方法とか？ そんなのやめた方がイイと思うよ」
真琴：「違うよ^^; ハルコさん、これナンだけど…」

function CopyWordPage(WordApp: Variant; Page: Integer): Boolean;
var
  vS, vR: Variant;
begin
  result := False;
  if Page = 0 then exit;
  try
   vS := WordApp.ActiveDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, Page);
   vR := WordApp.ActiveDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, Page+1);
   WordApp.ActiveDocument.Range(vS.Start, vR.Start).Select;
   WordApp.Selection.Copy;
   result := True;
  except
   raise Exception.Create('コピー失敗');
  end;
end;

春子：「ふ〜ん、この関数はWordのページを指定してコピーするってわけネ」
真琴：「そぅ、でもコレだと、どうしても最終ページの選択が出来ないの」
春子：「それはそうよ、これじゃ最終ページで"Page+1"が範囲外になっちゃう」
真琴：「やっぱり、最終ページだけは別の方法にしなくちゃダメかなぁ…」
春子：「まぁね」
真琴：「それに、ページが最終かどうかの判定方法も分からないし…」
春子：「そう？ "Page+1"が範囲外なら vR.StartとvS.Startが等しくなるよ、マコト」
真琴：「えっ、そうなの？」
春子：「だから….Range().Select;の後にコレを追加」

.......
   if (vR.Start = vS.Start) then begin   //最終ページの場合
    Cnt := WordApp.Selection.MoveDown(Count:=10000, Unit:=wdLine, Extend:=wdExtend);
    ShowMessageFmt('最終ページの全行数(%d行)を選択', [Cnt]);
   end;
   .......

真琴：「ナルホド〜…、でも、Count:=10000って、ナンで10000なの？」
春子：「最終ページの行数が分からないから、適当に大きな数を書いておけばイイの」
真琴：「そんなアバウトで大丈夫？ 引数の順番もアバウトだし…」
春子：「アバウトは懲りたのかな？ 適当な時間目標で時の迷子になっちゃったから」
真琴：「あんな怖い想いはもうコリゴリ、でもこの場合はＯＫなのね」
春子：「マコトは省略してるけど、GoToメソッドでも"What:="、"Which:="、"Count:="などキチンと書けば、引数の順序は適当で大丈夫」
真琴：「その等号はDelphiと同じだし、引数の順番がアバウトなんて面白いよね」
春子：「面白いといえば…」
真琴：「え？ ナンなの？」

←解決時は質問者本人がここをチェックしてください。

戻る