将指定的文档从服务器复制到本地计算机用于编辑。
expression.CheckOut(FileName)
expression 必需。该表达式返回“应用于”列表中的一个对象。
FileName String 类型,必需。签出的文件的名称。
若要利用 Word 中结合的协作功能,文档必须存储在“Microsoft SharePoint 入口服务器”上。
本示例校验没有其他用户签出文档,并可将文档签出。如果可以签出文档,则将文档复制到本地计算机进行编辑。
Sub CheckInOut(docCheckOut As String)
If Documents.CanCheckOut(docCheckOut) = True Then
Documents.CheckOut docCheckOut
Else
MsgBox "You are unable to check out this document at this time."
End If
End Sub
若要调用上述 CheckInOut 子程序,请使用下列子程序并将文件名“http://servername/workspace/report.doc”替换为以上“说明”一节中提到的服务器上实际的文件。
Sub CheckDocInOut()
Call CheckInOut (docCheckIn:="http://servername/workspace/report.doc")
End Sub