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

c - Unrecognised emulation mode: elf_i386 on MinGW32 -

-
i'm trying make kernel, , cannot link c output assembly. ld . i'm getting error: unrecognized emulation mode: elf_i386 i'm using windows 10 professional mingw32 , msys. code using: link.ld /* * link.ld */ output_format(elf32-i386) entry(start) sections { . = 0x100000; .text : { *(.text) } .data : { *(.data) } .bss : { *(.bss) } } kernel.c /* * kernel.c */ void kmain(void) { const char *str = "my first kernel"; char *vidptr = (char*)0xb8000; //video mem begins here. unsigned int = 0; unsigned int j = 0; /* loops clears screen * there 25 lines each of 80 columns; each element takes 2 bytes */ while(j < 80 * 25 * 2) { /* blank character */ vidptr[j] = ' '; /* attribute-byte - light grey on black screen */ vidptr[j+1] = 0x07; j = j + 2; } j = 0; /* loop writes string video memory */ while(str[j] != '\0') { /
Read more