オブジェクト（ShapeRange）の名前VBA

Question

こんにちは私は問題があります。

私は「* .docxの」文書の複数に取り組んでいます

彼らは同様の特性を持っており、それらのそれぞれは、いくつかのオブジェクト（他のドキュメント）

問題私が持って開く必要がある特定のオブジェクトを持っています異なる文書で異なる名前：

「オブジェクト17」、「オブジェクト27」など

だから、イムないこのコードでそれを自動化することができ：

With wd 

.Activedocument.Shapes("Object 17").Select 

.Selection.ShapeRange(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary 

.Selection.WholeStory 

.Selection.Copy 

End With 

ポイントは、すべてのドキュメントでこのオブジェクトは同じ "名前"を持っていることです。 "ASF_Debtor"ですが、コードレベルからは "オブジェクト17"、 "オブジェクト28"などです

どういうわけか私の適切なオブジェクトを見つけることができますか？

Answer 1

それが機能するようになりましたように見えます：

Dim obj as shape 

For Each obj In ActiveDocument.Shapes 

ActiveDocument.Shapes.Range(i).Select 


Debug.Print Selection.ShapeRange.Name 

Debug.Print Selection.ShapeRange(1).OLEFormat.IconLabel 


If Selection.ShapeRange(1).OLEFormat.IconLabel = "ASF_DebtorID" Then 

    Selection.ShapeRange(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary 

    Selection.WholeStory 

    Selection.Copy 

end if 

i = i + 1 

next