It is easy. Convert ReportObject to ISymbolScript and just set that symbol is local.

Set obj_SymbolScript = dll_GC.GC_GetISymbolScript(obj_ItemDocObj)

If Not obj_SymbolScript Is Nothing Then

  obj_SymbolScript.IsSymbolScriptLocal = True

End If

Here is whole script which starts with CDevice. It searches all Devices of CDevice -> Their usages on documents -> searches reportObjects for devices -> Set local script

Set obj_CDev = a

Set dll_GC = CreateObject("ComosROUtilities.GlobalCastings")

'### All Devices

Set col_BPDevs = obj_CDev.BackPointerDevices

int_BPDevsCount = col_BPDevs.Count

For int_iBPDev = 1 To int_BPDevsCount

  Set obj_ItemBPDev = col_BPDevs.Item(int_iBPDev)

  'Output obj_ItemBPDev.SystemFullName & " " & obj_ItemBPDev.Description

 

  '### All document usages of device

  Set col_BPDocObjs = obj_ItemBPDev.BackPointerDocObjs

  int_BPDocObjsCount = col_BPDocObjs.Count

  For int_iBPDocObj = 1 To int_BPDocObjsCount

    Set obj_ItemBPDocObj =  col_BPDocObjs.Item(int_iBPDocObj)

    Set obj_Doc = obj_ItemBPDocObj.Owner

    'If obj_Doc.SymbolType = "---" Then

    'Output obj_Doc.SystemFullName & " " & obj_Doc.Description

   

    '### Find document object for device

    obj_Doc.Report.Open

    Set obj_DocRep = obj_Doc.Report.ReportDocument

   

    int_DocObjsCount = obj_DocRep.ItemCount

    For int_iDocObj = 0 To int_DocObjsCount - 1

      Set obj_ItemDocObj = obj_DocRep.Item(int_iDocObj)

     

      Set obj_ComosDev = dll_GC.GC_GetComosDevice(obj_ItemDocObj)

      If Not obj_ComosDev Is Nothing Then

       

        If obj_ComosDev Is obj_ItemBPDev Then

       

          '### Set local symbol flag

          Set obj_SymbolScript = dll_GC.GC_GetISymbolScript(obj_ItemDocObj)

          If Not obj_SymbolScript Is Nothing Then

            obj_SymbolScript.IsSymbolScriptLocal = True

          End If

       

          Exit For

        End If

      End If

    Next

    obj_Doc.Report.Save

    obj_Doc.Report.Close

    ' End If

  Next

Next