Hi Dave,

Thank you for your help.  I forgot to mention that the fields were custom
document properties so I altered the code to suit however I can not get the
changes to save.  If you go into Word, File/Properties click on the custom
tab you can see that if you make any changes to the field you have to click
the Modify button for the field to actually change.  I am not sure how to
code that bit.  I have the following code: (What I am trying to do is change
the field to a date field and then taking the date from the database storing
the information and updating the field with it.)

Dim iCount As Integer
Dim sPath As String
Dim oDoc As Document
Dim sValue As String
sPath = "\\perfs1\isdept\TiwestScripts\Clean_DocTrackV1\cHECKEDin\test\"

Dim MyFile As String
Dim Counter As Long

'Create a dynamic array variable, and then declare its initial size
Dim DirectoryListArray() As String
Dim strConnection As String
ReDim DirectoryListArray(1000)

'Loop through all the files in the directory by using Dir$ function
MyFile = Dir$(sPath & "*.doc")
Do While MyFile <> ""
   DirectoryListArray(Counter) = MyFile
   MyFile = Dir$
   Counter = Counter + 1
Loop

If Counter < 1 Then
   MsgBox "No documents"
   End
End If
'Reset the size of the array without losing its values by using Redim Preserve
ReDim Preserve DirectoryListArray(Counter - 1)
'Stop
   
ChDir sPath

For Counter = 0 To UBound(DirectoryListArray)
   Set oDoc = Documents.Open(FileName:=sPath & DirectoryListArray(Counter))
   
   For Each afield In oDoc.CustomDocumentProperties
       If afield.Name = "ReviewDate" Then
         
           If afield.Type <> 3 Then
               
               DateChanged = "N"
               Let afield.Type = 3
               Open sPath & "ReviewDate.txt" For Input As #1
               Do While Not EOF(1)    ' Loop until end of file.
                   Input #1, MyDocName, MyReviewDate    ' Read data into
two variables.
                   sMyDocName = "D" & Format(MyDocName, "0000000") & ".doc"
                   'Stop
                   If UCase(sMyDocName) = UCase(oDoc.Name) Then
                       Let afield.Value = Replace(MyReviewDate, """", "")
                       DateChanged = "Y"
                       Exit Do
                   End If
               Loop
               Close #1
               Stop
               If DateChanged = "N" Then
                 MsgBox (oDoc.Name & " date could not be changed '" &
afield.Value & "'")
               Else
                   oDoc.Save
                               
               End If
           End If
       End If
   Next afield
   oDoc.Close
Next Counter
End Sub

On the stop sections I can see the fields have been updated correctly but
the odoc.Save does not seem to save the changes.  Any help is appreciated.

Regards
Claire