内容的にはｼｮﾎﾞｲのですが、実績が少ないのでInternalNameの ﾃｽﾄを行いました。まずはこんな感じのﾃﾞｰﾀを作りました。 点を5個作成しただけです。 続いてこんなｺｰﾄﾞを作成し実行します。 'vba Sub InternalName_Test() Dim Doc As PartDocument Set Doc = CAT…