You can do this with a simple replacement of
wrote:^p
with
^& Format > Style > Heading 1
and modify the style Heading 1 to produce the format and spacing to require.
If you want a macro you can record the steps e.g.
Code:
Sub Macro1()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1")
With Selection.Find
.Text = "wrote:^p"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With ActiveDocument.Styles("Heading 1").Font
.Name = "Times New Roman"
.Size = 12
.Bold = True
.Italic = False
End With
End Sub