Visual Basic Editor (Word 2003)

To activate (or check if it is available) ADODB in Word, you need to start the Visual Basic Editor. The VBE can be found in Tools\Macro (Word XP & 2003 ((Office 2007 might have hidden it better but ALT+F11 still works.)))

Access to ADODB is determined by the project’s references and those are specific for each Word document, so make sure to start your WebDAV macro projekt first (Done by creating a new Macro from Word).

'
' Microsoft Office Visual Basic
' WebDAV Access example
'
' @author Jeffrey Ridout
' @date 2009-04-23
' @version 0.0.1
'

Sub AccessWebDAV()
    Dim files() As String                  ' String array to hold friendly filenames.
    Dim davDir As New ADODB.Record         ' Record for the directory
    Dim davFile As New ADODB.Record        ' Record for the file
    Dim davFiles As New ADODB.Recordset    ' Recordset for the directory's filelist
    Dim isDir As Boolean
    Dim index As Integer

    ' For debugging purposes jump to the error display on any error
    On Error GoTo showErr

    ' Open the root folder as a ADODB.Record to retrieve a list of it's contents.
    ' To open a folder, pass an empty string as the filename and the full URL as the path.
    ' URL= tells ADODB to use the WebDAV interface.
    ' adModeReadWrite: This could be adModeReadOnly, it might matter in a multi-threaded environment
    ' adDelayFetchStream: ADODB sometimes pre-fetches the content of files, this is not needed.
    davDir.Open "", _
                "URL=http://example.org/dav", _
                adModeReadWrite, _
                adFailIfNotExists, _
                adDelayFetchStream, _
                "username", _
                "password"
    Set davFiles = davDir.GetChildren()          ' Get the list of files as a ADODB.Recordset

    index = 0
    ' The WebDAV directory Recordset uses a 'current' index and has no counter,
    ' so use EOF to check if there are more files.
    Do While Not davFiles.EOF
        davFile.Open davFiles, , adModeReadWrite
        ' File properties are Record.Fields, all standard DAV fields are called "Dav:<property>".
        ' ADODB adds it's own fields that supply the same information, called "RESOURCE_<property>".
        isDir = davFile.Fields("RESOURCE_ISCOLLECTION").Value                     ' RESOURCE_ISCOLLECTION is a boolean specifiying if the file is a directory.

        If Not isDir Then ' If the file is not a directory it's a normal file and we can add it to the list.
            ReDim Preserve files(0 To 1, 0 To index)                              ' The number of files is unknown, so "ReDim Preserve" resizes the array without losing the data.
            files(0, index) = davFile.Fields("RESOURCE_PARSENAME").Value          ' RESOURCE_PARSENAME contains the filename.
            files(1, index) = davFile.Fields("RESOURCE_ABSOLUTEPARSENAME").Value  ' RESOURCE_ABSOLUTEPARSENAME contains the full URL.
            index = index + 1
        End If

        davFile.Close       ' Always remember to Close the file!
        davFiles.MoveNext   ' Move the index to the next Record.
    Loop
    Set davFiles = Nothing  ' Always unset the object pointer!
    davDir.Close            ' Close the Record for the directory, not closing it can leak memory and could also lock the directory.
    Set davDir = Nothing

    ' Do something with files here...

    GoTo noErr
showErr:
    Call MsgBox(Err.Number & ": " & Err.Description, vbOKOnly, "Error")

noErr:
    ' No errors
End Sub

'...
' Define some constants containing property namespaces in the head of the Macro.

' Constants
Public Const OFFICE_URN  As String = "urn:schemas-microsoft-com:office:office"
Public Const EXAMPLE_URN As String = "http://example.org/dav/props/"

' Inside the function, the custom properties can be retrieved and added quite easy.
'...
    ' Get custom properties.
    prop1 = davFile.Fields(OFFICE_URN & "author").Value
    prop2 = davFile.Fields(EXAMPLE_URN & "doc_title").Value
    prop3 = davFile.Fields(EXAMPLE_URN & "doc_subject").Value
    prop4 = davFile.Fields("non-existing-property").Value      ' Non existing properties return an empty string.

    ' Set custom properties.
    davFile.Fields(OFFICE_URN & "author") = "user"
    davFile.Fields(EXAMPLE_URN & "doc_title") = "Document title"
    davFile.Fields(EXAMPLE_URN & "doc_subject") = "Document subject"
    davFile.Fields.Update  ' Fields.Update commits the changes to Fields to WebDAV.
'...

'
' Microsoft Office Visual Basic
' WebDAV Access example
'
' @author Jeffrey Ridout
' @date 2009-04-23
' @version 0.0.2
'

' Constants
Public Const OFFICE_URN As String = "urn:schemas-microsoft-com:office:office/"
Public Const SPK_URN As String = "http://schemas.spk.no/dav/props/"

' Module variables
Public isCancelled As Boolean  ' Used by dlgOpenFileDAV
Public fileURL As String       ' Used by dlgOpenFileDAV

Sub OpenWebDAVFile()
    Dim files() As String                  ' Dynamic Multidimensional String array to hold file properties.
    Dim davDir As New ADODB.Record         ' Record for the directory
    Dim davFile As New ADODB.Record        ' Record for the file
    Dim davFiles As New ADODB.Recordset    ' Recordset for the directory's filelist
    Dim isDir As Boolean
    Dim index As Integer
    Dim dlg As Object

    ' For debugging purposes jump to the error display on any error
    On Error GoTo showErr

    ' Open the root folder as a ADODB.Record to retrieve a list of it's contents.
    ' To open a folder, pass an empty string as the filename and the full URL as the path.
    ' URL= tells ADODB to use the WebDAV interface.
    ' adModeReadWrite: This could be adModeReadOnly, it might matter in a multi-threaded environment
    ' adDelayFetchStream: ADODB sometimes pre-fetches the content of files, this is not needed.
    davDir.Open "", _
                "URL=http://example.org/dav", _
                adModeReadWrite, _
                adFailIfNotExists, _
                adDelayFetchStream, _
                "username", _
                "password"
    Set davFiles = davDir.GetChildren()          ' Get the list of files as a ADODB.Recordset

    index = 0
    ' The WebDAV directory Recordset uses a 'current' index and has no counter,
    ' so use EOF to check if there are more files.
    Do While Not davFiles.EOF
        davFile.Open davFiles, , adModeReadWrite
        ' File properties are Record.Fields, all standard DAV fields are called "Dav:<property>".
        ' ADODB adds it's own fields that supply the same information, called "RESOURCE_<property>".
        isDir = davFile.Fields("RESOURCE_ISCOLLECTION").Value                     ' RESOURCE_ISCOLLECTION is a boolean specifiying if the file is a directory.

        If Not isDir Then ' If the file is not a directory it's a normal file and we can add it to the list.
            ReDim Preserve files(0 To 4, 0 To index)                              ' The number of files is unknown, so "ReDim Preserve" resizes the array without losing the data.
            files(0, index) = davFile.Fields("RESOURCE_PARSENAME").Value          ' RESOURCE_PARSENAME contains the filename.
            files(1, index) = davFile.Fields("RESOURCE_ABSOLUTEPARSENAME").Value  ' RESOURCE_ABSOLUTEPARSENAME contains the full URL.
            files(2, index) = davFile.Fields(SPK_URN & "doc-title").Value         ' Custom property: title
            files(3, index) = davFile.Fields(SPK_URN & "doc-subject").Value       ' Custom property: subject
            files(4, index) = davFile.Fields(OFFICE_URN & "author").Value         ' Custom property: author
            index = index + 1
        End If
        davFile.Close       ' Always remember to Close the file!
        davFiles.MoveNext   ' Move the index to the next Record.
    Loop
    Set davFiles = Nothing  ' Always unset the object pointer!
    davDir.Close            ' Close the Record for the directory, not closing it can leak memory and could also lock the directory.
    Set davDir = Nothing

    ' See Image 3 and Listing 4 for the OpenFileDAV dialog.
    dlgOpenFileDAV.listDocuments.Clear     ' Clear the ListBox since dlgOpenFileDAV is reusable.
    For I = 0 To index - 1
        With dlgOpenFileDAV.listDocuments
            .AddItem files(0, I), I        ' Add a new row to the ListBox.
            .List(I, 1) = files(1, I)      ' The ListBox has 4 columns, 2nd column is hidden and contains the full URL.
            .List(I, 2) = files(2, I)      ' 3d column contains the title.
            .List(I, 3) = files(3, I)      ' 4th column contains the subject.
            .List(I, 4) = files(4, I)      ' 5th column contains the author.
        End With
    Next I

    isCancelled = True
    fileURL = ""
    dlgOpenFileDAV.Show
    If (isCancelled = False) Then
        If (fileURL <> "") Then
            Documents.Open fileURL, False, False  ' To open the file from the WebDAV repository, simple pass the URL.
        End If
    End If

    GoTo noErr
showErr:
    Call MsgBox(Err.Number & ": " & Err.Description, vbOKOnly, "Error")

noErr:
    ' No errors
End Sub

Private Sub btnCancel_Click()
    davTest.isCancelled = True
    Hide
End Sub

Private Sub btnOk_Click()
    davTest.isCancelled = False
    davTest.fileURL = listDocuments.Value
    Hide
End Sub

Private Sub listDocuments_Change()
    If listDocuments.Value >= 0 Then
        btnOk.Enabled = True
    End If
End Sub

Private Sub UserForm_Initialize()
    If (listDocuments.ListCount > 0) Then
        listDocuments.Clear
    End If
    btnOk.Enabled = False
    davTest.isCancelled = True
End Sub