I'm trying to do this so I can sort parts outside of Solidworks better by using the tags in windows.
This is not full macro but you need to insert this in traverse tree API
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModel.SummaryInfo(3) = "Add keywords here"
Retrieving data ...