Sorted it out...found this and tweaked it.

Dim found As Boolean
With o.Content.Find
.Text = vbTab & vbTab
.Wrap = wdFindContinue
found = .Execute
End With
While found
With o.Content.Find
.Text = vbTab & vbTab
.Replacement.Text = vbTab
found = .Execute(Replace:=wdReplaceAll)
End With
Wend