VBA Multiple Word Tables to Excel - No Tables in Document -


i exported of tables large word document few months ago, computer went , lost vba had used...note ++ decided disappear , take files it.

so, have looked several different options out there pull tables word file excel.

every 1 try says there no tables in word file. have tried multiple files, same thing.

the other change in environment upgraded windows 10.

i have racked brain , cannot figure out why not seeing tables?

i can copy tables different word file:

sub copytables() dim source document dim target document dim tbl table dim tr range  set source = activedocument set target = documents.add  each tbl in source.tables     set tr = target.range     tr.collapse wdcollapseend     tr.formattedtext = tbl.range.formattedtext     tr.collapse wdcollapseend     tr.text = vbcrlf next end sub

and can find table number in word file:

sub findtablenumber() dim j integer dim itablenum integer dim otbl table  selection.bookmarks.add ("tempbm") j = 1 activedocument.tables.count     set otbl = activedocument.tables(j)     otbl.select     if selection.bookmarks.exists("tempbm")         itablenum = j         exit     end if next j activedocument.bookmarks("tempbm").select activedocument.bookmarks("tempbm").delete msgbox "the current table table " & itablenum end sub

this example of vba have tried, , received no tables in document:

option explicit  sub importwordtable()  dim wddoc object dim wdfilename variant dim tableno integer 'table number in word dim irow long 'row index in excel dim icol integer 'column index in excel dim resultrow long dim tablestart integer dim tabletot integer  on error resume next  activesheet.range("a:az").clearcontents  wdfilename = application.getopenfilename("word files (*.docx),*.docx", , _ "browse file containing table imported")  if wdfilename = false exit sub '(user cancelled import file browser)  set wddoc = getobject(wdfilename) 'open word file  wddoc     tableno = wddoc.tables.count     tabletot = wddoc.tables.count     if tableno = 0         msgbox "this document contains no tables", _         vbexclamation, "import word table"     elseif tableno > 1         tableno = inputbox("this word document contains " & tableno & "     tables." & vbcrlf & _         "enter table start from", "import word table", "1")     end if      resultrow = 4      tablestart = 1 tabletot         .tables(tablestart)             'copy cell contents word table cells excel cells             irow = 1 .rows.count                 icol = 1 .columns.count                     cells(resultrow, icol) = worksheetfunction.clean(.cell    (irow, icol).range.text)                 next icol                 resultrow = resultrow + 1             next irow         end         resultrow = resultrow + 1     next tablestart end  end sub


-

Comments

Post a Comment

Popular posts from this blog

unity3d - Rotate an object to face an opposite direction -

i have object , b. when click on object b, rotates object b (a faces b). b doesn't face a. need following : when faces b, need face opposite direction. have code rotating @ b. how rotate face opposite direction after that? vector3 targetdirection = target - transform.position; float step = speed * time.deltatime; vector3 newdirection = vector3.rotatetowards (turretdome.transform.forward, targetdirection, step, 0.0f); turretdome.transform.rotation = quaternion.lookrotation (newdirection); you object facing object b, want inverse direction of object after that? objecta.transform.rotation = quaternion.inverse(objecta.transform.rotation) but lets assume example turretdome object a, (negate direction): turretdome.transform.rotation = quaternion.lookrotation (-newdirection); naturally, both of these snippets not show how smoothen rotation, seem know how use time.deltatime. just incase unsure, quaternion.lerp this
Read more

angular - Is it possible to get native element for formControl? -

i've got angular2 reactive form . created formcontrol s , assigned input fields by [formcontrol]=... . understand creates nativeelement <-> formcontrol link. my question: possible nativeelement formcontrol ? wanna myformcontrol.nativeelement.focus() i can share 1 terrible solution works me. in reactive forms can use either 1) formcontroldirective ts mycontrol = new formcontrol('') template <input type="text" [formcontrol]="mycontrol"> or 2) formcontrolname ts myform: formgroup; constructor(private fb: formbuilder) {} ngoninit() { this.myform = this.fb.group({ foo: '' }); } template <form [formgroup]="myform"> <input type="text" formcontrolname="foo"> </form> so these directives write patch like 1) formcontroldirective const originformcontrolngonchanges = formcontroldirective.prototype.ngonchanges; formcontroldirective.proto
Read more

javascript - Why jQuery Select box change event is now working? -

i working on product filters user select select box according his/her preference not getting selected value user in jquery. html code:- <select name="product_filter" id="product_filter"> <option value="price_low_first">price : low high</option> <option value="price_high_first">price : high low</option> <option value="latest">latest</option> <option value="popular">most popular</option> </select> jquery code: $(function () { $("#product_filter").change(function () { alert("hi") var selectedtext = $(this).find("option:selected").text(); var selectedvalue = $(this).val(); alert("selected text: " + selectedtext + " value: " + selectedvalue); }); }); hi believe code perfect. once please check jquery.min.js
Read more