procedure TplWordFormEx2.Button1Click(Sender: TObject);
var
  ASelection : Word2000.WordSelection;
  pDelection : OleVariant;
begin
  //現在のカーソル位置のSelectionオブジェクト
  ASelection := wdfWordApp.Selection;

  //現在のカーソルから挿入
  ASelection.InsertAfter('東京都');
  //挿入した文字列の最後にカーソル移動
  pDelection := wdCollapseEnd;
  ASelection.Collapse(pDelection);

  wdfSetFocusWord;
end;

procedure TplWordFormEx2.Button2Click(Sender: TObject);
var
  ASelection : Word2000.WordSelection;
  pDelection : OleVariant;
begin
  //現在のカーソル位置のSelectionオブジェクト
  ASelection := wdfWordApp.Selection;

  //現在のカーソルの前に挿入
  ASelection.InsertBefore('大阪府');
  //挿入した文字列の先頭にカーソル移動
  pDelection := wdCollapseStart;
  ASelection.Collapse(pDelection);

  wdfSetFocusWord;
end;

procedure TplWordFormEx2.Button3Click(Sender: TObject);
var
  ASelection          : Word2000.WordSelection;
  pFileName           : WideString;
  pRange              : OleVariant;
  pConfirmConversions : OleVariant;
  pLink               : OleVariant;
  pAttachment         : OleVariant;
  pType               : OleVariant;
begin
  //現在のカーソル位置のSelectionオブジェクト
  ASelection := wdfWordApp.Selection;

  //InsertFileの引数値を設定
  pFileName           := ExtractFilePath(Application.ExeName) + 'Readme.txt';
  pRange              := EmptyParam;  //挿入元のブックマック名等
  pConfirmConversions := False;       //ワード文書以外のファイルの時の警告有無
  pLink               := False;       //リンクとして挿入するか
  pAttachment         := False;       //電子メールのメッセージとするか

  //現在のカーソル(ASelection)から挿入
  ASelection.InsertFile(pFileName,
                        pRange,
                        pConfirmConversions,
                        pLink,
                        pAttachment);
  //選択を解除し新しい段落として挿入
  ASelection.InsertParagraphAfter;
  //挿入後改頁
  pType := wdSectionBreakNextPage;
  ASelection.InsertBreak(pType);

  wdfSetFocusWord;
end;