loops - Word Macro that would find and create hyperlink of simillar words -


so, code of macro (macro1):

sub macro1() ' ' macro1 macro '      selection.find.clearformatting      selection.find          .text = "req"          .replacement.text = ""          .forward = true          .wrap = wdfindcontinue          .format = false          .matchcase = true          .matchwholeword = false          .matchwildcards = false          .matchsoundslike = false          .matchallwordforms = false     end     selection.find.execute     selection.moveright unit:=wdcharacter, count:=8, extend:=wdextend     selection.copy     activedocument.hyperlinks.add anchor:=selection.range, address:= _     "http://www.neki.com/req12345678", subaddress:="", screentip:="", _     texttodisplay:="req12345678" end sub

the code works fine finding reqxxxxxxxx texts, pastes wrong texttodisplay , wrong ending of address. instead of req12345678 in both places should pastet same text copied before at: selection.copy. have no idea, how create loop or that, macro1 running until reaches end of document. me, please!

hey, solved 1st problem creating hyperlinks. have loop "hyperlink" macro. decided create macro, loop first one. here code:

sub macro2() ' ' macro2 macro '  until activedocument.bookmarks.exists("konec") application.run macroname:="macro1" loop end sub

macro1 works fine, can't figure out how loop until end of document - until ending bookmark...

i used following code link selected text similar text appears later in document.

sub macro1() ' ' macro1 macro ' '    selection.find          .text = selection          .replacement.text = ""          .forward = true          .wrap = wdfindcontinue          .format = false          .matchcase = true          .matchwholeword = true          .matchwildcards = true          .matchsoundslike = false          .matchallwordforms = false     end     selection.find.execute     activedocument.bookmarks         .add range:=selection.range, name:=selection         .defaultsorting = wdsortbyname         .showhidden = false     end       selection.find          .text = selection          .replacement.text = ""          .forward = false          .wrap = wdfindcontinue          .format = false          .matchcase = true          .matchwholeword = true          .matchwildcards = true          .matchsoundslike = false          .matchallwordforms = false     end     selection.find.execute     activedocument.hyperlinks.add anchor:=selection.range, address:="", _         subaddress:=selection, screentip:="", texttodisplay:=selection  end sub

Comments

Post a Comment

Popular posts from this blog

basic authentication with http post params android -

i doing basic authentication passing username , password , using basicnamevaluepair sending post params response service. my method: public stringbuilder callservicehttppost(string username, string password, string type) { // create new httpclient , post header httpclient httpclient = new defaulthttpclient(); httppost httppost = new httppost(webservice + type); httpresponse response = null; stringbuilder total = new stringbuilder(); try { url url = new url(webservice + type); /*string base64encodedcredentials = base64.encodetostring((username + ":" + password).getbytes(), base64.url_safe | base64.no_wrap);*/ string base64encodedcredentials = "basic " + base64.encodetostring( (username + ":" + password).getbytes(), base64.no_wrap); httppost.setheader("auth...
Read more

vb.net - Virtual Keyboard commands -

i wondering difference between virtual these keyboard commands is: keyeventf_extendedkey , keyeventf_keyup is. everywhere have looked gives me description based off integers , not want know each of them does. you've tagged question vb.net, these have nothing @ vb.net. they're constants defined in windows header files, use win32 api functions. as far difference, can't tell looking @ values. individual values not particularly important, that's why named identifiers used. what's important used , documentation functions tells mean. the first one, keyeventf_extendedkey , used keybdinput structure (which used along e.g. sendinput function) pass information synthesized keyboard input. if flag used, means scan code should interpreted extended key. technically, means scan code preceded prefix byte value 224 (&he0 in hexadecimal notation). the second one, keyeventf_keyup , 1 of flags available use structure. means key being released (going up)...
Read more

c++ - End of file on pipe magic during open -

i have c++ application in starting process(wireshark) following. if (fp == null){ fp = popen(processpath, "r"); //processpath process want start if (!fp){ throw std::invalid_argument("cannot start process"); } fprintf(fp, d_msg);//d_msg input want provide process } else if(fp != null){ fprintf(fp, d_msg); } the problem when execute c++ application, start wireshark error end of file on pipe magic during open what should avoid that? also tried using mkfifo create named pipe , execute it. used this: if (fp == null){ system("mkfifo /tmp/mine.pcap"); fp = popen("wireshark -k -i /tmp/mine.pcap", "r"); if (!fp){ dout << "cannot start wireshark"<<std::endl; throw std::invalid_argument("cannot start wireshark"); } input = fopen("/tmp/mine.pcap", "wb"); fprintf(input , d_msg); fclose(input)...
Read more