Prev: Disablings certain features for exams
Next: I do not want to see grammar checks for passive voice
From: Diona on 30 Apr 2010 09:56
We are working at doing some updates to chapter documents. As the web person,
I would like the Word documents to print out the hyperlinks. Is there a way
to do that as it usually just prints the words where the hyperlinks are
linked from as text. For example:

References: DR 3440-2 - Control and Protection of “Sensitive Security
Information”

The 'DR 3440-2' is hyperlinked to
http://www.ocio.usda.gov/directives/doc/DR3440-002.pdf but only prints as DR
3440-2 text. Is there a way to print the hyperlinks after the text like:
DR 3440-2 (http://www.ocio.usda.gov/directives/doc/DR3440-002.pdf)?

Thanks,
Diona
From: Pamelia Caswell via OfficeKB.com on 30 Apr 2010 10:07
Yes. Instead of hyperlinking to the document's publication number,
hyperlink to the address itself, pretty much as you've shown it.

Pam

Diona wrote:
>We are working at doing some updates to chapter documents. As the web person,
>I would like the Word documents to print out the hyperlinks. Is there a way
>to do that as it usually just prints the words where the hyperlinks are
>linked from as text. For example:
>
>References: DR 3440-2 - Control and Protection of “Sensitive Security
>Information”
>
>The 'DR 3440-2' is hyperlinked to
>http://www.ocio.usda.gov/directives/doc/DR3440-002.pdf but only prints as DR
>3440-2 text. Is there a way to print the hyperlinks after the text like:
>DR 3440-2 (http://www.ocio.usda.gov/directives/doc/DR3440-002.pdf)?
>
>Thanks,
>Diona

--
Message posted via http://www.officekb.com

From: Graham Mayor on 30 Apr 2010 10:19
The following macro should do that. It puts the hyperlink address in
brackets after each hyperlink, prints the document, then restores the
original

Sub PrintFullHLink()
Dim oDoc As Document
Dim oHyp As Hyperlink
Dim oRng As Range
Dim sFname As String
Set oDoc = ActiveDocument
oDoc.Save
sFname = oDoc.FullName
For Each oHyp In oDoc.Hyperlinks
Set oRng = oHyp.Range
oRng.InsertAfter Chr(32) & Chr(40) & oHyp.Address & Chr(41)
Next oHyp
oDoc.PrintOut
oDoc.Close wdDoNotSaveChanges
Documents.Open sFname
End Sub

http://www.gmayor.com/installing_macro.htm


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>



"Diona" <Diona(a)discussions.microsoft.com> wrote in message
news:699EA732-3DC8-4E0B-8CDF-5A201EBBD310(a)microsoft.com...
> We are working at doing some updates to chapter documents. As the web
> person,
> I would like the Word documents to print out the hyperlinks. Is there a
> way
> to do that as it usually just prints the words where the hyperlinks are
> linked from as text. For example:
>
> References: DR 3440-2 - Control and Protection of "Sensitive Security
> Information"
>
> The 'DR 3440-2' is hyperlinked to
> http://www.ocio.usda.gov/directives/doc/DR3440-002.pdf but only prints as
> DR
> 3440-2 text. Is there a way to print the hyperlinks after the text like:
> DR 3440-2 (http://www.ocio.usda.gov/directives/doc/DR3440-002.pdf)?
>
> Thanks,
> Diona


 | 
Pages: 1
Prev: Disablings certain features for exams
Next: I do not want to see grammar checks for passive voice