[ワード文書をテキスト形式で出力する]

ワードファイル(C:\Temp\Test.doc)を、テキスト形式とHTML形式で出力します。
ファイルが存在する場合は、上書きされますので注意してください。

【ソースコード】
[tips0175.vbs]
Option Explicit
On Error Resume Next

Dim objWdApp        ' Word オブジェクト
Dim objWdDoc        ' Document オブジェクト

Set objWdApp = WScript.CreateObject("Word.Application")
If Err.Number = 0 Then
    Set objWdDoc = objWdApp.Documents.Open("C:\Temp\Test.doc")
    If Err.Number = 0 Then
        objWdDoc.SaveAs "C:\Temp\Test.txt", 2   ' テキスト形式
        objWdDoc.SaveAs "C:\Temp\Test.html", 8  ' HTML 形式

        objWdDoc.Close
        objWdApp.Quit
    Else
        WScript.Echo "エラー:" & Err.Description
    End If
Else
    WScript.Echo "エラー:" & Err.Description
End If

Set objWdDoc = Nothing
Set objWdApp = Nothing