Splitting an MS Word File using Excel VBA - referencing section ranges -


hopefully quick one.

i through macro splitting word file (merged file of letters) individual pdfs , naming them based on ref number included in file.

 'start split each sec in activedocument.sections      set rng = sec.range  'range of section     sectext = sec.range.text 'all text within section     sectextposition = instr(sectext, "our ref: ")  'position of "out ref: " within section     strcdrs = mid(sectext, (sectextposition + 9), 16)  'retrieved cdrs reference      if sec.index < activedocument.sections.count         rng.moveend wdcharacter, -1 'drop trailing section break     end if         rng.exportasfixedformat strfolder & "\" & replace(strcdrs, "/", "-") & "-" & strlettertype & ".pdf", wdexportformatpdf      set rng = nothing next sec

this works when embedded in word file. however, when embedding in excel file , referencing document, type mismatch on the:

        set rng = sec.range  'range of section

look @ value of sec.range, looks fine, appears rng range object. missing obvious?

full draft code follows:

sub splitexport() dim sec section dim rng range dim strsplitfile string dim strcdrs string dim strlettertype string dim strfolder string dim sectext string dim sectextposition long dim strfldr filedialog dim strfile filedialog dim wordfile word.document  'set word application   set wordapp = createobject("word.application")  'pick file split  set strfile = application.filedialog(msofiledialogfilepicker) strfile     .title = "select file split"     .allowmultiselect = false     .show     strsplitfile = .selecteditems(1)     end  'check if file selected if strsplitfile = ""     msgbox "cannot proceed without file selection", vbokonly + vbcritical, "error"     exit sub end if  'set letter type string strlettertype = inputbox("please enter letter code...") if strlettertype = ""     msgbox "cannot proceed without letter code", vbokonly + vbcritical, "error"     exit sub end if  'set folder save pdfs  set strfldr = application.filedialog(msofiledialogfolderpicker) strfldr     .title = "select folder save split files"     .allowmultiselect = false     .show     strfolder = .selecteditems(1) end  'check folder selected if strfolder = ""     msgbox "cannot proceed without folder selection", vbokonly + vbcritical, "error"     exit sub end if  'open file split set wordfile = wordapp.documents.open(strsplitfile) wordfile.activate  'start split each sec in activedocument.sections      set rng = sec.range  'range of section     sectext = sec.range.text 'all text within section     sectextposition = instr(sectext, "our ref: ")  'position of "out ref: " within section     strcdrs = mid(sectext, (sectextposition + 9), 16)  'retrieved reference      if sec.index < activedocument.sections.count         rng.moveend wdcharacter, -1 'drop trailing section break     end if         rng.exportasfixedformat strfolder & "\" & replace(strcdrs, "/", "-") & "-" & strlettertype & ".pdf", wdexportformatpdf      set rng = nothing next sec

end sub

apologies wasting anyone's time reading - haven't changed reference section word.section, etc.

i leave testament muppetry.


Comments

Post a Comment

Popular posts from this blog

resizing Telegram inline keyboard -

telegram's inline keyboard great feature lots of different use cases. inline buttons added list of items this: inline_keyboard = [[inlinekeyboardbutton(text="button", callback_data="button"), inlinekeyboardbutton(text="reset",callback_data="reset")]] inline_keyboard_markup = inlinekeyboardmarkup(inline_keyboard) update.message.reply_text("hi", reply_markup=inline_keyboard_markup) the above code adds 2 buttons each half width of chat screen. i know the normal keyboard button there resize_keyboard parameter somehow can used. my question is there way resize inline buttons ? example make full width or quarter width. unfortunately, can't now. :( you can suggest @botsupport , might add feature next version.
Read more

command line - How can a Python program background itself? -

consider following python command-line program. doesn't work because incomplete, think illustrates problem: #!/usr/bin/python3 import multiprocessing pool = multiprocessing.pool() task in expensive_iterator_with_user_interaction(): pool.call_async(expensive_computation, (task,)) pool.close() print("dear user, may press ctrl-z , bg script.") pool.join() thus, problem scripts needs user input while it's launching expensive parallel processes. there moment when user interaction not needed anymore. then, ask user background process shell actions. however, can achieved program itself? (side note: core of problem entanglement of user input firing “expensive computations”. therefore, cannot separate both in 2 scripts, , letting 1 spawning other daemon.) the command screen may you. use screen -l create new session , run application. after inputting data, can press " ctrl-a " , press " d " on keyboard detach session. now...
Read more

php - "cURL error 28: Resolving timed out" on Wordpress on Azure App Service on Linux -

Image
my wordpress installation on azure app service on linux using custom docker container has slow response times. pages take around 20-40 seconds load. i have troubleshooting plugin installed indicates problem "curl error 28: resolving timed out after n milliseconds" when making requests following urls https://api.wordpress.org/core/version-check/1.7/ http://api.wordpress.org/core/version-check/1.7/ https://api.wordpress.org/plugins/update-check/1.1/ http://api.wordpress.org/plugins/update-check/1.1/ https://api.wordpress.org/themes/update-check/1.1/ http://api.wordpress.org/themes/update-check/1.1/ curl works fine on scm-site command line. example works ok. curl -x post http://api.wordpress.org/core/version-check/1.7/ edit if ssh container , run php code, works fine. <?php $url = 'http://api.wordpress.org/core/version-check/1.7/'; $fields = array( 'version' => urlencode('4.8.1'), 'php' => urlencode(...
Read more