Showing results 1 to 1 of 1

Thread: Restore deleted links in elements

  1. #1
    sebastiank Gast

    Default Restore deleted links in elements

    How can I restore links which already existed but get lost because of the element-id changed
    COPY the following code into myWorkspace and execute

    Private Sub SubstitudeItems()
        Dim obVar As Variable
        Dim obElem As Element
        Dim obPic As DynPicture
        Dim mystr As String
        Dim my2str As String
        Dim i As Integer
        Dim j As Integer
        Dim myVar As Variant
        Dim vColor As Variant
        
        For i = 0 To MyWorkspace.ActiveDocument.DynPictures.Count - 1
            Set obPic = MyWorkspace.ActiveDocument.DynPictures.Item(i)
            For j = 0 To obPic.Elements.Count - 1
                Set obElem = obPic.Elements.Item(j)
                If obElem.Type = 0 Or obElem.Type = 5 Or _
                    obElem.Type = 23 Or obElem.Type = 1 Then
                    vColor = obElem.BackColor
                    obElem.BackColor = RGB(12, 34, 56)
                    obElem.BackColor = vColor
                    myVar = obElem.DynPropertiesEnum("DynEleVar")
                    mystr = obElem.DynProperties("DynEleVar[0].SymVarName")
                    If Len(mystr) > 0 Then
                        Set obVar = MyWorkspace.ActiveDocument.Variables.Item(mystr)
                        obElem.AddVariable obVar
                    End If
                End If
            Next j
           obPic.Save
        Next i
        Set obElem = Nothing
        Set obPic = Nothing
        Set obVar = Nothing
    
    End Sub
    Last edited by sebastiank : 28th August 2007 at 12:35

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •