VBA Word.Selection.Copy not working correctly -

-

i have problem can't seem wrap head around. i'm trying populate userform using shapes (images) word-document. use code so:

ishapecount = wrddoc.shapes.count = 0  if ishapecount > 0      redim opic(ishapecount - 1) ipicturedisp          each wrdshape in wrddoc.shapes             wrdshape                 wrddoc.activate                 .select                 wrdappmain.activedocument.activewindow.selection.copy                 set opic(i) = pastepicture(lpictype)         end          = + 1          next wrdshape  end if

with opic being one-dimentional array of pictures , pastepicture being subroutine copied image off of clipboard , array image-file.

so far good.

this works should, there more 2 shapes (images) present in word-document, copy-command copies first 2 charm, other ones (although correctly selected) not copied copy-command copying literally nothing.

another funny thing: if leave out wrdappmain.activedocument.activewindow.selection.copy-thingy , manually ctrl-c shape selected programm goes through loop, works no matter how many shapes there in word-document.

so see: i'm @ end of rope here. please :)

thank in advance!

why don't give shape opic-array?

ishapecount = wrddoc.shapes.count  if ishapecount > 0      redim opic(ishapecount - 1) ipicturedisp      = 0 (ishapecount -1)         each wrdshape in wrddoc.shapes             opic(i) = wrdshape         next wrdshape     next  end if

opic declared variant.


Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5); ...
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:...
Read more