Sub AddMarkup()
'
ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = False
With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = ""
    .Footers(wdHeaderFooterPrimary).Range.Text = ""
End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = "&nbsp;"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^s"
        .Replacement.Text = "&nbsp;"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(^0013) "
        .Replacement.Text = "\1&nbsp;"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(^0013)^s"
        .Replacement.Text = "\1&nbsp;"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^0013"
        .Replacement.Text = "</p>^0013<p>"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\<p\>\</p\>^0013\<p\>\</p\>"
        .Replacement.Text = "<p>&nbsp;</p>"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
With ActiveDocument.Content
    .InsertParagraphBefore
    .InsertBefore "<html><head><style>p {text-align:justify;font-family:Times New Roman;font-size:small;margin-top:15px;margin-bottom:0px;margin-left:20px;margin-right:40px;}H1 {font-family:Georgia;color:#006699;font-size:large;margin-top:15px;margin-bottom:0px;margin-left:20px;margin-right:10px;}H2 {font-family:Georgia;color:#006699;font-size:small;margin-top:5px;margin-bottom:30px;margin-left:20px;margin-right:10px;}</style></head><p>"
    .InsertParagraphAfter
    .InsertAfter "</p></body></html>"
End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(\</head\>)(\<)p(\>)^0013(*\</)p(\>)"
        .Replacement.Text = "\1^0013\2h1\3\4h1\5"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(\</h1\>^0013\<)p(\>*\</)p(\>)"
        .Replacement.Text = "\1h2\2h2\3"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'    Selection.Find.ClearFormatting
'    Selection.Find.Replacement.ClearFormatting
'    With Selection.Find
'        .Text = "(\&nbsp\;\</p\>^0013\<)p(\>*\</)p(\>)"
'        .Replacement.Text = "\1h1\2h1\3"
'        .Forward = True
'        .Wrap = wdFindContinue
'        .Format = False
'        .MatchCase = False
'        .MatchWildcards = True
'    End With
'    Selection.Find.Execute Replace:=wdReplaceAll
End Sub