Let's suppose that your text "The quick brown fox jump over the lazy dog" is in the first cell of the excel sheet, means cell (1,1), with the word "brown" is StrikeThrough
Then make a button or a macro and edit it to be as follows:
Sub Button1_Click()
Dim str As String
For i = 1 To Len(Cells(1, 1))
If Cells(1, 1).Characters(i, 1).Font.Strikethrough = False Then str = str + Cells(1, 1).Characters(i, 1).Text
Next i
Cells(10, 1) = str
End Sub
This will copy the phrase without the word "brown" to the cell (10,1)
But be alerted, this will leave the phrase with two spaces between the words "quick" and "fox" because the code deleted the word "brown" only, and left the spaces before and after it.
I shall leave the tuning of the code to remove the extra space for you :)
you can download the example here:
http://rapidshare.com/files/330791064/Book1.xls[
^]