[Iska]

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

for /f "usebackq tokens=3" %%i in (
		`2^>nul reg.exe query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v "Desktop" ^| find.exe /i "Desktop"`
	) do set sPath=%%~i

if defined sPath >nul reg.exe add "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options" /v "DOC-PATH" /t "REG_EXPAND_SZ" /d "%sPath%" /f

endlocal
exit /b 0