extract.bat

@ECHO OFF

::--------------------------------------------------------------------------------------
SET source=""
SET outputdir=""
SET wordconv=""
::--------------------------------------------------------------------------------------


::vars
SET tempfolder="%temp%\WordImgsExtractor"
SET res=0

:MakeOutputDir
MKDIR %outputdir%
CLS

:CopyToTemp
XCOPY /E /I /Y %source% %tempfolder%
CLS

:ConvertDocToDocx
FOR /F "TOKENS=*" %%F IN ('DIR /S /B "%tempfolder%\*.doc"') DO (
	ECHO Processing %%~nF
	%wordconv% -oice -nme "%%~fF" "%%~fFx"
)
CLS


SETLOCAL ENABLEDELAYEDEXPANSION

:ExtractPNG
FOR /F "TOKENS=*" %%F IN ('DIR /S /B "%tempfolder%\*.docx"') DO ( 
	"C:\Program Files\7-Zip\7z.exe" x "%%~fF" -aou -o"%%~pF\%%~nF" *.png -r > nul
	SET c=0

	FOR /F "TOKENS=*" %%E IN ('DIR /S /B "%%~dF%%~pF%%~nF\word\media\*.png"') DO (
		SET /a c+=1
		SET imgname=%%~nF_!c!%%~xE
		REN "%%~fE" "!imgname!"
		COPY "%%~dE%%~pE\!imgname!" "%outputdir%"
	)
CLS
)

:ExtractJPG
FOR /F "TOKENS=*" %%F IN ('DIR /S /B "%tempfolder%\*.docx"') DO ( 
	"C:\Program Files\7-Zip\7z.exe" x "%%~fF" -aou -o"%%~pF\%%~nF" *.jpg -r > nul
	SET c=0

	FOR /F "TOKENS=*" %%E IN ('DIR /S /B "%%~dF%%~pF%%~nF\word\media\*.jpg"') DO (
		SET /a c+=1
		SET imgname=%%~nF_!c!%%~xE
		REN "%%~fE" "!imgname!"
		COPY "%%~dE%%~pE\!imgname!" "%outputdir%"
	)
CLS
)

:ExtractJPEG
FOR /F "TOKENS=*" %%F IN ('DIR /S /B "%tempfolder%\*.docx"') DO ( 
	"C:\Program Files\7-Zip\7z.exe" x "%%~fF" -aou -o"%%~pF\%%~nF" *.jpeg -r > nul
	SET c=0

	FOR /F "TOKENS=*" %%E IN ('DIR /S /B "%%~dF%%~pF%%~nF\word\media\*.jpeg"') DO (
		SET /a c+=1
		SET imgname=%%~nF_!c!%%~xE
		REN "%%~fE" "!imgname!"
		COPY "%%~dE%%~pE\!imgname!" "%outputdir%"
	)
CLS
)

ENDLOCAL



:DeleteTemp
RMDIR /S /Q "%tempfolder%"

:EchoResult
FOR /F "TOKENS=*" %%F IN ('DIR /S /B "%outputdir%"') DO (
SET /A res+=1
)
ECHO %res% images extracted

PAUSE