vba - convert .rtf tables to text (comma delimeted) then paste into an excel document -


i have used macro runs through each cell in word table , pastes excel, 1 of documents has 96 pages , take literally 40 mins copy spreadsheet. have found faster if tables converted text (comma delimited) saved .txt file, imported spreadsheet, cannot figure out how write macro or vbscript @ once. ideas??

private sub importwordtable()  dim wddoc object dim wdfilename variant dim tableno integer dim irow long dim icol integer dim resultrow long dim tablestart integer dim tabletot integer  on error resume next  application.screenupdating = false  activesheet.range("a:az").clearcontents  wdfilename = application.getopenfilename("word files (*doc),*.doc", , _ "browse file containing table imported")  if wdfilename = "" exit sub  set wddoc = getobject(wdfilename)   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 = 1      end if      resultrow = 1      tablestart = 1 tabletot         .tables(tablestart)               irow = 1 .rows.count                 icol = 1 .columns.count                    cells(resultrow, icol) = worksheetfunction.clean(.cell(irow, icol).range.text)                     cells(resultrow) = worksheetfunction.clean(.cell(irow).range.text)                 next icol                 resultrow = resultrow + 1             next irow         end         resultrow = resultrow + 1     next tablestart end  set wddoc = nothing  end sub

try this...

sub importwordtable()  dim wddoc object dim wdfilename variant dim tableno integer dim irow long dim icol integer dim resultrow long dim tablestart integer dim tabletot integer  application.screenupdating = false activesheet.range("a:az").clearcontents  wdfilename = application.getopenfilename("word files (*doc),*.doc", , _             "browse file containing table imported")  if wdfilename = "" exit sub set wddoc = getobject(wdfilename)  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 = 1     end if      tablestart = 1 tabletot         application.statusbar = "processing " & tablestart & "of (" & tabletot & ") tables"         .tables(tablestart).range.copy         resultrow = range("a" & rows.count).end(xlup).offset(2).row         doevents         on error resume next         range("a" & resultrow).pastespecial xlpastevalues         on error goto 0     next tablestart end  set wddoc = nothing application.statusbar = ""  application.screenupdating = true  end sub

Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj...
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer ...
Read more

c# - Asp.net web api : redirect unauthorized requst to forbidden page -

im trying redirect unauthorized request forbidden page instead i'm getting forbidden page in response body , how can fix ? here's startup class : app.createperowincontext(storecontext.create); app.createperowincontext<applicationusermanager>(applicationusermanager.create); app.createperowincontext<applicationsigninmanager>(applicationsigninmanager.create); app.usecookieauthentication(new cookieauthenticationoptions { authenticationtype = defaultauthenticationtypes.applicationcookie, expiretimespan = timespan.fromdays(30), }); app.useexternalsignincookie(defaultauthenticationtypes.externalcookie); app.usetwofactorsignincookie(defaultauthenticationtypes.twofactorcookie, timespan.fromminutes(5)); app.usetwofactorrememberbrowsercookie(defaultauthenticationtypes.twofactorrememberbrowsercookie); the method im trying reach : [httpget] [authorize(roles = "admin")] public string getcurrentusername() { return userman...
Read more