Sub test_sub()
'изменение в браузере имени главного документа
Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument
oDoc.DisplayName = "123"
' эта строка отменит изменение имени главного документа
' oDoc.DisplayNameOverridden = False
'изменение в браузере имен подсборок
Dim oCD As ComponentDefinition
Set oCD = oDoc.ComponentDefinition
oCD.Occurrences(1).Name = "234"
End Sub