Word 2010 で「ファイル変換ウィザード」に該当する機能の有無について

Question

Word 2003 では「ファイル変換ウィザード」を使用して、大量の Word 文書を一括で HTML 文書に変換していました。Word 2010 で同じことをしようとして探したものの、同様の機能が見当たりません。Word 2010 で廃止になる機能の一覧を見ても、廃止になったのかどうかわかりません。

http://office.microsoft.com/ja-jp/word-help/HA101785405.aspx

Word 2010 で、word 文書を HTML に一括で変換する機能、方法をご存じの方がいらっしゃったらお教えください。よろしくお願いいたします。

Answer 1

こんにちは。

カレンダーウィザードでしたら今でも下記ページからダウンロードできるのですが、ファイル変換ウィザード(File Convert Wizard.Wiz)は無くなってしまったのかもしれないですね。

・カレンダー ウィザード

http://office.microsoft.com/ja-jp/templates/TC006206263.aspx

ただ、ファイル変換ウィザードでもやっていることは結局マクロの呼び出しですので、自分でコードを書けば似たような機能を実装することはできるだろうと思います。

(VBAやマクロの知識は必要になってしまいますが・・・)

たとえば、下記のコードをメモ帳に貼り付けて拡張子を「vbs」にして保存後、Wordファイル(doc,docx)が入ったフォルダをそのvbsファイルにドラッグ＆ドロップすると、同じフォルダにhtmlファイルが作成されます。

Option Explicit

Dim Args

Set Args = WScript.Arguments

'パラメータ数チェック

If Args.Count <> 1 Then

  WScript.Echo "当スクリプトに対象となる１フォルダをドラッグ&ドロップして処理を実行してください。"

  WScript.Quit

End If

'フォルダ判別

With CreateObject("Scripting.FileSystemObject")

  If .FolderExists(Args(0)) = False Then

    WScript.Echo "フォルダが見つかりません。" & vbCrLf & "あるいはフォルダではありません。"

    WScript.Quit

  End If

End With

'Wordファイルの有無チェック

If (IsExistsParticularFile(Args(0), "doc") = False) And (IsExistsParticularFile(Args(0), "docx") = False) Then

  WScript.Echo "指定したフォルダ内にWordファイルが見つかりませんでした。"

  WScript.Quit

End If

ConvertWordToHtml Args(0)

WScript.Echo "処理が終了しました。"

Private Sub ConvertWordToHtml(ByVal FolderPath)

'指定したフォルダ内のWordファイルをHTMLファイルに変換

  Dim wdApp

  Dim wdDoc

  Dim f

  Const wdFormatHTML = 8

  Const wdDoNotSaveChanges = 0

  Set wdApp = CreateObject("Word.Application")

  wdApp.Visible = True

  If Right(FolderPath, 1) <> ChrW(92) Then FolderPath = FolderPath & ChrW(92)

  With CreateObject("Scripting.FileSystemObject")

    For Each f In .GetFolder(FolderPath).Files

      Select Case LCase(.GetExtensionName(f))

        'Wordファイルのみ処理

        Case "doc", "docx"

          Set wdDoc = wdApp.Documents.Open(CStr(f))

          wdDoc.SaveAs FolderPath & .GetBaseName(f) & ".html", wdFormatHTML, , , False

          wdDoc.Close wdDoNotSaveChanges

          Set wdDoc = Nothing

      End Select

    Next

  End With

  wdApp.Quit

End Sub

Private Function IsExistsParticularFile(ByVal FolderPath, ByVal FileExtension)

'指定したフォルダ内に特定の拡張子のファイルがあるかを調べる

  Dim ret

  Dim f

  ret = False '初期化

  With CreateObject("Scripting.FileSystemObject")

    For Each f In .GetFolder(FolderPath).Files

      Select Case LCase(.GetExtensionName(f))

        Case LCase(FileExtension)

          ret = True

          Exit For

      End Select

    Next

  End With

  IsExistsParticularFile = ret

End Function

上記のコードは適当に書いただけですので、とりあえずご参考までに。

Answer 2

邪道かもしれませんが、私は Word をホームページ・ビルダーで開き、それを保存しています。

Answer 3

こんにちは。

BANSUI さん、コメントありがとうございます。

K島M雄 さん、投稿ありがとうございます。

Word 2010 で複数の Word 文書ファイルをまとめて HTML ファイルに変換する方法についての質問ですね。

手元の PC で確認してみたのですが、Word 2003 の 「ファイル変換ウィザード」 に相当する機能は、Word 2010 には見当たりませんでした。

参考ページ : 文書を変換する (Word 2003)

Word 2010 では、通常の操作のみで複数のファイルの形式をまとめて変換するのは難しいのかもしれません。。。

よいアイデアをお持ちの方や、情報をお持ちの方がいましたら、ぜひ書き込みをお願いします。

Answer 4

返信ありがとうございます。残念ながら、教えていただいた方法は 1 ファイルを変換する手順であるため、目的に適していません。

したいことは、数十、時には百を超える word ファイルを一括で HTML ファイルに変換したいというものです。Word 2003 の「ファイル変換ウィザード」ではウィザードで対象ファイルを一回指定するだけで変換できたため、同様の機能を Word 2010 で探しています。

Answer 5

下記サイトの『ワード文書を Web ページに変換する』をご覧ください。

http://www.asahi-net.or.jp/~gx4s-kmgi/word51.html