使用VBA检入Word文档，无需关闭文档并重新打开

Question

我们公司最近迁移到了Sharepoint，我们忘记了办理登机手续并失去了所有工作，这让我们感到无比乐趣。 因此，我开发了以下代码，可以通过快速访问工具栏中的按钮进行访问，巧妙地伪装成“保存”按钮。 我通过录制动作开发了这个，并在网上提供了一些帮助。

    Sub ChaveIn()
'
' CheckIn/Save = ChaveIn Macro
' Andrew Nathanson
' 2014/04/07
' Ver 1.0
'
'
    If ActiveDocument.CanCheckin Then
        TheCurrentfilename = ActiveDocument.FullName
        ActiveDocument.CheckInWithVersion SaveChanges:=True, MakePublic:=False, _
        Comments:="", VersionType:=wdCheckInMinorVersion
        Documents.CheckOut FileName:=TheCurrentfilename
        Documents.Open FileName:=TheCurrentfilename
    Else
        ActiveDocument.Save
    End If
End Sub

我的问题主要是审美;如果您通过Word对话框检入，文档将暂停，上传到服务器，并让您继续从中断的位置继续。 当我的代码执行此操作时，文档会关闭并再次打开，从而丢失文档中的位置。

有没有办法像Word那样做呢？

谢谢。