Bad File Name when using Excel to find words in a Word Document -

-

i'm using code below loop through data on excel spreadsheet , open word document. want cycle through word document , find of words on excel sheet. works okay until try , find words on excel sheet , "bad file name" message. i've highlighted line below error occurs. i'm sure syntax error, don't know correct syntax is. help.......

    dim mydb() string     dim mycol() string     dim mydbcnt integer     dim mycolcnt integer     dim dbcnt integer     dim resrow integer     dim r integer     dim x integer     dim prevrow integer     resrow = 1     r = 5     x = 1     prevrow = 4      until len(trim(cells(r, 4))) + len(trim(cells(r, 5))) = 0         doevents         redim preserve mydb(1 x)         if (trim(cells(r, 4)) & "." & trim(cells(r, 5))) = (trim(cells(prevrow, 4)) & "." & trim(cells(prevrow, 5))) '           nothing         else             mydb(x) = trim(cells(r, 4)) & "." & trim(cells(r, 5))             x = x + 1         end if          r = r + 1         prevrow = prevrow + 1     loop      x = x - 1     mydbcnt = x     r = 5     x = 1      until len(trim(cells(r, 4))) + len(trim(cells(r, 5))) = 0         doevents         redim preserve mycol(1 x)         mycol(x) = trim(cells(r, 6))         r = r + 1         x = x + 1      loop      x = x - 1     mycolcnt = x      worksheets("results").activate     mylastrow = cells.find("*", [a1], , , xlbyrows, xlprevious).row     resrow = mylastrow      set wordapp = createobject("word.application")     set worddoc = wordapp.documents.open("r:\report web\sql doc.docx")     wordapp.visible = true     worddoc.activate      tmp = worddoc.name     dim j integer      dbcnt = 1      wordapp.selection         until dbcnt > mydbcnt             doevents             documents(worddoc).find    ***error occurs here                 .text = mydb(dbcnt)                 j = 0                  while .execute(forward:=true) = true                     doevents                     j = j + 1                 loop             end              if j > 0                 msgbox mydb(dbcnt) & " found " & j & " times."             end if             dbcnt = dbcnt + 1         loop   end

find not valid property of document object. need use on either selection or range object. example:

dim rngfind word.range set rngfind = worddoc.content rngfind.find  end

Comments

Post a Comment

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

-
i have been playing around irb , have string looks this: irb(main):072:0> puts ["[\"4354 5432 5432 xxxxx\", \"6547 6547 8543 xxxxx\", \"2344 6543 6674 xxxxx\", \"2346 6236 7543 xxxxx\", \"1273 5585 5587 xxxxx\"]"] => nil irb(main):073:0> what want gsub last 2 "x" s of each 17 digit combination, 23 . what i've tried far (i've been using rubular): a.gsub(/\d[x]/,"23") <= grabs "x" s i'm close a.gsub(/\w[x{2}]/,"23") <= grabs "x" s grabs two digits each combination. is there easier way i'm not understanding? a.gsub(/\d{4} \d{4} \d{4} xxx\kxx/, '23') \d{4} = 4 digits what \k drop matched far. can use don't replace entire number, still able validate have in desired format.
Read more

jquery - Clone last and append item to closest class -

-
this bare-bones code on page: <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <di...
Read more

css - Can I use the :after pseudo-element on an input field? -

-
i trying use :after css pseudo-element on input field, not work. if use span , works ok. <style type="text/css"> .mystyle:after {content:url(smiley.gif);} .mystyle {color:red;} </style> this works (puts smiley after "buu!" , before "some more") <span class="mystyle">buuu!</span>a more this not work - colors somevalue in red, there no smiley. <input class="mystyle" type="text" value="somevalue"> what doing wrong? should use pseudo-selector? note: cannot add span around input , because being generated third-party control. :after , :before not supported in internet explorer 7 , under, on elements. it's not meant used on replaced elements such form elements (inputs) , image elements . in other words it's impossible pure css. however if using jquery can use $(".mystyle").after("add smiley here"); api docs on .after to ...
Read more