【MS-Wordマクロをお願いします】

同一ディレクトリ内にあるすべてのMS-Wordファイル(*.doc)をテキストとして保存するマクロを解答欄に記入していただけないでしょうか?

オリジナルは未保存で閉じる(オリジナルは手をつけない)ようにお願いします。
図表などが削除されるのは承知の上です。
別アプリを使用して、それらの文字情報から必要に応じて検索したいだけなので、細かいことはお任せします。

よろしくお願いします。

*必須ではありませんが、マクロ内にコメントがあるとうれしいです。

回答の条件
  • 1人2回まで
  • 登録:2007/08/27 09:49:13
  • 終了:2007/09/03 09:50:03

回答(2件)

id:mj99 No.1

mj99回答回数138ベストアンサー獲得回数382007/08/27 16:21:46

ポイント35pt

マクロを貼り付けた文書と同じフォルダにあるワード文書をすべてテキストに変換します。


1.新規ワード文書に標準モジュールを追加

2.下記コードを標準モジュールに貼り付け

3.文書を保存(必ず保存してください)

Public Sub hoge()
    Dim fso, folder, file, doc, newfile
    
    ' FileSystemObjectを起動して、このマクロ文書が保存されているフォルダに接続する
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(ActiveDocument.path)
    
    ' フォルダ内のすべてのファイルにアクセス(サブディレクトリ含まない)
    For Each file In folder.Files
        
        ' 拡張子がdocのものだけ選択、ただし、このマクロ文書とそのTempは除く
        If LCase(file.Name) Like "*.doc" And Not (file.Name Like "*" & ActiveDocument.Name) Then
            
            ' docを開いて、拡張子をtxtに変えて、テキスト形式で保存
            Set doc = Documents.Open(file.path)
            newfile = Left(file.path, Len(file.path) - 3) & "txt"
            doc.SaveAs newfile, wdFormatText
            doc.Close
        
        End If
    
    Next

End Sub
id:sukiyaki22 No.2

sukiyaki22回答回数299ベストアンサー獲得回数22007/08/30 00:53:25

ポイント35pt

はてな利用規約 第6条禁止事項

http://www.hatena.ne.jp/rule/rule#kiyaku06

  • id:Nigitama
    mj99 さん
    ありがとうございました。
    目をはなした隙に質問が終了されてしまいました。不覚でした。

    sukiyaki22さんにもポイントがまわってしまったことも不覚です。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません