Article	41024011
Type	HowTo
Product	Engine
Version	5.1.1.1037
Date Added	6/13/2005
Submitted by	Wayne Romer
Keywords

Subject

Redefining a block with attributes

Summary

Redefining a block with attributes

Solution

Only for attributes, the following code is needed because by changing a block the changes do not applying to attributes.

    Dim selset As vdSelection
    Dim att As vdAttrib
    Dim ins As vdInsert
    Dim filter As vdFilterObject
    Dim mat As vdmatrix
    Set filter = vd.ActiveDocument.Selections.CreateFilter(Array("VDINSERT"), Nothing)
    Set selset = vd.ActiveDocument.Selections.FilterSelect("ins1", filter)
    For Each ins In selset
        For Each att In ins
        att.Erase
        Next
        ins.Update
    Next