Sub Clean_Codes()
'
' DV_Clean_codes Macro
' Accept changes, turn hyphenation off, uniforms spelling
' Created: 14/Feb/2003
'

    ' Accepts all revison marks
    ActiveDocument.AcceptAllRevisions
    ActiveDocument.TrackRevisions = False
        With ActiveDocument
        .AutoHyphenation = False
        .HyphenateCaps = False
        .HyphenationZone = InchesToPoints(0.25)
        .ConsecutiveHyphensLimit = 0
    End With
    
    ' Replaces automatic numbering and bullets with real number and bullets
    ActiveDocument.ConvertNumbersToText
    
    Selection.WholeStory
    
    ' Replaces all spaces with normal spaces
    Call Normal_Spacing
    
    ' Replaces Mac and Unix Paragraph marks with Windows ones
    Call Replace_Paragraph_Marks_From_MacUnix
    
    ' Uniforms language
    Selection.NoProofing = True
    Application.CheckLanguage = False
    ActiveDocument.Save
    Selection.LanguageID = wdEnglishUS
    Application.CheckLanguage = False
    ActiveDocument.Save
    Selection.HomeKey Unit:=wdStory

End Sub



Sub Normal_Spacing()
'
' Macro No_Scaling -- to clean rogue codes
' from different scaling, position and spacing
'
' Macro recorded 25/Mar/05 by //
'
    Selection.WholeStory
    With Selection.Font
        .Spacing = 0
        .Scaling = 100
        .Position = 0
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub



Sub Replace_Paragraph_Marks_From_MacUnix()
'
' Replace_Paragraph_Marks_From_MacUnix Macro
' Macro recorded 30/May/03 by //
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^010"
        .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 = "^013"
        .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