microsoft.public.word.vba.general

Hi macropod,

Thanks for the enormous help you've given me. The code sample you gave me
works on all documents except one. In this document the email address is in
the header of the document. The code doesn't catch it.

I tried doing ALT-F9 and the email address does not change or decode itself.
I tried placing a Range.AutoFormat inside the Do loop but Word complained
that you cannot autoformat a header.

Is there a way for Word to catch that field?

Ray

"macropod" wrote:

> 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
> >> >> >> >
> >> >> >>
> >> >>
> >> >>
> >>
> >>
>
>