06-28-2016
01:24 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-28-2016
01:24 AM
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