read/write word document properties from Access

[Maurizio]

I create an application with Access 2000 and I wish to read/write the properties of a specified word document. I use dsofile.dll
my code is

Function fGetDocProps(strInFile As String, strProp As String) 
Dim objWord As Object, objDocProps As Object 
 
 
    On Error GoTo Err_fGetDocProps 
    Set objWord = CreateObject("Word.Application") 
    objWord.Documents.Open strInFile 
    Set objDocProps = objWord.ActiveDocument.BuiltInDocumentProperties 
    fGetDocProps = objDocProps(strProp) 
 
Exit_fGetDocProps: 
    objWord.Application.Quit savechanges:=False 
    Set objDocProps = Nothing 
    Set objWord = Nothing 
    Exit Function 
 
Err_fGetDocProps: 
    fGetDocProps = "Error: Probably File/Property does not exist." 
    Resume Exit_fGetDocProps 
End Function 
 
Function fEnumProps(strInFile As String) 
Dim objWord As Object, objDocProps As Object 
Dim i As Integer 
    On Error Resume Next 
    Set objWord = CreateObject("Word.Application") 
    With objWord 
        .Documents.Open strInFile 
        Set objDocProps = 
objWord.ActiveDocument.BuiltInDocumentProperties 
        For i = 0 To objDocProps.Count - 1 
            Debug.Print objDocProps(i).Name, objDocProps(i).Value 
        Next i 
    End With 
    objWord.Application.Quit savechanges:=False 
    Set objWord = Nothing 
End Function 
***************************************************** 
 

if I want to read a property (for example "title") I write

msgbox (fGetDocProps("C:\test\sample.doc","Title"))

but I don't understand how to write and change that property
thanks
Maurizio

[nico5038]

The general way to assign a value to properties is to use:
Object.propertyname = "value"
or
Object.Properties("propertyname") = "value"

However not all properties can be written, some are "read-only".....

Nic;o)

[NeoPa]

I'm afraid that, although you're using Access as a coding base, this question is really about a separate library (DLL). I will happily leave it here but there may not be many of our Access experts who know much about this library for accessing the properties of an MS Word via the file-system. Have you tried using Google to search for items on that library? Or even the procedure call you used to read the property?

[NeoPa]

I did a quick Google for you and found the following Microsoft KnowledgeBase article which should help you do exactly what you want (The Dsofile.dll files lets you edit Office document properties when you do not have Office installed).
Good luck.