Parts lists

[GosponZ]

Hi

i'm wandering if there is iLogic or vba code to change item numbers into letters in part list table. Our customer require letters and change one by one is kind pain.

Thanks for any advice 

[Anonymous · Accepted solution]

Hi

the code is not finish but give you a good idea 🙂

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
   ' Set a reference to the first parts list on the active sheet.
' This assumes that a parts list is on the active sheet.
Dim oPartList As PartsList
oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
  ' Iterate through the contents of the parts list.
Dim i As Long
For i = 1 To oPartList.PartsListRows.Count
'look at only the part number column
oCell  = oPartList.PartsListRows.Item(i).Item("ITEM")
'find a specific part number
If oCell.Value = "1" Then
oCell.Value = "A"
End If
Next

[GosponZ]

Thanks works well