Sub Evaluate_OnLoad
  Dim DeUsuario
  Dim ParaUsuario
  Dim Refob
  Dim OwnerRef
  Dim OwnerObj
  '*******************************
  '* Change the String Bellow
  '*******************************
  fromUser = "<ORIGIN_USER>"
  toUser = "<DESTINATION_USER>"
  '******************************
  Set Context = CreateObject("SCF.ScriptContext")
  Set Framework = CreateObject("SCF.ScriptFramework")
  Set Document = Context.ScriptDocument
  Set ThisScript = Context.Object
  Set Model = ThisScript.Model
  Set ModelObject = Model.AsObject
  Set Sinonimos = ModelObject.Children("Synonym")
  '
  Document.Write("------ Sinonimos -------" & vbCRLF)
  '
  Model.BeginTransaction("Change the Owner Referenced Object")
  For Each S In Sinonimos
    If S.hasProperty("Referenced Object Text")=True then
		Refob = S.Property("Referenced Object Text").AsString
		OwnerRef = Mid(Refob,1,InStr(Refob,".")-1)
		OwnerObj = Mid(Refob, InStr(Refob,".")+1, Len(Refob))
		If OwnerRef = fromUser Then
			Set PropValue = Framework.CreatePropertyValue("Synonym","Referenced Object Text")
			PropValue.FromString(toUser & "." & OwnerObj)
			Call S.SetProperty("Referenced Object Text",PropValue)
			Document.Write(S.Name & " Altered." &  vbCRLF)	
		End If
	End If
  Next
  Model.EndTransaction()
End Sub