<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: idw Parts list format collumn heading change via vba in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/idw-parts-list-format-collumn-heading-change-via-vba/m-p/6407671#M65043</link>
    <description>&lt;P&gt;Sub Edit_Column_name()&lt;/P&gt;&lt;P&gt;Dim oDoc As Document&lt;BR /&gt;Dim oSheet As Sheet&lt;BR /&gt;Dim oPartslist As PartsList&lt;BR /&gt;Dim oPartsListColumn As PartsListColumn&lt;BR /&gt;Dim oColumnName As String&lt;BR /&gt;Dim oName As String&lt;/P&gt;&lt;P&gt;Set oDoc = ThisApplication.ActiveDocument&lt;BR /&gt;If oDoc.DocumentType = kDrawingDocumentObject Then&lt;BR /&gt;Set oSheet = oDoc.ActiveSheet&lt;BR /&gt;oSheet.Activate&lt;BR /&gt;Set oPartslist = oSheet.PartsLists(1)&lt;BR /&gt;For Each oPartsListColumn In oPartslist.PartsListColumns&lt;BR /&gt;oColumnName = oPartsListColumn.Title&lt;BR /&gt;If oColumnName = "Qty" Then '&lt;BR /&gt;oName = "Length"&lt;BR /&gt;oPartsListColumn.Title = oName&lt;BR /&gt;End If&lt;BR /&gt;Next&lt;BR /&gt;Else&lt;BR /&gt;MsgBox "The Selected document is not a drawing document please select a drawing document and continue", vbOKOnly, "Edit Column Name"&lt;BR /&gt;Exit Sub&lt;BR /&gt;End If&lt;BR /&gt;End Sub&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks its working&amp;nbsp;&lt;/P&gt;&lt;P&gt;-karthikeyan M&lt;/P&gt;</description>
    <pubDate>Tue, 28 Jun 2016 08:24:33 GMT</pubDate>
    <dc:creator>k14348</dc:creator>
    <dc:date>2016-06-28T08:24:33Z</dc:date>
    <item>
      <title>idw Parts list format collumn heading change via vba</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/idw-parts-list-format-collumn-heading-change-via-vba/m-p/6365773#M64420</link>
      <description>&lt;P&gt;H i need to change the heading of partlist collumn heading via ilogic or vba. Anybody can help?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;by&lt;/P&gt;&lt;P&gt;karthikeyan M&lt;/P&gt;</description>
      <pubDate>Sat, 04 Jun 2016 10:38:17 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/idw-parts-list-format-collumn-heading-change-via-vba/m-p/6365773#M64420</guid>
      <dc:creator>k14348</dc:creator>
      <dc:date>2016-06-04T10:38:17Z</dc:date>
    </item>
    <item>
      <title>Re: idw Parts list format collumn heading change via vba</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/idw-parts-list-format-collumn-heading-change-via-vba/m-p/6403756#M64987</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;The Following code could full fill your requirement.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;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
        For Each oPartsList In oSheet.PartsLists
            For Each oPartsListColumn In oPartsList.PartsListColumns
                oColumnName = oPartsListColumn.Title
                oName = InputBox("Enter the new name for the Column :  " + oColumnName + "", "Enter Column Name")
                If oName &amp;lt;&amp;gt; "" Then
                    oPartsListColumn.Title = oName
                End If
            Next
        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



&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;SPAN&gt;If this information was helpful, please consider marking it as an &lt;/SPAN&gt;&lt;FONT color="red"&gt;&lt;STRONG&gt;Accepted Solution&lt;/STRONG&gt;&lt;/FONT&gt;&lt;SPAN&gt; by using the &lt;/SPAN&gt;&lt;STRONG&gt;Accept as Solution&lt;/STRONG&gt;&lt;/P&gt;</description>
      <pubDate>Sat, 25 Jun 2016 07:10:33 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/idw-parts-list-format-collumn-heading-change-via-vba/m-p/6403756#M64987</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2016-06-25T07:10:33Z</dc:date>
    </item>
    <item>
      <title>Re: idw Parts list format collumn heading change via vba</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/idw-parts-list-format-collumn-heading-change-via-vba/m-p/6407671#M65043</link>
      <description>&lt;P&gt;Sub Edit_Column_name()&lt;/P&gt;&lt;P&gt;Dim oDoc As Document&lt;BR /&gt;Dim oSheet As Sheet&lt;BR /&gt;Dim oPartslist As PartsList&lt;BR /&gt;Dim oPartsListColumn As PartsListColumn&lt;BR /&gt;Dim oColumnName As String&lt;BR /&gt;Dim oName As String&lt;/P&gt;&lt;P&gt;Set oDoc = ThisApplication.ActiveDocument&lt;BR /&gt;If oDoc.DocumentType = kDrawingDocumentObject Then&lt;BR /&gt;Set oSheet = oDoc.ActiveSheet&lt;BR /&gt;oSheet.Activate&lt;BR /&gt;Set oPartslist = oSheet.PartsLists(1)&lt;BR /&gt;For Each oPartsListColumn In oPartslist.PartsListColumns&lt;BR /&gt;oColumnName = oPartsListColumn.Title&lt;BR /&gt;If oColumnName = "Qty" Then '&lt;BR /&gt;oName = "Length"&lt;BR /&gt;oPartsListColumn.Title = oName&lt;BR /&gt;End If&lt;BR /&gt;Next&lt;BR /&gt;Else&lt;BR /&gt;MsgBox "The Selected document is not a drawing document please select a drawing document and continue", vbOKOnly, "Edit Column Name"&lt;BR /&gt;Exit Sub&lt;BR /&gt;End If&lt;BR /&gt;End Sub&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks its working&amp;nbsp;&lt;/P&gt;&lt;P&gt;-karthikeyan M&lt;/P&gt;</description>
      <pubDate>Tue, 28 Jun 2016 08:24:33 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/idw-parts-list-format-collumn-heading-change-via-vba/m-p/6407671#M65043</guid>
      <dc:creator>k14348</dc:creator>
      <dc:date>2016-06-28T08:24:33Z</dc:date>
    </item>
  </channel>
</rss>

