microsoft.public.word.vba.general

Hi Ray,

To access the hyperlinks wherever they might be, including headers/footers & shapes, try:
Sub HLinkTest()
Dim oFld As Field
Dim oRange As Word.Range
With ActiveDocument
.Range.AutoFormat
For Each oRange In .StoryRanges
Do
For Each oFld In oRange.Fields
If oFld.Type = wdFieldHyperlink Then
If Left(oFld.Result, 7) = "mailto:" Then MsgBox oFld.Result
End If
Next oFld
Set oRange = oRange.NextStoryRange
Loop Until oRange Is Nothing
Next oRange
End With
End Sub

Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------

"Ray C" wrote in message news:B76CA061-4056-4A6C-8F44-F7ED08810B17@microsoft.com...
> Hi macropod,
>
> It's working like a charm...however, my old code was able to also search in
> the headers and footers of the document, your example doesn't seem to be
> doing this.
>
> Thanks
> Ray
>
> "macropod" wrote:
>
>> Hi Ray,
>>
>> I'm not surprised that either of those fields failed - they're not valid hyperlinks. You can see that by the "" in the field,
>> which
>> basically says the hyperlink is nothing. If you were to manually create a hyperlink field with that code and no alternate display
>> text, Word would return an error message on the page.
>>
>> You can use the following code to get around that:
>> Sub HLinkTest()
>> Dim oFld As Field
>> With ActiveDocument
>> .Range.AutoFormat
>> For Each oFld In .Fields
>> If oFld.Type = wdFieldHyperlink Then
>> If Left(oFld.Result, 7) = "mailto:" Then MsgBox oFld.Result
>> End If
>> Next
>> End With
>> End Sub
>>
>> Cheers
>> --
>> macropod
>> [MVP - Microsoft Word]
>> -------------------------
>>
>> "Ray C" wrote in message news:394179E5-4534-453E-A0CE-937CC53C25AC@microsoft.com...
>> > Hi macropod,
>> >
>> > When I press ALT-F9
>> > For the first hyperlink I have:
>> >
>> > {HYPERLINK "" \o
>> > "outbind://115-00000000C02DC307E8EC334F91A9B8DEBCE1EBBD44CF2800/"}
>> >
>> > and for the second hyperlink I have:
>> >
>> > { HYPERLINK "" \o
>> > "outbind://115-00000000C02DC307E8EC334F91A9B8DEBCE1EBBD44CF2800/" }
>> >
>> >
>> > Yes, with all the spaces (weird).
>> >
>> > When I toggle out of ALT-F9, the email addresses are actually valid.
>> > I get the error message when I reach the line:
>> > If Left(HLink.Address, 7) = "mailto:" Then MsgBox HLink.Address
>> >
>> > It can't read the Address property of the HLink because it claims that HLink
>> > was deleted.
>> >
>> > Ray
>> >
>> > "macropod" wrote:
>> >
>> >> Hi Ray,
>> >>
>> >> This code works for me:
>> >> Sub HLinkTest()
>> >> Dim HLink As Hyperlink
>> >> With ActiveDocument
>> >> .Range.AutoFormat
>> >> For Each HLink In .Hyperlinks
>> >> If Left(HLink.Address, 7) = "mailto:" Then MsgBox HLink.Address
>> >> Next
>> >> End With
>> >> End Sub
>> >> and I'm unable to reproduce either of the error messages you mentioned - even if I change the hyperlink address to
>> >> "outbind:\\1000510063444" or "mailto:outbind:\\1000510063444".
>> >>
>> >> With your hyperlinks, what do you see when you press Alt-F9? This exposes the field coding and you should see something like:
>> >> {HYPERLINK "mailto:here@there.com"}. Note that the display text is not necessarily the hyperlink address.
>> >>
>> >> Cheers
>> >> --
>> >> macropod
>> >> [MVP - Microsoft Word]
>> >> -------------------------
>> >>
>> >> "Ray C" wrote in message news:5E64A8B6-2414-4B44-A789-9B31DAD320A3@microsoft.com...
>> >> >I already tried that and I still get the same error. The problem is that the
>> >> > HLink instance seems deleted when it starts executing the first line inside
>> >> > the For loop. One thing I noticed is that when I click on the hyperlinks
>> >> > inside the Word document itself, nothing happens. When I look at the address
>> >> > of the hyperlink (using Word, not VBA) the address has strange characters. It
>> >> > has "outbind:\\1000510063444"
>> >> >
>> >> > But Word still has the email address as a hyperlink and the text does show
>> >> > name@domain.com
>> >> >
>> >> > Ray
>> >> >
>> >> >
>> >> > "macropod" wrote:
>> >> >
>> >> >> Hi Ray,
>> >> >>
>> >> >> How about:
>> >> >> Dim HLink As Hyperlink
>> >> >> objDocument.Range.AutoFormat
>> >> >> For Each HLink In objDocument.Hyperlinks
>> >> >> If Left(HLink.Address, 7) = "mailto:" Then
>> >> >> ....
>> >> >> End If
>> >> >> ....
>> >> >> Next
>> >> >>
>> >> >> Cheers
>> >> >> --
>> >> >> macropod
>> >> >> [MVP - Microsoft Word]
>> >> >> -------------------------
>> >> >>
>> >> >> "Ray C" wrote in message news:82EDD7AD-95B7-4BEC-A532-2DE77D09E3DF@microsoft.com...
>> >> >> > I'm writing a Word VBA function that process hyperlinks within word
>> >> >> > documents. Since Work can also convert web sites into hyperlinks as well, I
>> >> >> > check that the Hyperlink.Address property begins with "mailto" to make sure I
>> >> >> > only process email addresses.
>> >> >> >
>> >> >> > Here's a sample of my code:
>> >> >> >
>> >> >> > objDocument.Range.AutoFormat
>> >> >> > For Each HLink In objDocument.Hyperlinks
>> >> >> > E_Mail = Split(HLink.Address, ":", 1)
>> >> >> > If E_Mail(0) = "mailto" Then
>> >> >> > ....
>> >> >> > Endif
>> >> >> > ......
>> >> >> > Endif
>> >> >> >
>> >> >> > The problem is that I get an error on the third line, telling me that
>> >> >> > Hyperlink has been deleted. Yet I clearly have two email addresses in the
>> >> >> > document. In other cases I get a different error message saying that the
>> >> >> > Address method of object Hyperlink failed (caused by the same line, the third
>> >> >> > line).
>> >> >> >
>> >> >> > When I step code during debugging, I get 2 for objDocument.Hyperlinks.Count
>> >> >> > which is what I'm supposed to get since there are 2 hyperlinks in the
>> >> >> > document.
>> >> >> >
>> >> >> > Can anyone shed some light on this?
>> >> >> >
>> >> >> > Thanks in advance
>> >> >> >
>> >> >> > Ray
>> >> >> >
>> >> >>
>> >>
>> >>
>>
>>