ms word - VBA code to search for text and stop at next occurrence including footnotes, headers etc -

-

i trying write code search through stories including headers, footers, footnotes etc , stop @ each occurrence user can make decision (it may or may not change), click button again move next occurrence (like word's find next). aware there pretty tricky code performing search , replace using range object , have code working part if project, can't make search , stop @ selected text, carry on looking in different storeies, stops @ end of main document. code below looks though should work if footnote example has text searched for, ignoring it. have done thorough search of site , others , have found several examples search , replace, none search , stop/select. advice gratefully received - thank you.

sub testselection()

dim rngstory range dim docdocument document  set docdocument = activedocument  docdocument     each rngstory in .storyranges        select case rngstory.storytype             case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11                 debug.print rngstory.storytype                  selection.find                 .clearformatting                     .text = "xyz"                     .replacement.text = ""                     .forward = true                     .wrap = wdfindstop                     .format = true                     .matchcase = false                     .matchwholeword = false                     .matchwildcards = false                     .matchsoundslike = false                     .matchallwordforms = false                 end                 selection.find.execute                      if selection.find.found = true                         exit sub                     end if                  end select      next rngstory end

end sub

whether problem in case don't know, while loop iterates on ranges returned storyranges, not process entire document. includes first part of each story. (so, example, if there several sections in document, include header & footer first section).

you need use nextstoryrange method in order access entire story. in vba example loop construct. (it's horrible api - bad range.find!).

also, aware executing search change selection, selection.find searching in last result, rather entire range.


Comments

Post a Comment

Popular posts from this blog

java - Run spring boot application error: Cannot instantiate interface org.springframework.context.ApplicationListener -

-
i have spring project , try make use spring boot , run @ embadded tomcat following : https://spring.io/guides/gs/rest-service/ this application //@configuration //@enableaspectjautoproxy @springbootapplication @componentscan(basepackages = "gux.prome") public class application { public static void main(string[] args) { springapplication.run(application.class, args); } } if use maven command: mvn spring-boot:run , project starts fine, need debug , run main method @ intelij, exception occurs: exception in thread "main" java.lang.illegalargumentexception: cannot instantiate interface org.springframework.context.applicationlistener : org.springframework.boot.logging.classpathloggingapplicationlistener @ org.springframework.boot.springapplication.createspringfactoriesinstances(springapplication.java:414) @ org.springframework.boot.springapplication.getspringfactoriesinstances(springapplication.java:394) @ org.springframework.bo...
Read more

python - pip wont install .WHL files -

-
when try install .whl gohike typing cmd c:\users\owner\downloads>pip install ta_lib-0.4.9-cp27-none-win_amd64.whl i print out: `processing c:\users\owner\downloads\ta_lib-0.4.9-cp27-none-win_amd64.whl complete output command python setup.py egg_info: traceback <most recent call last>: file "<string>", line 1, in <module> ioerror: [errno 2] no such file or directory:'c:\\users\\owner\\appdata\\lo cal\\temp\\pip-9gwk2c-build\\setup.py' ----------------------------------------- command "python setup.py egg_info" failed error code 1 in c:\users\owner\ap pdata\local\temp\pip-9gwk2c-build\` the part between pip- , -build in pip-9gwk2c-build different on same file. i asked python 2.7.11 pip 8.0.3 can't install gohike whl of ta-lib 0.4.9 few days ago , decided ask differently. can me! you have outdated pip not understand wheels. wheels not supposed have setup.py inside. try upgrading pip pip in...
Read more

Excel VBA "Microsoft Windows Common Controls 6.0 (SP6)" Location Changes -

-
i have excel workbook used generate quotations customers. there main page user inputs data, , there buttons generate various pdfs , send them customer. however, 1 user consistently getting error preventing generating , sending pdfs. i beleive "microsoft windows common controls 6.0 (sp6)". it's installed on users' computers. on mine, location "c:\windows\syswow64\mscomctl.ocx" on others "c:\windows\system32\mscomctl.ocx" the user experiencing issues on 32-bit machine, "mscomctl.ocx" file should in system32. have manually put in there, , pointed common controls reference in vba it. issue seems keep reverting looking in syswow64. since folder doesn't exist, can't find it, , can't produce pdfs. i thought perhaps issue user running older version of office (2007) there users on 2013 , 2016. thought perhaps mixture of 64-bit , 32-bit users. user gets sent workbook other users (as quotation process goes further, gets passed ...
Read more