Wordファイルからテキストを抽出するVBScript


データの再利用性を考えると、Wordの独自フォーマットは不便です。 このスクリプトは、ドラッグ&ドロップされたWordのファイルからテキストを抽出するものです。 なお、書式やワードアート、オートシェイプなどは抽出できません。

doc2txt.lzh


'"Word" Documents To Text Files(doc2txt.vbs)
'2003.03.23

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

Next

WD.Quit
Set WD = Nothing
Set FSO = Nothing

©2001-2003 by Hajilyn's Papa;
Status: 2003-03-23更新;
E-Mail:awker@tcnweb.ne.jp