Sub CATMain()
' We want to select all parts from all product first, because of that we must define selection.
Dim oSel As Selection
Set oSel = CATIA.ActiveDocument.Selection
oSel.Search "CATAsmSearch.Part,all"
'Now we wan to set for loop for previous selection. This loop will go trough every part in every product.
For i = 1 To oSel.Count
'We need all publications from part. Here we will also use that part from selection, here you can see how selection is important.
Dim num_of_publ_existing As Integer
num_of_publ_existing = oSel.item(i).value.Publications.count
'We will define one array to store publication names.
ReDim aa(num_of_publ_existing)
'We have now number of publication in part, let's use this info to create one more loop through publication inside part.
For k = 1 To num_of_publ_existing
PubName = oSel.item(i).value.Publications.Item(k).name
Set PubRef =oSel.item(i).value.Publications.Item(PubName).Valuation
'Next few lines are very important. If publication has no element it's displayname is empty, use this to make if statement. If statement will put that publication in one array, so we can use it later.
if PubRef.DisplayName = "" then
aa(k-1)=PubName
end if
Next
'Here ends publiaction for loop, but we saved our publication with no element into array.
'Let's loop through array and delete publications with no element.
for j=0 to num_of_publ_existing
'Our array length is num_of_publ_existing and it's more element that we need. We must to use if statement again.
if aa(j)  "" then
oSel.item(i).value.Publications.Remove(aa(j))
end if
next 'end of for loop for deleting publications
Next 'end of for loop for parts
oSel.Clear
End Sub