用bat删除 ms office word 近期记录

@echo off
setlocal EnableDelayedExpansion
color 3e
title 请授权管理员模式
PUSHD %~DP0 & cd /d "%~dp0"%1 %2
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :runas","","runas",1)(window.close) & goto :eof & exit:runas
rem 此下内容为注册表路径可以根据自己电脑的实际注册表路径修改（修改等于号后面的）
sethostText=HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Reading Locations\Document
sethostText2=HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\User MRU
rem 此上内容为注册表路径可以根据自己电脑的实际注册表路径修改（修改等于号后面的）
setcharText=##########################################################################echo %charText%
echo#此工具只删除【Office 16.0】下的【word最近打开记录】echo %charText%
echo## %hostText% 0echo## %hostText2%echo %charText%
echo#按照以上路径打开注册表自行查看是否存在【会自动尝试开启一次{{注册表编辑器}}，如果未弹出自己确认一下啥的都行】echo %charText%
rem 不需要打开注册表的话，就把下面这个regedit删掉就不会打开了
regedit
rem 额图方便写个循环，多少个自己随意改  数字9  前面有空格
for /l %%c in (0 19) do ( echo 正在删除 MS-Word 最近打开记录: Document %%c && reg delete "%hostText% %%c"  /f || echo 删除指令未执行：如果提示【系统找不到指定的注册表项或值】说明没有此记录 & echo %charText%)
echo 正在删除 MS-Word 最近打开记录: User MRU && reg delete "%hostText2%" /f || echo 删除指令未执行：如果提示【系统找不到指定的注册表项或值】说明没有此记录
echo %charText%
pause