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

It is a smart tweek but not quite right (see the figure below) . It led me to tweek as follows and it is fine.

Thanks again for your help.

Try
	Dim oParentocc As ComponentOccurrence
	oParentocc = oOcc.ParentOccurrence
	docFile = oParentocc.Definition.Document
    oParent = System.IO.Path.GetFileNameWithoutExtension(docFile.FullFileName)
    oParent = System.IO.Path.GetFileName(docFile.FullFileName)
Catch
	oParent = System.IO.Path.GetFileNameWithoutExtension(oOcc.Parent.Document.DisplayName)
	oParent = System.IO.Path.GetFileName(oOcc.Parent.Document.DisplayName)
End Try

 

2019-02-19 22_5304.png

2019-02-19 23_0459.png