ReplaceTabsWithParagraphs VBA macro

ReplaceTabsWithParagraphs.vba

Sub ReplaceTabsWithParagraphs()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "^t"
    .Replacement.Text = "^v"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False

End With

While Selection.Find.Execute
   Selection.TypeParagraph
Wend
Rem Replace:=wdReplaceAll
End Sub