So I figured it out. Here's the code I used (Just change the End number to whatever takes up the whole email)

      doc.Range(Start:=0, End:=216).Font.Bold = wdToggle
        doc.Range(Start:=0, End:=216).Font.Name = "Times New Roman"
        doc.Range(Start:=0, End:=216).Font.Size = 12