Tekst coordinaten opvragen

[mvissche]

Hallo,
Ik wil een selectie maken , teksten hieruit filteren en dan de insertionpunten van de teksten opvragen, Weet iemand hoe dit aan te pakken?

Alvast bedankt.

[skylar]

Hallo,
Ik wil een selectie maken , teksten hieruit filteren en dan de insertionpunten van de teksten opvragen, Weet iemand hoe dit aan te pakken?

Alvast bedankt.

zoiets ongeveer

ssetobj = thisdrawing.selectionssets.add("selectie")
ssetobj.selectonscreen
for telssetobj = 0 to ssetobj.count -1
  if vba.lcase(ssetobj(telssetobj).objectname) = "acdbtext" then
    inspnt = ssetobj(telssetobj).insertionpoint
    msgbox "het insertionpoint is " & inspnt(0) & " " & inspnt(1) & " " & inspnt(2)
  end if
next

for telselections = 0 to thisdrawing.selectionssets.count -1
    thisdrawing.selectionsets(0).delete
next

[mvissche]

Het werkt.
Dank je wel.