Comparing text and highlighting differences

Snakehips · #4 03-16-2015, 11:42 AM

The following code will deal with your posted example or the slight variation below but after that it will get a whole lot harder.

My name is Bill and I am a professional bank robber .
My name is Dan and I am a police officer.
My name is Bill and I am a professional bank robber .

Code:

Sub Compare_Text()

Set ws = ActiveSheet
ws.Shapes("Textbox 3").TextFrame.Characters.Font.ColorIndex = 1

Arry1 = Split(ws.Shapes("Textbox 1").TextFrame.Characters.Text, " ")
Arry2 = Split(ws.Shapes("Textbox 2").TextFrame.Characters.Text, " ")

If UBound(Arry1) >= UBound(Arry2) Then
    Arry3 = Arry1
    Arry4 = Arry2
    ws.Shapes("Textbox 3").TextFrame.Characters.Text = ws.Shapes("Textbox 1").TextFrame.Characters.Text
    Else
    Arry3 = Arry2
    Arry4 = Arry1
    ws.Shapes("Textbox 3").TextFrame.Characters.Text = ws.Shapes("Textbox 2").TextFrame.Characters.Text
End If

For i = 0 To UBound(Arry1)
    wcc = Len(Arry3(i)) + 1
    tc = tc + wcc
    On Error Resume Next
    If Not Arry3(i) = Arry4(i) Then
         ws.Shapes("Textbox 3").TextFrame.Characters(tc - wcc, wcc).Font.ColorIndex = 3
     On Error GoTo 0
    End If
Next i

End Sub

Hope that helps give you a start.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Highlighting Text After Sync	lvautier	OneNote	1	02-07-2015 04:02 PM
Comparing dates in legacy control text box	JoeE	Word VBA	2	05-08-2013 11:01 PM
Calculate differences between text cells?	poobear	Excel	2	05-19-2012 06:43 AM
Comparing 2 columns of Text	Berk21	Excel	9	02-03-2012 12:19 PM
Text Highlighting in Yellow ???	mark4man	Publisher	0	12-15-2005 06:46 PM