Hola yo lo q hago es esto....una macro q habre un filedialog open logada contra el servidor..mas o menos va
Sub abrir_sharepoint()
On Error GoTo myError
     Dim davDir As New ADODB.Record
     davDir.Open "", _
                    "URL=direccion url", _
                    adModeReadWrite, _
                    adFailIfNotExists, _
                    adDelayFetchStream, _
                    "nombreusuario", _
                    "contraseña"
     '
     With Dialogs(wdDialogFileOpen)
         .Name = "url direccion carpeta docs"
         .Show
         '.Execute
    End With
    davDir.Close
myError:
    Resume Next
    'MsgBox ("No se ha podido abrir el archivo")
End Sub