[mso] Re: Removing hyperlinks in Word 2000
- From: "Dian D. Chapman" <dian@xxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Thu, 8 Sep 2005 04:27:19 -0500
See this article for details about how to use this code...
Sharing Macros
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=166
Dian D. Chapman, Technical Consultant
Microsoft MVP, MOS Certified
Editor/TechTrax Ezine
Free Tutorials: http://www.mousetrax.com/techtrax
Free Word eBook: http://www.mousetrax.com/books.html
Optimize your business docs: http://www.mousetrax.com/consulting
Learn VBA the easy way: http://www.mousetrax.com/techcourses.html
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Shyamal Gupta
Sent: Wednesday, September 07, 2005 11:36 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Removing hyperlinks in Word 2000
On 9/7/05, Green <1z@xxxxxxxxxxxxxx> wrote:
> Not sure if it will help but here is the code I use to delete
> hyperlinks in a selection.
> Sub subDeleteHyperlinks()
> ' Delete H/links in a selection.
>=20
> Dim olHLink As Hyperlink
> Dim ilHLinkTotal As Integer
> Dim ilHLinkCnt As Integer
> Dim olR As Range
>=20
> Set olR =3D Selection.Range
> ilHLinkTotal =3D olR.Hyperlinks.count
> For ilHLinkCnt =3D ilHLinkTotal To 1 Step -1
> olR.Hyperlinks(ilHLinkCnt).Delete
> Next ilHLinkCnt
>=20
> '
> **********************************************************************
> *
> End Sub
Is the above for a macro ? In Word 2003, I create a macro with this content=
?
Thanks.
From a MS-Office-semi-literate
Shyamal
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes)
in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also
allow you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions. Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.10.18/91 - Release Date: 9/6/2005
--
This email scanned and certified clean by AVG!
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.10.18/91 - Release Date: 9/6/2005
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in
the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
Other related posts:
