批处理怎样批量转换DOC为TXT文本？

墨者革离

经常写材料，收集和整理很多WORD资料，转换成TXT文本格式，然后打包成电子书，方便使用。
如何实现：拖放文件夹，将文件夹内包括子目录的DOC转换成TXT，并保存在原目录中。以下这段代码仅能转换当前文件夹中。

1. @echo off
   
2. 
   
3. for %%a in (*.doc) do doctotext "%%a">"%%~na.txt"
   

复制代码

Demon

for /r

CUer

1. @echo off
   
2. for /f "delims=" %%a in ('dir /s /b *.doc') do (
   
3.     doctotext "%%a" >"%%~dpna.txt"
   
4. )

复制代码

墨者革离

3楼代码不可用。怎么样修改一下！

ArdentMan

1. 
   
2. @Echo Off
   
3. For /R %1 %%I IN (*.doc) Do DocToText "%%I">"%%~dpnI.txt"
   
4. 
   
5. 
   

复制代码

Hello123World

拖放文件夹，将文件夹内包括子目录的DOC转换成TXT，并保存在原目录中。以下这段代码仅能转换当前文件夹中。

1. @echo off
   
2. set /p a=托文件夹至此：
   
3. for /f "delims=" %%i in ('dir /s /b "%a%\*.doc"') do (
   
4.         for /f "delims=" %%j in ("%%i") do echo %%j >>%%~dpni.txt
   
5. )
   
6. pause>nul

复制代码

Hello123World

DocToText?非系统外部命令。
http://silvercoders.com/en/products/doctotext/
也不给个链接。

Hello123World

doctotext 后面最好加个 2>nul，返回信息忒多了