vba - Hyperlinked text in Word footers to a selected bookmark -


i wanted custom footer in documents hyperlinked text bookmark in same document. i.e. 'top of document' kind of link in footers. had collect information on places achieve much. , wanted share here others not have fight thing @ once.

so far question & suggestions stackoverflow , other sites, have achieved much-

  • created macro create bookmark automatically, of selected text in document.
  • bookmark re-created (delete , create) if present
  • macro add new footer page number , text delimiter (i.e. / hit overview).

now want create text in footer hyperlink bookmark. code simple. guess doing wrong, tried creating hyperlink object. not working. please suggest something.

here macro function-

        sub insertfootnote()         const wdalignpagenumbercenter = 1         dim varnumberpages variant         varnumberpages = activedocument.content.information(wdactiveendadjustedpagenumber)          ' delete bookmark if name         if activedocument.bookmarks.exists("hitoverviewmac") = true             activedocument.bookmarks("hitoverviewmac").delete         end if          ' create bookmark selected text         activedocument.bookmarks             .add range:=selection.range, name:="hitoverviewmac"             .defaultsorting = wdsortbyname             .showhidden = false         end         dim mhlink hyperlink         dim long         = 1 activedocument.sections.count             activedocument.sections(i)                 ' remove footer                 '.footers(wdheaderfooterprimary).range.text = ""                 '.footers(wdheaderfooterprimary).pagenumbers.add (wdalignpagenumbercenter)                 '.footers(wdheaderfooterprimary).range.insertbefore "hit overview / page "                 .footers(wdheaderfooterprimary).range.select                 selection                     if activedocument.bookmarks.exists("hitoverviewmac") = true                         .paragraphs(1).alignment = wdalignparagraphcenter                         .typetext text:="page "                         .fields.add range:=selection.range, type:=wdfieldempty, text:= _                             "page ", preserveformatting:=true                         .typetext text:=" of "                         .fields.add range:=selection.range, type:=wdfieldempty, text:= _                             "numpages ", preserveformatting:=true                         .endkey unit:=wdline                         .typetext text:=" ~ "                         activedocument.hyperlinks.add anchor:=.range, address:="", _                         subaddress:="hitoverview", screentip:="", texttodisplay:="hit overview"                     else                         msgbox "bookmark not exists"                     end if                 end             end         next          end sub

ok, wasn't problem macro(except below), problem couple of documents testing with. few mistakes missed - subaddress:="bookmark_name" , anchor:=selection.range.

so problem occurs if doc has text in footers. , removing footer first.

here code everyone's reference-

    sub insertfootnote()     const wdalignpagenumbercenter = 1     dim varnumberpages variant     varnumberpages = activedocument.content.information(wdactiveendadjustedpagenumber)     if activedocument.bookmarks.exists("hitoverviewmac") = true         activedocument.bookmarks("hitoverviewmac").delete     end if     activedocument.bookmarks         .add range:=selection.range, name:="hitoverviewmac"         .defaultsorting = wdsortbyname         .showhidden = false     end     dim mhlink hyperlink     dim long     = 1 activedocument.sections.count         activedocument.sections(i)             .footers(wdheaderfooterprimary).range.text = ""             .footers(wdheaderfooterprimary).pagenumbers.add (wdalignpagenumbercenter)             .footers(wdheaderfooterprimary).range.select             selection                 if activedocument.bookmarks.exists("hitoverviewmac") = true                     .paragraphs.alignment = wdalignparagraphcenter                     .typetext text:="page "                     .fields.add range:=selection.range, type:=wdfieldempty, text:= _                         "page ", preserveformatting:=true                     .typetext text:=" of "                     .fields.add range:=selection.range, type:=wdfieldempty, text:= _                         "numpages ", preserveformatting:=true                     .endkey unit:=wdline                     .typetext text:=" / "                     activedocument.hyperlinks.add anchor:=selection.range, address:="", _                     subaddress:="hitoverviewmac", screentip:="", texttodisplay:="hit overview"                 else                     msgbox "bookmark not exists"                 end if             end         end     next      end sub

-

Comments

Post a Comment

Popular posts from this blog

how to proxy from https to http with lighttpd -

i have internal site (192.168.2.1) accessible http on different server run public web-server using lighttpd. can make internal site accessible outside work follows $http["host"] == "internal.example.com" { ... proxy.server = ( "" => ( "internal" => ( "host" => "192.168.2.1", "port" => 8000 ) ) } this works, use https outside world. question is, how can proxy going https http ? i've tried this: $server["socket"] == ":443" { $http["host"] == "internal.example.com" { ... proxy.server = ( "" => ( "internal" => ( "host" => "http://192.168.2.1", "port" => 8000 ) ) } } but doesn't seem wor...
Read more

android - Automated my builds -

i have multiple app , android project want automated in build , release sequence. have ant script build , create apk of app. want have 1 script or ant file start build sequence app. maybe don't konw search, can't find easy documentation on ant. the point of use jenkins ant (or maven, i'm not sure of difference between them now) automated build sequence when people commit on project. any int appreciated maven dependencies (over ant) don't need pass around jars. recommend maven on ant day. syntax , overall process easier understand, @ end of both build tools. if able to, more recommend upgrading gradle. easy create different build types , create them ./gradlew assemble here project jake wharton can see power of gradle. there release , debug build, can make lot more if like. https://github.com/jakewharton/u2020 here android docs gradle http://tools.android.com/tech-docs/new-build-system/user-guide . if can't find looking here, check out main grad...
Read more

python - Flask migration error -

i've got application build on flask , wanted create new migration today. when run $python manage.py db upgrade i got message raise util.commanderror('only single head supported. ' alembic.util.commanderror: single head supported. script directory has multiple heads (due branching), must resolved manually editing revision files form linear sequence. run alembic branches see divergence(s). so run command $alembic branches no config file 'alembic.ini' found, or file has no '[alembic]' section any clue on about? the error messages coming alembic, use command form alembic <command> , integrating flask coming flask-migrate, need use form python manage.py db branches . to resolve multiple branches, make 1 of branches point down other branch upgrade graph straight line. see alembic's docs on branches: http://alembic.readthedocs.org/en/latest/branches.html
Read more