Sub Internet()
	 Call Internetstyle
	 Call Internetends
	 Call info1
	 Call headin
	 Call fns
	 Call fnnames
	 Call wwwname
End Sub
Sub Internetstyle()
	 Selection.HomeKey Unit:=wdStory
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "&"
		  .Replacement.Text = " & "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.HomeKey Unit:=wdStory
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = " - "
		  .Replacement.Text = " – "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = "^p"""
		  .Replacement.Text = "^p“"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = "("""
		  .Replacement.Text = "(“"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = " """
		  .Replacement.Text = " “"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = """ "
		  .Replacement.Text = "” "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = """."
		  .Replacement.Text = ".”"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = ""","
		  .Replacement.Text = ",”"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = """;"
		  .Replacement.Text = "”;"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = """:"
		  .Replacement.Text = "”:"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = """^p"
		  .Replacement.Text = "”^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = """)"
		  .Replacement.Text = "”)"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = "^p'"
		  .Replacement.Text = "^p‘"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = " '"
		  .Replacement.Text = " ‘"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "' "
		  .Replacement.Text = "’ "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "'."
		  .Replacement.Text = "’."
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "'s"
		  .Replacement.Text = "’s"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "')"
		  .Replacement.Text = "’)"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "('"
		  .Replacement.Text = "(‘"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "':"
		  .Replacement.Text = "’:"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "',"
		  .Replacement.Text = "’,"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "'t"
		  .Replacement.Text = "’t"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "'^p"
		  .Replacement.Text = "’^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("title")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p class=""title"">^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("quoteb")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p class=""quoteb"">^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("information")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<hr class=""end"" /><p class=""information"">^&</p><hr class=""end"" />}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H1")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<h1>^&</h1>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H2")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<h2>^&</h2>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H3")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<h3>^&</h3>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H4")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<h4>^&</h4>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H5")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<h5>^&</h5>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H6")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<h6>^&</h6>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("Normal")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p>^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("fst")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p class=""fst"">^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("next")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p class=""next"">^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("indentb")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p class=""indentb"">^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("skip")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p class=""skip"">^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("footer")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<p class=""footer"">^&</p>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("numbered")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<ol class=""numbered""><li>^&</li></ol>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("disc")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "{<ul class=""disc""><li>^&</li></ul>}^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p</h"
		  .Replacement.Text = "</h"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p</p"
		  .Replacement.Text = "</p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p<li></"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p</ol>"
		  .Replacement.Text = "</ol>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p</ul>"
		  .Replacement.Text = "</ul>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("disc")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "^p<li>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("numbered")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "^p<li>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^l"
		  .Replacement.Text = "<br />"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<li>{"
		  .Replacement.Text = "{"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("Normal")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("fst")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""fst"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("fst")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""fst"">{"
		  .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
	 
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("quoteb")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""quoteb"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("quoteb")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""quoteb"">{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("indentb")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""indentb"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("indentb")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""indentb"">{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("next")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""next"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("next")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""next"">{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("skip")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""skip"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("skip")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""skip"">{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("title")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""title"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("title")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""title"">{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("index")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""index"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("index")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""index"">{"
		  .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
	 
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("toc")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""toc"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("toc")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""toc"">{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("information")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</p>^p<p class=""information"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("information")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<p class=""information"">{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("disc")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</li>^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("disc")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</LI>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<li>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("numbered")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</li>^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("numbered")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</li>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<li>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H1")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</h1>^p<h1>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H1")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</h1>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<h1>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H2")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</h2>^p<h2>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H2")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</h2>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<h2>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H3")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</h3>^p<h3>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H3")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</h3>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<h3>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H4")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</h4>^p<h4>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H4")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</h4>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<h4>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H5")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</h5>^p<h5>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H5")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</h5>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<h5>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H6")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "</h6>^p<h6>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("H6")
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}</h6>"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<h6>{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "{"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "}"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "^p"
		  .Replacement.Text = "^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p>"
		  .Replacement.Text = "<p>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p class=""quoteb"">"
		  .Replacement.Text = "<p class=""quoteb"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p class=""fst"">"
		  .Replacement.Text = "<p class=""fst"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p class=""indentb"">"
		  .Replacement.Text = "<p class=""indentb"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p class=""skip"">"
		  .Replacement.Text = "<p class=""skip"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p class=""title"">"
		  .Replacement.Text = "<p class=""title"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p class=""information"">"
		  .Replacement.Text = "<p class=""information"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<p class=""next"">"
		  .Replacement.Text = "<p class=""next"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<H^#>"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "</H^#>"
		  .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
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "</p>"
		  .Replacement.Text = "^&"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "</UL>"
		  .Replacement.Text = "^&"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "</OL>"
		  .Replacement.Text = "^&"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<UL class=""disc"">"
		  .Replacement.Text = "<ul class=""disc"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<OL class=""numbered"">"
		  .Replacement.Text = "<ol class=""numbered"">"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<LI>"
		  .Replacement.Text = "<li>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "</LI>"
		  .Replacement.Text = "</li>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("HTML Markup")
	 With Selection.Find
		  .Text = "<BR>"
		  .Replacement.Text = "<br />^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<br />"
		  .Replacement.Text = "<br />^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = "<li></li>"
		  .Replacement.Text = " "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 With Selection.Find
		  .Text = "'"
		  .Replacement.Text = "&#8217;"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.WholeStory
	 Selection.Style = ActiveDocument.Styles("Normal,P")
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("Strong,STRONG")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<strong>^&</strong>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("info")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<span class=""info"">^&</span>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("context")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<span class=""context"">^&</span>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("Greek")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<span class=""greek"">^&</span>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("anote")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<sup class=""anote"">^&</sup>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("enote")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<sup class=""enote"">^&</sup>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("inote")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<span class=""inote"">^&</span>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("emphasis")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<em>^&</em>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll

	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("term")
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<span class=""term"">^&</span>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWildcards = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Font.StrikeThrough = True
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<strike>^&</strike>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Font.Italic = True
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<em>^&</em>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Font.Underline = True
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<u>^&</u>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
	 Selection.Find.ClearFormatting
	 Selection.Find.Font.Bold = True
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Default Paragraph Font")
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = "<b>^&</b>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 
End Sub
Sub Internetends()
'
' inserts html headers and footers into HTML code
'
	 Selection.HomeKey Unit:=wdStory
	 Selection.TypeText Text:="<HTML><head>"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<meta http-equiv=""content-type"" content=""text/html; charset=iso-8859-1"">"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<meta name=""author"" content=""Karl Marx"">"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<link rel=""stylesheet"" type=""text/css"" href=""../../../../css/works.css"">"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<title> by Karl Marx"
	 Selection.TypeText Text:="</title>"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="</head>"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<body>"
	 Selection.TypeParagraph
	 Selection.EndKey Unit:=wdStory
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<p class=""skip"">&#160;</p>"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<hr class=""end"" />"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<p class=""footer"">"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="<a href=""../../../index.htm"">Marx/Engels Archive</a>"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="</p>"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="</body>"
	 Selection.TypeParagraph
	 Selection.TypeText Text:="</HTML>"
	 Selection.HomeKey Unit:=wdStory
	 Selection.WholeStory
	 Selection.Style = ActiveDocument.Styles("Normal,P")
	 Selection.WholeStory
	 Selection.Style = ActiveDocument.Styles("Default Paragraph Font")
	 Selection.HomeKey Unit:=wdStory
	 
	 Selection.Find.ClearFormatting
	 With Selection.Find
		  .Text = "<H^#>"
		  .Replacement.Text = "<H1>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute
	 Selection.MoveRight Unit:=wdCharacter, Count:=1
	 Selection.Find.ClearFormatting
	 With Selection.Find
		  .Text = "<"
		  .Replacement.Text = "<"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
	 End With
	 Selection.Find.Execute
	 Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
	 Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
	 Selection.Copy
	 Selection.HomeKey Unit:=wdStory
	 Selection.Find.ClearFormatting
	 With Selection.Find
		  .Text = "<TITLE>"
		  .Replacement.Text = "<TITLE>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = True
		  .MatchCase = False
	 End With
	 Selection.Find.Execute
	 Selection.MoveRight Unit:=wdCharacter, Count:=1
	 Selection.Paste
	 Selection.HomeKey Unit:=wdStory
End Sub
Sub info1()
'
' removes style from hr
' Macro recorded 26/07/03 by Andy Blunden
'
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<span class=""info""><hr class=""end"" /></span>"
		  .Replacement.Text = "^p<hr class=""end"" />^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<em><hr class=""end""></em>"
		  .Replacement.Text = "^p<hr class=""end"" />^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub headin()
'
' insert DOCTYPE header into HTML code
' Macro recorded 26/07/03 by Andy Blunden
'
	 Selection.HomeKey Unit:=wdStory
	 Selection.TypeText Text:="<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
	 Selection.TypeParagraph
	 Selection.HomeKey Unit:=wdStory
End Sub
Sub fns()
'
' puts style and links into footnote references
' Macro recorded 26/07/03 by Andy Blunden
'
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "[^#]"
		  .Replacement.Text = "<a href=""#n^&"">^&</a>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "[^#^#]"
		  .Replacement.Text = "<a href=""#n^&"">^&</a>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "[^#^#^#]"
		  .Replacement.Text = "<a href=""#n^&"">^&</a>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "#n["
		  .Replacement.Text = "#n"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "]"">"
		  .Replacement.Text = """>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Ted()
'
' Clears unwanted characters and formatting from document by typical volunteer
' Macro recorded 05/10/03 by Andy Blunden
'
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p^p"
		  .Replacement.Text = "^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "`"
		  .Replacement.Text = "'"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^-"
		  .Replacement.Text = ""
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "-"
		  .Replacement.Text = "-"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^+"
		  .Replacement.Text = "-"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^="
		  .Replacement.Text = "-"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("enote")
	 With Selection.Find
		  .Text = "[^#]"
		  .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 Selection.Find
		  .Text = "[^#^#]"
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("Body Text")
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Normal")
	 With Selection.Find
		  .Text = ""
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("Body Text 2")
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Normal")
	 With Selection.Find
		  .Text = ""
		  .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
	 Selection.Find.ClearFormatting
	 Selection.Find.Style = ActiveDocument.Styles("Body Text 3")
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("Normal")
	 With Selection.Find
		  .Text = ""
		  .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
	 Call tabs
End Sub
Sub wwwname()
'
' wwwname Macro
' Macro recorded 31/08/04 by Andy Blunden
'
	 Selection.Find.ClearFormatting
	 With Selection.Find
		  .Text = """title"">"
		  .Replacement.Text = """>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute
	 Selection.MoveRight Unit:=wdCharacter, Count:=1
	 Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
	 Selection.Copy
	 Selection.HomeKey Unit:=wdStory
	 Selection.Find.ClearFormatting
	 With Selection.Find
		  .Text = "Karl Marx"
		  .Replacement.Text = """>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute
	 Selection.Paste
	 Selection.Find.ClearFormatting
	 With Selection.Find
		  .Text = "Karl Marx"
		  .Replacement.Text = """>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute
	 Selection.Paste
	 Selection.Find.ClearFormatting
	 With Selection.Find
		  .Text = "Marx/Engels"
		  .Replacement.Text = """>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute
	 Selection.Paste
End Sub
Sub fnnames()
'
' fnnames Macro
' Macro recorded 09/09/04 by Andy Blunden
'
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "<span class=""info"">^#^#^#.</span>"
		  .Replacement.Text = "<a name=""n^&"">^&</a>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "<span class=""info"">^#^#.</span>"
		  .Replacement.Text = "<a name=""n^&"">^&</a>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "<span class=""info"">^#.</span>"
		  .Replacement.Text = "<a name=""n^&"">^&</a>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = """n<span class=""info"">"
		  .Replacement.Text = """n"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ".</span>"">"
		  .Replacement.Text = """>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ".</span>"">"
		  .Replacement.Text = """>"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
End Sub
Sub tabs()
'
' tabs Macro
' Macro recorded 12/10/04 by Andy Blunden
'
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^t"
		  .Replacement.Text = " "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "  "
		  .Replacement.Text = " "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "^p "
		  .Replacement.Text = "^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub newscan()
'
' clears unwanted formatting out of OCR output 
' Macro recorded 05/05/00 by Andy Blunden
'
		 With ActiveDocument.pagesetup
		  .LineNumbering.Active = False
		  .Orientation = wdOrientPortrait
		  .TopMargin = CentimetersToPoints(2)
		  .BottomMargin = CentimetersToPoints(2)
		  .LeftMargin = CentimetersToPoints(3)
		  .RightMargin = CentimetersToPoints(3)
		  .Gutter = CentimetersToPoints(0)
		  .HeaderDistance = CentimetersToPoints(1.27)
		  .FooterDistance = CentimetersToPoints(1.27)
		  .PageWidth = CentimetersToPoints(21)
		  .PageHeight = CentimetersToPoints(29.69)
		  .FirstPageTray = wdPrinterDefaultBin
		  .OtherPagesTray = wdPrinterDefaultBin
		  .SectionStart = wdSectionNewPage
		  .OddAndEvenPagesHeaderFooter = False
		  .DifferentFirstPageHeaderFooter = False
		  .VerticalAlignment = wdAlignVerticalTop
		  .SuppressEndnotes = False
		  .MirrorMargins = False
		  .TwoPagesOnOne = False
		  .BookFoldPrinting = False
		  .BookFoldRevPrinting = False
		  .BookFoldPrintingSheets = 1
		  .GutterPos = wdGutterPosLeft
	 End With
Selection.WholeStory
	 Selection.Copy
	 Selection.Paste
	 Selection.WholeStory
	 Selection.Font.Size = 11
	 With Selection.ParagraphFormat
		  .LeftIndent = CentimetersToPoints(0)
		  .RightIndent = CentimetersToPoints(0)
		  .SpaceBefore = 3
		  .SpaceAfter = 3
		  .LineSpacingRule = wdLineSpaceSingle
		  .Alignment = wdAlignParagraphLeft
		  .FirstLineIndent = CentimetersToPoints(0)
	 End With
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^b"
		  .Replacement.Text = "^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^n"
		  .Replacement.Text = "^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "`"
		  .Replacement.Text = "'"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^p^p"
		  .Replacement.Text = "^p"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "^t"
		  .Replacement.Text = " "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 With Selection.Find
		  .Text = "  "
		  .Replacement.Text = " "
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.WholeStory
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = ""
		  .Replacement.Text = ""
		  .Forward = True
		  .Wrap = wdFindAsk
		  .Format = True
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^-"
		  .Replacement.Text = ""
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^-"
		  .Replacement.Text = ""
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 With Selection.Find
		  .Text = "^+"
		  .Replacement.Text = "-"
		  .Forward = True
		  .Wrap = wdFindContinue
		  .Format = False
		  .MatchCase = False
		  .MatchWholeWord = False
		  .MatchWildcards = False
		  .MatchSoundsLike = False
		  .MatchAllWordForms = False
	 End With
	 Selection.Find.Execute Replace:=wdReplaceAll
	 Selection.Find.ClearFormatting
	 Selection.Find.Replacement.ClearFormatting
	 Selection.Find.Replacement.Style = ActiveDocument.Styles("enote")
	 With Selection.Find
		  .Text = "[^#]"
		  .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 Selection.Find
		  .Text = "[^#^#]"
		  .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 Selection.Find
		  .Text = "[^#^#^#]"
		  .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
	Call Ted
End Sub