Citaat van: mvissche op do 03 05 2007, 12:07:33
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
Het werkt.
Dank je wel.