Hi macropod,
You're right, your code does work with headers. I realized it later on when
I processed all my documents in the folder. The problem with one particular
document was that the email address was in the header but it wasn't
translated into a hyperlink by Word. Even when the code executes the
Autoformat, it doesn't look like Word converts it into a hyperlink or a
field. When I ALT-F9, nothing happens. However, the email address was typed
correctly (i.e. (e-mail address removed)).
Since it isn't recognized as a hyperlink ,there is no "mailto".
Very strange.
All I can tell you is that the email is in the header, it is right-justified
(at the end of the line).
Ray
:
Hi Ray,
Are you sure the the email address is in the header of the problem document really is a field, and not just some text that's
been
formatted to look like a hyperlink?
The code I posted certainly retrieves the addresses in headers and footers if the email addresses are correctly formed. The
only
other possibility I can think of is that the 'mailto:' might be malformed (eg 'mailto;' ' mailto:' or 'mailto :')
You could nail all three malformations by changing:
If Left(oFld.Result, 7) = "mailto:" Then MsgBox oFld.Result
to
If Left(Trim(oFld.Result), 6) = "mailto" Then MsgBox oFld.Result
or
If Instr(oFld.Result,"mailto") <> 0 Then MsgBox oFld.Result
neither of these alternatives is quite as reliable as the original, though, being more liable to return false matches. Plus
you'd
have to figure out how to handle the malformed addresses in your subsequent processing.
Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------
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
:
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]
-------------------------
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
:
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]
-------------------------
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
:
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
utbind:\\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:
[email protected]"}. Note that the display text is not necessarily the hyperlink address.
Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------
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
(e-mail address removed)
Ray
:
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]
-------------------------
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
