How to get the Company property in VBA

[LSA-skan]

Hi

Im working on a code, where i would like the Company property displayed in a Form for editing. I can do it with the Project property, and several others, but the Company property seem to be named something else.

I have tried with numbers as well, but no numbers seem to be the correct property.

This is the code i have.

Public Sub SorterDXF()

Dim invDoc As Document
Set invDoc = ThisApplication.ActiveDocument

Dim invDesignInfo As PropertySet
Set invDesignInfo = invDoc.PropertySets.Item("Design Tracking Properties")

Dim invPartNumberProperty As Property
Set invPartNumberProperty = invDesignInfo.Item("Project")

Project = invPartNumberProperty.Value

SortForm.FormOrdre.Value = Project

Dim invSummaryInfo As PropertySet
Set invSummaryInfo = invDoc.PropertySets.Item("Inventor Summary Information")

Dim invSummaryInfoProperty As Property
Set invSummaryInfoProperty = invSummaryInfo.Item(???????)

Kunde = invSummaryInfoProperty.Value

SortForm.FormKunde.Value = Kunde

SortForm.Show

End Sub

[WCrihfield · Accepted solution]

Hi @LSA-skan.  The standard iProperty named "Company" is within the PropertySet named "Inventor Document Summary Information" (the second PropertySet in the PropertySets collection), and is the 3rd item in its collection, with PropId = 15.  Its Enum value is "PropertiesForDocSummaryInformationEnum.kCompanyDocSummaryInformation".

[A.Acheson · Accepted solution]

Hi,

That is held in a different category of propertySets. See helpful article.

invDoc.PropertySets.Item("Inventor Document Summary Information")

[LSA-skan]

@WCrihfield @A.Acheson Thanks for your replies..! Now everything works as it should.. 😄