共用方式為


Word) (Document.CanCheckin 方法

True 是表示 如果 Microsoft Word 可以存回指定的文件的伺服器。 可讀寫的 Boolean

語法

expression. CanCheckin

需要 expression。 代表 Document 物件的變數。

傳回值

布林值

註解

若要運用 Word 內建的共同作業功能,您就必須將文件存放在 Microsoft SharePoint Portal Server 上。

範例

此範例會檢查伺服器,以查看是否可以存回指定的檔,如果可以,請關閉檔,然後將它檢查回伺服器。

Sub CheckInOut(docCheckIn As String) 
 If Documents(docCheckIn).CanCheckin = True Then 
 Documents(docCheckIn).CheckIn 
 MsgBox docCheckIn & " has been checked in." 
 Else 
 MsgBox "This file cannot be checked in " & _ 
 "at this time. Please try again later." 
 End If 
End Sub

若要呼叫上述 CheckInOut 副程式,請使用下列副程式並取代 「 https://servername/workspace/report.doc" ;檔案名,其實際檔案位於上述一節所述的伺服器上。

Sub CheckDocInOut() 
 Call CheckInOut (docCheckIn:="https://servername/workspace/report.doc") 
End Sub

另請參閱

Document 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應