07-19-2021
09:44 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-19-2021
09:44 AM
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