For Each DocPropItem In oDoc.CustomDocumentProperties DocPropItem.DeleteNext DocPropItem
删除所有自定义信息word VBA