ms access - vba ".find" stopped working -


currently code runs no error message not make requested replacement:

private sub testingbutton_click()      dim rngfound range     dim filetoprocess word.document     dim wordinstance object      set wordinstance = createobject("word.application") 'for these tests close word first.     set filetoprocess = wordinstance.documents.open("c:\sarah\junk\attach.doc")     wordinstance.activedocument.range.select 'gets whole document     toolbox.setupfind (wordinstance.activedocument.range)     wordinstance.activedocument.range.find         .text = "rock"         .replacement.text = "found it!"         .execute     end  end sub

in toolbox module:

 public function setupfind(byref rngpassed word.range)     rngpassed.find       .clearformatting       .replacement.clearformatting       .text = ""       .replacement.text = ""       .forward = true       .wrap = wdfindcontinue       .format = false       .matchcase = false       .matchwholeword = false       .matchwildcards = false       .matchsoundslike = false       .matchallwordforms = false       .execute     end  end function

the code above test database created troubleshooting. destination access form purpose extract information set of documents, , place information in database. working fine. stopped working after particularly spectacular crash. tried remove label while form in break mode. (i know,... deep regret) couldn't close access ctrl-break. wierdest part similar code no longer works in back-up copies of database either.

here things i've tried haven't worked:

re-import objects new database.similarly, rebuild backend database. break form's code (a couple thousand lines) modules. copy code notepad, save it, create button in new empty database. recreate subs & functions typing, once exist, paste in code wordpad. reset form's references, include msword. make brand new form in new database 1 button has displayed code. use defined range: started when got persistent error in rngtosearch.find.execute findtext:="reason". error highlighted .find , said 'argument not optional.' among other things, switched selection rather defined range in attempts isolate problem. working range rather selection need end again.

possibly relevant observations:

other forms in same database lots of backend code work fine. other routines in same form. 1 document open. far can tell, there's nothing unusual document. have tried multiple documents. text find exists in document, outside of table.

things have worked, might clues: in word straight up, no code, no nothing, use 'find' select targeted word. wordinstance.activedocument.range.text = replace(wordinstance.activedocument.range.text, "rock", "found it!"). trouble is, need again way more complex replace can handle.

specify scope replacement(s). code worked me access 2010 change in testingbutton_click() ...

'.execute .execute replace:=wdreplaceall

toolbox.setupfind calls .execute. since find , replacement text both empty strings @ point , no scope specified, .execute doesn't cause harm ... doesn't seem useful either.


Comments

Post a Comment

Popular posts from this blog

routing - AngularJS State management ->load multiple states in one page -

Image
i developing site in angularjs ui-router. have situation on button click need change , load 3 state page , 3 looks image .please me how can load multiple pages. in 1 page you need configure router config this: $stateprovider .state("state1", { url: "/url1", controller: "firstcontroller", views: { view1: { templateurl: "templates/template1.html" }, view2: { templateurl: "templates/template2.html" }, view3: { templateurl: "templates/template3.html" } } }).state("state2", { url: "/url2", controller: "secondcontroller", views: { view1: { templateurl: "templates/template4.html" }, view2: { templateurl: "templates/template5.html" }, view3: { templateurl: "templates/template6.html" } }).state("state3", { ...
Read more

python - GRASS parser() error -

i'm trying use grass on python 2.7, i'm having problems @ setting script on idle, i'm getting error @ parser() function: here script: import os import sys gisbase = os.environ['gisbase'] = 'c:\program files (x86)\grass gis 7.0.1rc1' gisrc = 'c:\grassdata' gisdbase = 'c:\grassdata' location = 'newlocation' mapset = 'tc' ld_library_path = 'c:\program files (x86)\grass gis 7.0.1rc1\lib' path = 'c:\program files (x86)\grass gis 7.0.1rc1\etc';'c:\program files (x86)\grass gis 7.0.1rc1\etc\python';'c:\program files (x86)\grass gis 7.0.1rc1\lib';'c:\program files (x86)\grass gis 7.0.1rc1\bin';'c:\python27';'c:\program files (x86)\grass gis 7.0.1rc1\python27';'c:\program files (x86)\grass gis 7.0.1rc1\msys' pythonlib = 'c:\python27' pythonpath = 'c:\program files (x86)\grass gis 7.0.1rc1\etc\python' sys.path.append(os.path.join(os.environ['...
Read more

Swift game error message -

i following ios game tutorial. cannot figure out wrong here. error on these 2 lines. let newangle = percent * 180 - 180 cannon.zrotation = cgfloat(newangle) * cgfloat(m_pi); 180.0 //error "use of unresolved identifier 'percent'" the tutorial uses: cannon.zrotation = cgfloat(newangle) * cgfloat(m_pi)/ 180.0 but changed error suggested import spritekit class gamescene: skscene { var cannon: skspritenode! var touchlocation:cgpoint = cgpointzero override func didmovetoview(view: skview) { /* setup scene here */ cannon = self.childnodewithname("cannon") as! skspritenode } override func touchesbegan(touches: set<uitouch>, withevent event: uievent?) { /* called when touch begins */ touchlocation = touches.first!.locationinnode(self) } override func touchesmoved(touches: set<uitouch>, withevent event: uievent?) { touchlocation = touches.first!.locationinn...
Read more