OFF2000: Template Size Increases When You Add or Remove Visual Basic Code

Option Explicit

Sub Caller()
' This example assumes you are working in 
' Word, and the project you want to work with
' is the first file in the collection.


' For Word use:
FixProject Documents(1)

' For Excel use:
' FixProject Workbooks(1)

' For PowerPoint use:
' FixProject Presentations(1)

End Sub


Sub FixProject(Doc As Document)
' Word

'Sub  FixProject(Doc As WorkBook)
' Excel

' Sub FixProject(Doc As Presentation)
' PowerPoint

Dim iStdMod As Long, iClsMod As Long
Dim iFrm As Long, iDesn As Long
Dim iDoc As Long, n As VBComponent
Dim i As Long, fname As String

Debug.Print "before=" & FileLen(Doc.FullName)

For Each n In Doc.VBProject.VBComponents

   ' The vbext_ct_StdModule type is
   ' only one of several VBComponent
   ' clause for each component type:
   ' (for example: module, form, class, etc)
   Select Case n.Type

      Case vbext_ct_StdModule
         Debug.Print "exporting " & n.Name
         n.export "C:\" & iStdMod & ".bas"
         Doc.VBProject.VBComponents.Remove n
         iStdMod = iStdMod + 1

      Case vbext_ct_ClassModule
         Debug.Print "exporting " & n.Name
         n.export "C:\" & iClsMod & ".cls"
         Doc.VBProject.VBComponents.Remove n
         iClsMod = iClsMod + 1

      Case vbext_ct_ActiveXDesigner
         Debug.Print "exporting " & n.Name
         n.export "C:\" & iDesn & ".dsr"
         Doc.VBProject.VBComponents.Remove n
         iDesn = iDesn + 1

      Case vbext_ct_MSForm
         Debug.Print "exporting " & n.Name
         n.export "C:\" & iFrm & ".frm"
         Doc.VBProject.VBComponents.Remove n
         iFrm = iFrm + 1

      Case vbext_ct_Document
         ' This type of VBComponent will
         ' always re-import as a Class module.
         ' The original object association is
         ' removed when importing/exporting.
         Debug.Print "exporting " & n.Name
         n.export "C:\" & iDoc & ".cld"
         iDoc = iDoc + 1

   End Select

Next

' Save document now that all
' VBComponents have been exported.
Doc.Save
fname = Doc.FullName

'Close the file
Doc.Close

Set Doc = Documents.Open(fname)

If iStdMod Then

   For i = 0 To iStdMod - 1
      Doc.VBProject.VBComponents.Import "C:\" & i & ".bas"
      Kill "C:\" & i & ".bas"
   Next

End If

If iClsMod Then

   For i = 0 To iClsMod - 1
      Doc.VBProject.VBComponents.Import "C:\" & i & ".cls"
      Kill "C:\" & i & ".cls"
   Next

End If

If iDoc Then

   For i = 0 To iDoc - 1
      ' This VBComponent is imported
      ' as a Class module. You will need
      ' to copy its code into the
      ' appropriate ThisDocument, Workbook, etc.
      Doc.VBProject.VBComponents.Import "C:\" & i & ".cld"
      Kill "C:\" & i & ".cld"
   Next

End If

If iDesn Then

   For i = 0 To iDesn - 1
      Doc.VBProject.VBComponents.Import "C:\" & i & ".dsr"
      Kill "C:\" & i & ".dsr"
   Next

End If

If iFrm Then

   For i = 0 To iFrm - 1
      Doc.VBProject.VBComponents.Import "C:\" & i & ".frm"
      Kill "C:\" & i & ".frm"
      Kill "C:\" & i & ".frx"
   Next

End If

' Save document now that all
' VBComponents have been exported.
Doc.Save
Debug.Print "after=" & FileLen(Doc.FullName)

End Sub