vba - Move data from MS Word to Excel -

-

i have microsoft word document 400 multiple choice test questions. need put text microsoft excel chart , thought alot easier if able have macro allowed me select text began a. , ends section @ first paragraph object after a..

i tried getting , told use below macro macro not anything. want macro select text only. if in microsoft word manually, hold down ctrl , highlight text begins a. , ends @ first paragraph object. 

 sub aselection() ' ' aselection macro '  dim pgh paragraph each pgh in thisdocument.paragraphs pgh if left(.range.text, 2) = "a." , left(right(.range.text, 3), 2) = "a." debug.print .range.text end if end next  end sub

thisdocument typically refers template document containing executing code. use activedocument instead.

also @assylias said in comment, debug.print code debugging purposes. replace entire line .range.select.

this should work:

sub aselection()      dim o object     dim pgh paragraph      set o = createobject("excel.application")     o.workbooks.open ("e:\aashay data\projects\excel\carton\screen printing.xlsx")     o.activeworkbook.worksheets.add.name = "x"     o.activeworkbook.worksheets("x").activate       each pgh in activedocument.paragraphs         o.activeworkbook.worksheets("x")             debug.print pgh.range.text             if left(pgh.range.text, 2) = "a." , left(right(pgh.range.text, 3), 2) = "a."                 .cells(i, 2).value = pgh.range.text                 = + 1             end if         end     next     o.quit  end sub


edit: after reviewing , testing lorem ipsum text, realised word vba not allow select multiple discontinuous segments (see ms support article kb288424 more). suppose easiest way export excel debug.print , have edited code accordingly.


Comments

Post a Comment

Popular posts from this blog

django - How can I change user group without delete record -

-
on website user have 1 group. , user can change group. it's made user.groups.clear() and user.groups.add(new_group) but it's not efficient, because there 2 sql query: delete, insert. how can change group update query? user , group related each other using manytomanyfield . means intersection table exists relating both entities, , if don't specify model map (using through attribute) django creates 1 you. looking @ sources django.contrib.auth.models see that's case. fortunatly, can access intermediary model using through attribute of manager (in case, user.groups.through ). can use regular model. example: >>> alice = user.objects.create_user('alice', 'alice@example.com', 'alicepw') >>> employee = group.objects.create(name='employee') >>> manager = group.objects.create(name='manager') >>> alice.groups.add(employee) >>> alice.groups.all() [<group: employee...
Read more

java - Need to add SOAP security token -

-
i need set custom soap header attribute on jax-ws generated webservice client. case webservice calls must go through proxy server requiring specific token (recieved web request header) present in soap request header. e.g.: 1 carserviceservice service = null; 2 service = new carserviceservice(new url(url), new qname(qname); 3 carserviceendpoint port = service.getcarserviceport(); it seems in line 3 wsdl retrieved , call fails due missing security token. 1 point direction on how done? a detailed example has been mentioned here: creating , deploying jax-ws web service on tomcat 6 this article shows how create , use security token .
Read more

java - EclipseLink JPA Object is not a known entity type -

-
i have strange problem eclipselink , object want persist. have 1 object (keypointlistimpl) stores object keypointimpl in list. persisting keypointimpl objects works great if try persist keypointlistimpl object java.lang.illegalargumentexception says object keypointimpl isn't known entity type. here keypointimpl code: @entity @table(name="keypoints") public class keypointimpl implements keypoint { @id @generatedvalue(strategy = generationtype.identity) private int id; @enumerated(enumtype.string) private detectortype keypointtype; private float x; private float y; private float size; private float angle; private float response; private int octave; private int classid; ... } here keypointlistimpl code: @entity @table(name="keypointlists") public class keypointlistimpl implements keypointlist { @id @generatedvalue(strategy = generationtype.identity) private int id; @onetoone(cascade={ca...
Read more