Deleting all but one occurrence of text from a selection

[paik1002]

The selection is: apple banana grape apple orange apple banana banana apple apple



Q1: I'd like delete all but one occurence of apple from the above selection.
Q2: And do the same, this time including wildcards for search and replace(e.g. \1 \2 \3 ...).

Could it be done via word macros?

[macropod]

This really isn't a job for Find/Replace; rather, it calls for a macro like:

Sub Demo()
Application.ScreenUpdating = False
Dim strTxt As String, i As Long, j As Long
With Selection
  For i = 1 To .Words.Count
    For j = .Words.Count To i + 1 Step -1
      If .Words(i) = .Words(j) Then
        .Words(j).Delete
      End If
    Next
  Next
End With
Application.ScreenUpdating = True
End Sub

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm

[paik1002]

Thank you for the hint. I guess I'll somehow have to try to figure out a solution in another way.

[macropod]

Originally Posted by paik1002

I guess I'll somehow have to try to figure out a solution in another way.

Well, you did ask:

Originally Posted by paik1002

Could it be done via word macros?