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

Hi @Daan_M 

 

Well, that's what I get for replying without testing my answer... @WCrihfield is correct, we need to use display name here.

 

I don't have your Excel data, but this stripped-down version of your rule works.

 

Dim oDoc As AssemblyDocument = ThisApplication.ActiveDocument
For Each rDoc As Document In oDoc.AllReferencedDocuments
	oPartDoc = ThisApplication.Documents.Open(rDoc.FullFileName, True)
	oPartDoc.Activate

	Dim oProperty As String = "Description"
	Dim oSetValue As String = "Hello World"

	MsgBox(oPartDoc.DisplayName)
	MsgBox(oProperty & " = " & oSetValue)

	iProperties.Value(oPartDoc.displayname, "Project", oProperty) = oSetValue

	oPartDoc.Save()
	'oPartDoc.Close
Next