Doc

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