You should use the Section object of root ProductDocument, don't use Selection of PartDocument.
The parameter for "AsResultWithLink" is "CATPrtResult", not "CATPrtResultWithLink" , you can find this from Automation Help.
Here is my code, you can take a look
Public Sub CATMain()
Dim part_a...