Word) (Document.CheckIn 方法

從本機電腦將文件傳回伺服器，並將本機的文件設定成唯讀，讓它不能在本機上編輯。

語法

運算式。CheckIn (SaveChanges、 Comments、 MakePublic)

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

參數

名稱	必要/選用	資料類型	描述
SaveChanges	選用	Boolean	True 是表示 將文件儲存至伺服器的位置。 預設值為 True 。
Comments	選用	Variant	正在存回之文件修訂的註解 (僅適用於 SaveChanges 等於 True 時)。
MakePublic	選用	布林值	True 是表示 允許使用者文件上執行發佈後要存回。 此動作會交付文件以供核准程序之用，而核准程序最後會產生某個版本的文件，並發行給對文件具有唯讀權限的使用者 (僅適用於 SaveChanges 等於 True 時)。 預設值為 False 。

註解

若要利用 Microsoft 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

支援和意見反應

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