使用VBS实现批量Word文件属性清理

'使用：将代码复制并粘贴(不念年贴)到记事本中，保存为【Word文件属性清理.VBS】，双击这个文件即可运行
'功能：删除或修改Word文件的文件属性
'设计：张富贵儿同志
'用途：防止Word文件中带有不必要的信息。这些信息，有时候是敏感的。
'要求：电脑必须安装Office，不能是绿色版
'------------------------------------------
'当有一大堆文件文件需要修改或清理时，使用程序自动化操作。
'下面代码，根据实际需要改写

'exitWord      '终止正在运行的Word

SetWordREGInfo     '修改Word新建文件的默认信息，根据实际需要修改子程序，或者注释掉。
MainProgram        '运行清理或修改Word文件信息的主程序


Sub MainProgram
	'主程序的子程序。
	'判断运行参数，如果是Word文件，就进行操作，如果不是就给出帮助
	'参数通过将Word们文件拖到本程序脚本文件上的方式，比直接指定来的方便。
	DocFilesCount=0            '文件数量
	
	If WScript.Arguments.count=0 Then  '运行时不带参数
		pp= "使用方法：既不是双击本文件，也不是把文件拖放到本对话框上，而是点【确定】退出后，把需要处理的Word文件们，拖到“Word文件属性清理.VBS”文件上，属性信息就会被清理掉。" & Chr(10) & Chr(10) &_
		"用途：批量清理或修改Word文件属性信息"  & Chr(10) & _
		"免责：程序安全，但使用本程序产生的一切后果责任自负，与软件作者无关。作者没有培训、解释义务；若被拦截，是您的电脑被流氓软件控制，不要指谪别人，介意勿用。"
		Set WshShell = CreateObject("Wscript.Shell")
		'MsgBox pp,32,"使用方法"
		WshShell.Popup pp, 47, "不忘初心牢记使命，47秒后关闭",64
		WScript.quit
	End If  
	For jb=0 To WScript.Arguments.coun