VBA多个搜索和选择

Question

您好我试图在Excel中创建一个VBA脚本，它将在catia图中搜索多个部件名称并选择它们。

示例catia有3个部分，名称为“Tool”“Bucket”“Wheel”，我想搜索并选择“Tool”和“Wheel”我有脚本可以搜索其中一个但找不到如何搜索并选择下一个而不会丢失第一个选择。  请帮助我的脚本看起来像

Private Sub CommandButton1_Click()

 Set CATIA = GetObject(, "CATIA.Application")

 Set partDocument1 = CATIA.ActiveDocument

 Set selection1 = partDocument1.Selection

 selection1.Search ("NameInGraph=*Tool*,sel")

 End Sub