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

Thanks for the reply. I tried this. Nothing is happening, so I suspect I am messing up on referencing things correctly or the syntax....

 

Dim oDef As AssemblyComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition

Dim oPattern As OccurrencePattern 

For Each oPattern In oDef.OccurrencePatterns
	If oPattern.OccurrencePatternElements.Count = 0 Then
		oPattern.OccurencePatterns.Suppressed = True
	End If
Next