[ ワード操作フォームEx ] [ 文書の保存・形式を指定した保存等 ]

Delphi Programming / Object Pascal

[掲載 2010年03月03日] [更新 2013年12月02日]　ワード操作フォームEx

ワード操作フォームEx 参考コード類文書の保存・形式を指定した保存等
動作確認等	Windows 7 U64(SP1) + Delphi XE Pro + Word 2010

ワードの保存ダイアログを使用
[保存] ボタンでワードの保存ダイアログを表示
上書き保存
[上書き] ボタンの機能を変更
リッチテキスト (RTF) 形式で保存
テキストだけを保存
ワード 2007 以降の docx 形式で保存
ワード 2007 以降の docm 形式で保存

ワードの保存ダイアログを使用

ワードの保存ダイアログを使用すると、いろいろな形式で保存できます。
Word 2007 以降の文書形式である docx, docm 形式でも保存可能です。

リスト1
ワードの保存ダイアログを表示して保存

procedure TplWordFormEx2.Button1Click(Sender: TObject);
begin
  wdfWordApp.Dialogs.Item(wdDialogFileSaveAs).Show(EmptyParam);
  wdfSetFocusWord;
end;

[ 保存 ] ボタンでワードの保存ダイアログを表示

[保存] ボタンでワードの保存ダイアログを表示して保存する場合は、継承フォームのボタンクリックにそのコードを記述します。この時、元のダイアログを表示しないようにします。常にワードの保存ダイアログを使用するのであれば、元のワード操作フォームEx のコードを書きえてください。

リスト2
[ 保存 ] ボタンでワードの保存ダイアログを表示

procedure TplWordFormEx2.btnFileOpenClick(Sender: TObject);
begin
  //inheritedをコメントアウトする
  //inherited;

  wdfWordApp.Dialogs.Item(wdDialogFileSaveAs).Show(EmptyParam);
  wdfSetFocusWord;
end;

上書き保存

上書き保存の機能を、別のボタンクリック等で実行するには、例えば次のようなコードで可能ず。

リスト3
上書き保存のコード

procedure TplWordFormEx2.Button2Click(Sender: TObject);
var
  pType : OleVariant;
  pID   : OleVariant;
begin
  pType := msoControlButton;
  pID   := 3;
  try
    wdfWordApp.CommandBars.FindControl(pType, pID, EmptyParam, EmptyParam).Execute;
  except
  end;
  wdfSetFocusWord;
end;

[ 上書き ] ボタンの機能を変更

[上書き] ボタンの機能をカスタマイズしたい場合も同様に、上のコード、あるいは、本ページのこれ以降のコードを参考にして書き換えることにより可能です。

リッチテキスト (RTF) 形式で保存

指定のファイル形式で保存するには、保存の際にパラメータで指定します。次のコードはリッチテキスト形式 (RTF) で保存する例です。

図1
いろいろな保存形式の定数の一部 (Word 2007 の VBA のヘルプから)

リスト4
リッチテキスト (RTF) 形式で保存

procedure TplWordFormEx2.Button3Click(Sender: TObject);
var
  pFilePath   : OleVariant;
  pFileFormat : OleVariant;
  objWordDoc  : OleVariant;
begin
  wdfWordApp.ScreenUpdating := False;

  //保存ファイル名のフルパス
  pFilePath := ChangeFileExt(wdfFileFullPath, '.rtf');
  //保存形式
  pFileFormat := wdFormatRTF;

  //文書のオブジェクトをOleVariantに変更
  objWordDoc := wdfWordApp.ActiveDocument;
  try
    //保存ファイル名以外はデフォルトの設定で保存
    objWordDoc.SaveAs(pFilePath, pFileFormat);

    wdfWordDoc.Saved := True;
    wdfFileFullPath  := objWordDoc.FullName;
    Self.Caption     := ChangeFileExt(objWordDoc.Name, '');
  except
  end;
  wdfWordApp.ScreenUpdating := True;
end;

テキストだけを保存

文書内のテキストだけを保存する例です。

リスト5
テキストだけを保存

procedure TplWordFormEx2.Button4Click(Sender: TObject);
var
  pFilePath   : OleVariant;
  pFileFormat : OleVariant;
  objWordDoc  : OleVariant;
begin
  wdfWordApp.ScreenUpdating := False;

  //保存ファイル名のフルパス
  pFilePath := ChangeFileExt(wdfFileFullPath, '.txt');
  //保存形式
  pFileFormat := wdFormatDOSTextLineBreaks;

  //文書のオブジェクトをOleVariantに変更
  objWordDoc := wdfWordApp.ActiveDocument;
  try
    //保存ファイル名以外はデフォルトの設定で保存
    objWordDoc.SaveAs(pFilePath, pFileFormat);

    wdfWordDoc.Saved := True;
    wdfFileFullPath  := objWordDoc.FullName;
    Self.Caption     := ChangeFileExt(objWordDoc.Name, '');
  except
  end;
  wdfWordApp.ScreenUpdating := True;
end;

ワード 2007 以降の docx 形式で保存

ワードの保存ダイアログを表示して、保存形式を選択して保存すれば、ワード2007以降の文書形式で保存することができます。しかし、上の保存形式を指定した保存のコードだけでは Word 2007 以降の文書形式として保存できません。

Word 2007 以降の文書形式で保存するには、convert メソッドで、新しい形式に変換します。ワード操作フォームEx は、Word 2000 の機能を使用しているため、このメソッドが使えません。そこで次のコードでは、文書のオブジェクトを OleVariant 型に変換してから convert メソッドを実行し、保存コードを実行するようにしています。
システムのカレントバージョンが、Word 2007 以上になっていないとコンバートは失敗します。

リスト6
Word 2007 以降の docx 形式保存 (マクロは保存しない)

procedure TplWordFormEx2.Button5Click(Sender: TObject);
var
  pFilePath   : OleVariant;
  pFileFormat : OleVariant;
  objWordDoc  : OleVariant;
begin
  wdfWordApp.ScreenUpdating := False;

  //保存ファイル名のフルパス
  pFilePath := ChangeFileExt(wdfFileFullPath, '.docx');
  //保存形式
  pFileFormat := wdFormatDocument;

  //文書のオブジェクトをOleVariantに変更
  objWordDoc := wdfWordApp.ActiveDocument;
  if wdfWordVersionNo >= 12 then begin
    try
      //新しいドキュメント形式に変換
      //既にコンバートしている場合はエラーとなる
      try
        objWordDoc.Convert;
      except
      end;

      //保存ファイル名以外はデフォルトの設定で保存
      objWordDoc.SaveAs(pFilePath);

      wdfWordDoc.Saved := True;
      wdfFileFullPath  := objWordDoc.FullName;
      Self.Caption     := ChangeFileExt(objWordDoc.Name, '');
    except
    end;
  end;
  wdfWordApp.ScreenUpdating := True;
end;

ワード 2007 以降の docm 形式で保存

Word 2007 以降では、マクロも保存可能な文書と、できない文書は拡張子が異なります。docx はマクロが保存できないファイル形式です。
マクロも保存するには、convert メソッドを実行した後、wdFormatXMLDocumentMacroEnabled を保存形式に指定して、拡張子を docm とします。その例です。
システムのカレントバージョンが、Word 2007 以上になっていないとコンバートは失敗します。

リスト7
Word 2007 以降の docm 形式保存 (マクロも保存する)

procedure TplWordFormEx2.Button6Click(Sender: TObject);
const
  wdFormatXMLDocumentMacroEnabled = 13;
var
  pFilePath   : OleVariant;
  pFileFormat : OleVariant;
  objWordDoc  : OleVariant;
begin
  wdfWordApp.ScreenUpdating := False;

  //保存ファイル名のフルパス
  pFilePath := ChangeFileExt(wdfFileFullPath, '.docm');
  //保存形式
  pFileFormat := wdFormatXMLDocumentMacroEnabled;

  //文書のオブジェクトをOleVariantに変更
  objWordDoc := wdfWordApp.ActiveDocument;
  if wdfWordVersionNo >= 12 then begin
    try
      //新しいドキュメント形式に変換
      //既にコンバートしている場合はエラーとなる
      try
        objWordDoc.Convert;
      except
      end;

      //保存ファイル名以外はデフォルトの設定で保存
      objWordDoc.SaveAs(pFilePath, pFileFormat);

      wdfWordDoc.Saved := True;
      wdfFileFullPath  := objWordDoc.FullName;
      Self.Caption     := ChangeFileExt(objWordDoc.Name, '');
    except
    end;
  end;
  wdfWordApp.ScreenUpdating := True;
end;