A family of Microsoft word processing software products for creating web, email, and print documents.
The following looks at the first 'word' in the paragraphs. Word treats a tab character as a 'word', so if the first 'word' is not a tab character (as in your first example), this version adds a tab character to the start of the second 'word'
Dim oPara As Paragraph
Dim oRng As Range
For Each oPara In ActiveDocument.Paragraphs
If oPara.Range.Words.Count > 1 Then
If oPara.Range.Words(1).Text <> Chr(9) Then
Set oRng = oPara.Range.Words(2)
oRng.InsertBefore Chr(9)
End If
End If
Next oPara