Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
k14348
in reply to: Anonymous

Sub Edit_Column_name()

Dim oDoc As Document
Dim oSheet As Sheet
Dim oPartslist As PartsList
Dim oPartsListColumn As PartsListColumn
Dim oColumnName As String
Dim oName As String

Set oDoc = ThisApplication.ActiveDocument
If oDoc.DocumentType = kDrawingDocumentObject Then
Set oSheet = oDoc.ActiveSheet
oSheet.Activate
Set oPartslist = oSheet.PartsLists(1)
For Each oPartsListColumn In oPartslist.PartsListColumns
oColumnName = oPartsListColumn.Title
If oColumnName = "Qty" Then '
oName = "Length"
oPartsListColumn.Title = oName
End If
Next
Else
MsgBox "The Selected document is not a drawing document please select a drawing document and continue", vbOKOnly, "Edit Column Name"
Exit Sub
End If
End Sub

 

Thanks its working 

-karthikeyan M