自动为批量Word文档标题重命名，vbs脚本自动化处理

不小心硬盘文件给丢失了，后来恢复之后文件名就全部是数字码，在网上也查找了，看到说vbs可以恢复，可以直接用标题名去命名文件名，现根据

https://zhidao.baidu.com/question/135727714616919725.html

整理修改来，重命名文件路径可自行修改：

Const g_strRootPath = "*"的"*"位置，如：

Const g_strRootPath = "c:\Temp\docs\Word\ToRename\" ' 指定存放所有文件的目录，可以有子目录