はじめまして。 Delphi 2007で、Word 2000で作成した.docファイルを.txtファイルへ変換したいと考えています。 (ID:42375)

名前

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

本文

自分の勉強ということですので，こんなことも知っておくと便利です．
以下は，VBS (VBSctrip) のコードを実行する例です．
VBS は結構使われています．サンプルもネット上で多く見つかります．

以下のコードを 'ChangeDocToText.vbs' という名前で保存します．
ワードの文書は，'ワード文書.doc' とします．
どちらも，プロジェクトのフォルダにあるものとします．
このVBSのコードも以前，ネットで見つけたものです．

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WD = CreateObject("Word.Application")

For Each n in WScript.Arguments

t = LCase(FSO.GetExtensionName(n))

If (t = "doc") Or (t = "rtf") Then
   Set d = WD.Documents.Open(n)
   d.SaveAs _
    d.Path & "\" & _
    Replace(FSO.GetFileName(n), "." & t,".txt"), 2
   d.Close
  End If

WD.Quit
Set WD = Nothing
Set FSO = Nothing

そして，次のプログラムを実行します．
プロジェクトのフォルダに 'ワード文書.txt' という名前のテキストファイルができます．

implementation

uses ShellAPI;

{$R *.dfm}

//=============================================================================
//  .docファイルのテキストを取出すVBSのコードを実行
//  usesにShellAPIが必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  VBSPath     : String;
  DocFileName : String;
begin
  VBSPath     := ExtractFilePath(Application.ExeName) + 'ChangeDocToText.vbs';
  DocFileName := ExtractFilePath(Application.ExeName) + 'ワード文書.doc';

ShellExecute(Handle,'open',PChar(VBSPath), PChar(DocFileName), nil, SW_HIDE);
end;

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

戻る