掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
はじめまして。 Delphi 2007で、Word 2000で作成した.docファイルを.txtファイルへ変換したいと考えています。 (ID:42377)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Mr.XRAYさんの >(2) ワードのオブジェクトを生成し，ワードの文書を読み込み，テキスト形式で保存する をすべてDelphiでコーディングした例です。 uses に ComObj を追加してください。 const //適当なファイル名に変更してください SourceName = 'z:\Test.doc'; DestName = 'z:\Test.txt'; //*********************************************************** // SourceNameのWordドキュメントファイルを // DestNameのテキストファイルに保存する //*********************************************************** procedure ChangeDocToText(SourceName, DestName: string); const wdFormatText = 2; var WordApp, WordDoc : OleVariant; begin WordApp := CreateOleObject('Word.Application'); WordDoc := WordApp.Documents.Open(SourceName); WordDoc.SaveAs(DestName, wdFormatText); WordDoc.Close; WordApp.Quit; end; procedure TForm1.Button1Click(Sender: TObject); begin ChangeDocToText(SourceName, DestName); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.