Get/Set Office Document Props w/ VB 6.0

[CoolKat676]

Hello! I am new to vbforums.com. A friend told me you guys would be able to help me!

I am an intern at a company and one of my projects involves modifying an application which generates a letter in Microsoft Word. The modification I need to make involves me setting the document's Properties field "Keywords" to information received in the application.

Right now the lines of code I have are

Dim oBuiltInProps as Object

oBuiltInProps = wrdDoc.BuiltInDocumentProperties
oBuiltInProps.Item("Keywords").Value = SSN

The application doesn't throw an accept or anything. It just doesn't do what I want it to. I was hoping you guys might have some suggestions as to how I can fix this or suggestions on what I can do to make it work! Anything and everything is helpful! Thanks!

[JordanChris]

Is that wrd or wd???

Private Sub Command1_Click()
    Dim myRange As Range
    Dim sSearchfor As String
 
    If objWord Is Nothing Then
        Set objWord = CreateObject("Word.Application")
    Else
        Set objWord = GetObject(, "Word.Application")
    End If
    DoEvents
    Set wd = objWord.Documents.Open("c:\Test.doc")
    MsgBox wd.BuiltInDocumentProperties(wdPropertyTitle)
    MsgBox wd.BuiltInDocumentProperties(wdPropertySubject)
    MsgBox wd.BuiltInDocumentProperties(wdPropertyManager)
    MsgBox wd.BuiltInDocumentProperties(wdPropertyComments)
    MsgBox wd.BuiltInDocumentProperties(wdPropertyLastAuthor)
    
    objWord.Visible = True
End Sub

[Muddy]

You will have an easier time if you Set a reference to Msft Word Object Library then :

dim objWord as New Word.Application

The advantage being that intellisense will help you out and youll have access to word constants.