I am trying to use the code from the help file for "PutInClipboard" and
I get a error. Do I not have something loaded? It seems to have a
problem with the "DataObject" after New.

Sub Current_Path()
   Set MyData = New DataObject
   MyData.SetText ActiveDocument.Path
   MyData.PutInClipboard
End Sub

The program is supposed to put the path of the active document into the
clipboard.

Word 2003 Win XP

Thanks
Scott