人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

よろしくお願いします。

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


●質問者: にぎたま
●カテゴリ:コンピュータ
✍キーワード:DOC MS-Word アプリ オリジナル コメント
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● mj99
●35ポイント

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


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

2 ● sukiyaki22
●35ポイント

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ