如果通过VBA代码关闭一个已经打开的word文档？
━━━━━━━━━━━━━━━━━━━━━━━━━
试试documents("指定文档的名称").Close False
━━━━━━━━━━━━━━━━━━━━━━━━━
楼主显然没有学习过微软官方VBA帮助啊！

' 关闭活动文档（保存）
ActiveDocument.Close savechanges: = wdSaveChanges

' 关闭活动文档（不保存）
ActiveDocument.Close savechanges: = wdDoNotSaveChanges
━━━━━━━━━━━━━━━━━━━━━━━━━
1、关闭单个文档,并保存变化：
Documents("A.doc").Close savechanges: = wdsavechanges

2、不保存更改的情况下关闭所有文档：
Documents.Close savechange: = wdDonotsavechanges

3、在每个文档关闭之前提示用户保存文档：
Dim doc As Document
For Each doc In Documents
    doc.Close savechanges: = wdpromptTosavechanges
Next doc
━━━━━━━━━━━━━━━━━━━━━━━━━
VBA中 关闭指定的.xls文件
Workbooks("文件名.xls").Close
━━━━━━━━━━━━━━━━━━━━━━━━━
Workbooks("a.xlsx").Close (True)
.Close(True)意思是保存并关闭a.xlsx
.Close(False)意思是关闭不保存a.xlsx
━━━━━━━━━━━━━━━━━━━━━━━━━
Private Sub Document_Close()
    If Not ThisWorkbook.Saved Then
        Answer = MsgBox("是否保存？", vbYesNo + vbDefaultButton2, "你要的效果")
        If Answer = vbYes Then ThisWorkbook.Save
    End If
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━
双击THISDOCUMENT 模块 粘贴下面代码
Private Sub Document_Close()
    Me.SaveAs "c:\a" & Int(1000 * Rnd()) & ".docx"
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━