Sub cleanLetters()

Selection.WholeStory

'Append signature image to signature
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "The Jacksonville University Admissions Team" ' This is the name we're looking for, and it shouldn't exist in the rest of the letter (e.g., in the body)
    Do While .Execute
        With Dialogs(wdDialogInsertPicture)
            .Name = "http://i.imgur.com/x7YxZjv.png" 'This is the URL for the signature
            .Execute
        End With
    Loop
    .Text = "admissions@ju.edu" ' Because we replaced the name with the signature, we need to find the unique text that immediately proceeded the name
    .Replacement.Text = "Alexander Hamilton^padmissions@ju.edu" ' In this case, we're replacing the email address with "Alexander Hamilton" and then adding the email address to the next line
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

'Modify font & font size
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 12
Selection.Font.Color = wdColorAutomatic

'Append image to header
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With Dialogs(wdDialogInsertPicture)
    .Name = "http://i.imgur.com/hHCIojS.png" 'This is the URL for the header image
    .Execute
End With
            
'Modify margins by inches
With ActiveDocument.PageSetup
    .TopMargin = InchesToPoints(2)
    .BottomMargin = InchesToPoints(0.75)
    .LeftMargin = InchesToPoints(0.5)
    .RightMargin = InchesToPoints(0.5)
    .HeaderDistance = InchesToPoints(1) 'Distance between the header and top of the page
    .FooterDistance = InchesToPoints(1) 'Distance between the footer and bottom of the page
    .PageWidth = InchesToPoints(8.5) 'Paper width
    .PageHeight = InchesToPoints(11) 'Paper height
End With

End Sub