Sub Macro32()
Dim oRng As Range, oDup As Range

    Set oRng = Selection.Range
    Set oDup = Selection.Range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^t"
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = False
        Do While .Execute
            If oRng.InRange(Selection.Range) Then
                oRng.Text = ""
            End If
            oRng.Collapse 0
        Loop
    End With
    
    Set oRng = oDup.Duplicate
    With oRng.Find
        .Text = "="
        Do While .Execute
            If oRng.InRange(oDup) Then
                oRng.Text = vbTab & oRng.Text
            End If
            oRng.Collapse 0
        Loop
    End With
    Set oRng = Nothing
    Set oDup = Nothing
End Sub