Fit

@echo off&setlocal enabledelayedexpansion
set "ccd=%cd%\A"
md A
set /p mmd="输入或拖拽word的文件夹！"
cd /d "%mmd%"
echo %cd%
for /f "tokens=*" %%i in ('dir /b *.doc *.docx') do (
        set "str=%%~ni"
        set str=!str:~0,19!
        if not exist "%ccd%\!str!" (md "%ccd%\!str!")
        copy "%%i" "%ccd%\!str!\"
)
pause