使用VB脚本删除Word自定义属性后保存失效该如何解决？

• 你当前使用的objWord.Documents.Save是文档集合的批量保存方法，无参数调用时会对每个文档弹出保存确认弹窗，脚本运行时弹窗一闪而过未被确认，因此保存操作实际未执行。
• 部分版本的Word中，仅删除自定义文档属性不会自动标记文档为「已修改」状态，Word会判定无变更需要保存，直接跳过保存步骤。
• 额外可能的问题：文档默认以只读模式打开，无法写入修改内容。

修改后的完整代码 #

'RemoveCustomProperties.vbs
Option Explicit
dim objWord
dim WordDoc
dim CProp
dim StdOut 'Just for debugging output

set StdOut = CreateObject("Scripting.FileSystemObject").GetStandardStream(1)

Set objWord = WScript.CreateObject("Word.Application")
' 后台运行Word，无需显示窗口
objWord.Visible = False 

' 显式指定只读=False，避免以只读模式打开文档
objWord.Documents.Open WScript.Arguments.Item(0), , False

for each WordDoc in objWord.Documents
  stdout.writeline "Before:"
  '遍历删除所有自定义属性
  for each CProp in WordDoc.CustomDocumentProperties
    stdout.writeline cprop.name & "=" & cprop.value
    CProp.delete
  next

  stdout.writeline "Afterwards:"
  for each CProp in WordDoc.CustomDocumentProperties
    stdout.writeline cprop.name & "=" & cprop.value
  next

  ' 强制标记文档为已修改状态
  WordDoc.Saved = False
  ' 单独对当前文档执行保存，无弹窗
  WordDoc.Save
  ' 处理完直接关闭文档
  WordDoc.Close
next

objWord.Quit

set StdOut = Nothing
Set objWord = Nothing

关键修改说明 #

• 打开文档时添加参数False，显式指定非只读模式打开，避免无法写入
• 将objWord.Visible设为False，后台运行避免弹窗干扰
• 删除属性后主动设置WordDoc.Saved = False，强制告知Word文档有变更需要保存
• 遍历每个文档单独调用Save方法，不会触发保存确认弹窗，确保修改写入磁盘
• 原有调用语法无需调整，仍可使用cscript <path-to-vbs>\RemoveCustomProperties.vbs <WordFile>.docm执行脚本

内容的提问来源于stack exchange，提问作者Siggi