SharedWorkspace.RemoveDocument 方法 (Office)

从共享工作区网站中删除活动文档。

注意

自 Microsoft Office 2010 开始，此对象或成员已弃用，不应再行使用。

语法

表达式。RemoveDocument

表达 一个代表 SharedWorkspace 对象的变量。

备注

如果用户无权从服务器中删除共享工作区文档，则服务器副本保持不变，但文档的本地副本与共享工作区断开连接。 如果文档直接从工作区打开，然后使用 RemoveDocument 从工作区中删除，则必须在关闭之前将文档保存到其他位置：否则，它将保留在工作区中。

使用 Disconnect 方法可从共享工作区中分离文档的本地副本，而无需删除共享副本。

示例

以下示例确定活动文档是否连接到共享工作区，然后为用户提供从工作区网站中删除文档的选项。

    Dim r As Long 
    If ActiveWorkbook.SharedWorkspace.Connected Then 
        r = MsgBox("Are you sure you want to remove this document?", _ 
            vbQuestion + vbOKCancel, "Are you sure?") 
        If r = vbOK Then 
            ActiveWorkbook.SharedWorkspace.RemoveDocument 
            MsgBox "The document is removed.", _ 
                vbInformation + vbOKOnly, "Removed" 
        Else 
            MsgBox "Removal canceled.", _ 
                vbInformation + vbOKOnly, "Still In Workspace" 
        End If 
    Else 
        MsgBox "The active document is not connected to a shared workspace.", _ 
            vbInformation + vbOKOnly, "Not Connected" 
    End If 

另请参阅

• SharedWorkspace 对象成员

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。