Search for a certain style in word 2010 and make it into a bookmark using vba -

-

how make style bookmark in word 2010?

enter image description here

you won't able use of text in document bookmark name. illegal use characters in bookmark name in word/vba. may possible add such characters in bookmark names in xml format of document, if required, can ask separate question.

this feels way code post on so. need explain framework have in place , tell hurdles are. can't again. "works me". if have questions though don't hesitate ask.

run "runme" macro @ bottom.

private function isparagraphstyledwithheading(para paragraph) boolean     dim flag boolean: flag = false     if instr(1, para.style, "heading", vbtextcompare) > 0         flag = true     end if     isparagraphstyledwithheading = flag end function  private function gettextrangeofstyledparagraph(para paragraph) string     dim textofrange string: textofrange = para.range.text     gettextrangeofstyledparagraph = textofrange end function  private function bookmarknamealreadyexist(bookmarkname string) boolean     dim bookmark bookmark     dim flag boolean: flag = false     each bookmark in activedocument.bookmarks         if bookmarkname = bookmark.name             flag = true         end if     next     bookmarknamealreadyexist = flag end function  private function createuniquebookmarkname(bookmarkname string)     dim uniquebookmarkname string     dim guid string: guid = mid$(createobject("scriptlet.typelib").guid, 2, 36)     guid = replace(guid, "-", "", , , vbtextcompare)     uniquebookmarkname = bookmarkname & guid     createuniquebookmarkname = uniquebookmarkname end function  private function bookmarkit(rng range, bookmarkname string)     dim cleanname string: cleanname = makevalidbmname(bookmarkname)     if bookmarknamealreadyexist(cleanname)         cleanname = createuniquebookmarkname(cleanname)     end if     activedocument.bookmarks.add name:=cleanname, range:=rng end function  ''shamelessly stolen gmaxey @ http://www.vbaexpress.com/forum/showthread.php?t=37674 private function makevalidbmname(strin string)     dim pfirstchr string     dim long     dim tempstr string     strin = trim(strin)     pfirstchr = left(strin, 1)     if not pfirstchr "[a-za-z]"         strin = "a_" & strin     end if     = 1 len(strin)         select case asc(mid$(strin, i, 1))         case 49 58, 65 90, 97 122             tempstr = tempstr & mid$(strin, i, 1)         case else             tempstr = tempstr & "_"         end select     next     tempstr = replace(tempstr, "  ", " ")     makevalidbmname = tempstr end function  sub runme()     dim para paragraph     dim textofpara string     each para in activedocument.paragraphs         if isparagraphstyledwithheading(para)             textofpara = gettextrangeofstyledparagraph(para)             if para.range.bookmarks.count < 1                 bookmarkit para.range, textofpara             end if         end if     next end sub

Comments

Post a Comment

Popular posts from this blog

c# - SVN Error : "svnadmin: E205000: Too many arguments" -

-
i trying reposotries using c# code process svncommand = null; var psi = new processstartinfo("svnadmin"); psi.redirectstandardoutput = true; psi.redirectstandarderror = true; psi.useshellexecute = false; psi.arguments= @"dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump"; using (svncommand = process.start(psi)) { var myoutput = svncommand.standardoutput; var myerror = svncommand.standarderror; debug.write("output :" + environment.newline + environment.newline + myoutput.readtoend() + environment.newline + "error :" + environment.newline + environment.newline + myerror.readtoend()); svncommand.close(); } when use dump command commandline svnadmin dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump it works fine when try ...
Read more

c++ - Using OpenSSL in a multi-threaded application -

-
i have been writing soap client application in c++ on ubuntu using openssl https transport , pthreads threading. have number of threads - 1 central data acquisition thread periodically gets worker threads make soap requests via shared mutex protected queues. reading documentation openssl found is openssl thread-safe? in openssl faq describes mechanisms required ensure thread safety when using openssl. implemented , works fine. the reason question conceptual difficulty really. thinking implementing same functionality application has already, instead of using threads, create 2 seperate applications : 1 worker thread (of multiple copies running) , main data acquisition thread. use tcp sockets communicate between 2 rather mutex protected queues. may bad idea not important - confusing me would have implement same functions required ensure openssl thread safety in second approach or not? my guess not have , treated independent (indeed surely must many applications use openssl) re...
Read more

All overlapping substrings matching a java regex -

-
is there api method returns (possibly overlapping) substrings match regular expression? for example, have text string: string t = 04/31 412-555-1235; , , have pattern: pattern p = new pattern("\\d\\d+"); matches strings of 2 or more characters. the matches are: 04, 31, 412, 555, 1235. how overlapping matches? i want code return: 04, 31, 41, 412, 12, 55, 555, 55, 12, 123, 1235, 23, 235, 35. theoretically should possible -- there obvious o(n^2) algorithm enumerates , checks substrings against pattern. edit rather enumerating substrings, safer use region(int start, int end) method in matcher . checking pattern against separate, extracted substring might change result of match (e.g. if there non-capturing group or word boundary check @ start/end of pattern). edit 2 actually, it's unclear whether region() expect zero-width matches. specification vague, , experiments yield disappointing results. for example: string line = "xx90xx"; strin...
Read more