Thread: [Solved] Help with Word macro please
View Single Post
 
Old 01-21-2011, 03:41 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2000
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi Phil,

Try:
Code:
Dim alink As Field
For Each alink In ActiveDocument.Fields
  If alink.Type = wdFieldHyperlink Then
    If InStr(alink.Code.Text, "APPLE") > 0 Then alink.Unlink
  End If
Next alink
Note: when posting code, please use code tags
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote