Microsoft Office Forums - View Single Post

macropod · 12-09-2013, 05:43 PM

Try the following macro:

Code:

Sub Demo()
Dim i As Long, StrTxt As String, StrOut As String
With ActiveDocument
  For i = .Hyperlinks.Count To 1 Step -1
    With .Hyperlinks(i)
      StrTxt = .TextToDisplay
      If StrTxt Like "[#@]*" Then
        .Range.Fields(1).Unlink
      ElseIf InStr(StrTxt, "@") > 0 Then
        StrOut = Mid(StrTxt, InStr(StrTxt, "@") - 1, Len(StrTxt))
        .Range.InsertAfter StrOut
        .TextToDisplay = Left(StrTxt, InStr(StrTxt, "@") - 2)
      End If
    End With
  Next
End With
End Sub

Note: some/most of the @ symbols were actually within a hyperlink rather than being its start, so that added an extra level of complication to the code