' Name: ISOdate_Obj
' Title: Layout text object definition - ISO date
' Description: Label the selected text as "ISOdate" to contain the Layout date stamp
'Mike Silberbauer 2001-05
theLayout = av.GetActiveDoc
theDisplay = theLayout.GetDisplay

' Get the GraphicList for the Layout...
theGraphics = theLayout.GetGraphics
theGraphicText = theGraphics.GetSelected
theGraphicText.Get(0).SetObjectTag("ISOdate")