How to get Word VBA macro to compile a VBA project?

I'm using the attached procedure below to delete all the lines of code from a VBA, to ensure the saved document will not run code again. On opening the saved document getting "System Error &H8000040005(-214746259).
Once the saved document is manually opened and the VB editor recompiled(even though no code exists), this error will no longer affect the document.

   

Sub DeleteAllVBACode_WhenSaving()
        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent
        Dim CodeMod As VBIDE.CodeModule
            
        On Error GoTo error_trap
        Set VBProj = ActiveDocument.VBProject
        Application.ScreenUpdating = False
        
        For Each VBComp In VBProj.VBComponents
            If VBComp.Type = vbext_ct_Document Then
                Set CodeMod = VBComp.CodeModule
                With CodeMod
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp
Exit Sub
error_trap:
MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly + vbCritical, "Error in CleanUp"
    End Sub

Select all Open in new window