Search for hyperlinks within folder

[Bob]

I have a macro that searches through each document in a
folder looking for hyperlinks to a user specified file,
say 'Diesel Fuel Pumping'.

Instead of searching for links to the full title, what if
I search for links to only part of the title say, 'Fuel'
or 'Diesel Fuel'.

How would I do this?

 

[DA]

How are you doing your current search?
Seems strange that if you're already searching for a
title, why can't you search for any type of string?

 

[Bob]

Hi DA

The macro loops through each hyperlink in a document (from
1 to ActiveDocument.Hyperlinks.Count) and extracts the
link path using ActiveDocument.Hyperlinks(i).Address.

The macro then searches backwards though path from Len
(.Address) until it finds a /. The hyperlinked file name
starts the first character after the / and goes until Len
(.Address).

This hyperlinked file name is then compared to the
specified name.

Do you have any suggestions or an alternative method?

 

[Doug Robbins - Word MVP]

Use Instr() on the .Range of the hyperlink.

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Bob]

Thanks Doug

InStr work well. But the .Range gives the reference in the
document (same as .TextToDisplay) and has no relation to
the file that is hyperlinked. using Word 2000

 

[Doug Robbins - Word MVP]

Use

Dim alink As Field, linkcode As Range

For Each alink In ActiveDocument.Fields
If alink.Type = wdFieldHyperlink Then
Set linkcode = alink.Code
If InStr(linkcode, "Diesel Fuel") Then
'Some action
End If
End If
Next alink


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP