save assembly with code and description

[Miguel.CarvajalS34Q6]

I currently use a code that allows me to save the files with the code and its description, but it works well only with the part files, but it does not work with the assembly files, how can I solve it?

Dim oDoc As PartDocument = ThisApplication.ActiveDocument

oDoc.DisplayName = iProperties.Value("Project", "Stock Number") & " - " & iProperties.Value("Project", "Part Number")

[JelteDeJong · Accepted solution]

try this:

Dim doc As Document = ThisDoc.Document
doc.DisplayName = iProperties.Value("Project", "Stock Number") & " - " & iProperties.Value("Project", "Part Number")