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 DrawingDocument
Dim invPL As RevisionTable
Dim invPLCell As RevisionTableCell
Dim intRow As Integer
Dim 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 intRow
End Sub
If this is the solution, push the solution button
(and maybe some kudos)
