[ ワード操作フォームEx ] [ 文書のコピー ]

Delphi Programming / Object Pascal

[掲載 2009年05月31日] [更新 2013年11月29日]　ワード操作フォームEx

ワード操作フォームEx 参考コード類文書のコピー
動作確認等	Windows 7 U64(SP1) + Delphi XE2 + Word 2010

現在の頁をコピー
文書全体をコピー

現在の頁をコピー

現在の頁 (入力フォーカスがある頁) 全体をコピーして，文書の末尾に貼り付け文書の末尾に移動する例です．指定の頁にジャンプしてから実行すれば，指定頁のコピーとなります．
ワード操作フォームEx には，指定ページに移動の wdfJumpPage メソッドを実装しています．

リスト1
頁のコピー

procedure TplWordFormEx2.Button1Click(Sender: TObject);
var
  ARange    : Twdf2000Range;
  pBookName : OleVariant;
  pType     : OleVariant;
  pUnit     : OleVariant;
  pCount    : OleVariant;
begin
  //現在のページのRangeオブジェクト取得
  pBookName := '\page';
  ARange    := wdfWordDoc.Bookmarks.Item(pBookName).Range;
  //そのRange，つまりページ全体をコピー
  ARange.Copy;

  //文書末尾のSelectionオブジェクトを取得して改頁を挿入
  pBookName := '\EndOfDoc';
  wdfWordDoc.Bookmarks.Item(pBookName).Select;
  pType := wdPageBreak;
  wdfWordApp.Selection.InsertBreak(pType);

  //貼り付け
  wdfWordApp.Selection.Paste;

  //改頁したので1文字分削除
  pUnit := wdCharacter;
  pCount := 1;
  wdfWordApp.Selection.Delete(pUnit, pCount);
  wdfWordApp.ScreenRefresh;
end;

文書全体をコピー

現在の文書全体をコピーするには，文書を表すブックマークが利用できます．
次のコードは，文書全体をコピーして，新規追加した頁に貼り付けます．文書全体の頁数は元の 2 倍となります．頁追加は，実際には最後の頁で [改頁] [挿入] と同じ動作を実行しています．

リスト2
文書全体のコピー

procedure TplWordFormEx2.Button2Click(Sender: TObject);
var
  ARange    : Twdf2000Range;
  pBookName : OleVariant;
  pType     : OleVariant;
begin
  //現在の文書全体のRangeオブジェクト取得
  pBookName := '\Doc';
  ARange    := wdfWordDoc.Bookmarks.Item(pBookName).Range;
  //そのRange，つまり文書全体をコピー
  ARange.Copy;

  //文書末尾のSelectionオブジェクトを取得して改頁を挿入
  pBookName := '\EndOfDoc';
  wdfWordDoc.Bookmarks.Item(pBookName).Select;
  pType := wdPageBreak;
  wdfWordApp.Selection.InsertBreak(pType);
  //クリップボードから貼り付け
  wdfWordApp.Selection.Paste;
end;