@echo off
setlocal enabledelayedexpansion
md Archive\Word
set origcd=%cd%
cd /d "C:\Users\Nims\Desktop\top\"
for /r %%f in (*.doc *.docx) do copy "%%f" "%origcd%Archive\Word\%%~nf_!random!%%~xf"
"%origcd%Soft\WinRAR\winrar.exe" a -r -m5 -p[1234] -ibck -dh -x*Archive\Word -agYYYY.MM.DD %origcd%Archive\C-.rar *.*
RD /S /Q "%origcd%Archive\Word"
cd /d %origcd%