we worked out this piece of code to reset all cells from the approved folder in the revision table.
but it's not working, is it because this function does not exist for the revision table? It does work for the partslist :s
Public Sub RevisionTableMult()Dim invDDoc As DrawingDocumentDim invPL As RevisionTableDim invPLCell As RevisionTableCellDim intRow As IntegerDim invPLRow As RevisionTableRow Set invDDoc = ThisApplication.ActiveDocument Set invPL = invDDoc.ActiveSheet.RevisionTables.Item(1) For intRow = 1 To invPL.RevisionTableRows.Count Set invPLRow = invPL.RevisionTableRows.Item(intRow) Set invPLCell = invPLRow.Item("APPROVED")'resets the cell back to the parametric value... invPLCell.Static = Active Next intRowEnd Sub
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.