If MsgBox("是否在第一次保存文档时生成一个备份文件?", 36, _ "生成备份文件?") = vbYes Then Options.CreateBackupOnFirstSave = TrueElse Options.CreateBackupOnFirstSave = FalseEnd If