[Toxaris]

Found it. This will retain footnotes.

Private Sub cleancopy()
    Dim Style As Style
    Dim i As Integer

    Selection.WholeStory
    Selection.Cut

    For Each Style In ActiveDocument.Styles
        Style.Locked = True                           'alle stijlen blokkeren
    Next

    ActiveDocument.Styles(wdStyleNormal).Locked = False
    ActiveDocument.Protect Password:="password", NoReset:=False, Type:= _
                           wdNoProtection, UseIRM:=False, EnforceStyleLock:=True
    On Error Resume Next
    For i = ActiveDocument.Styles.count To 1 Step -1
        If ActiveDocument.Styles(i).Locked = True Then
            ActiveDocument.Styles(i).Delete
        End If
    Next i
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    ActiveDocument.Unprotect Password:="password"

End Sub