Export all VBA modules under Word

[Robie]

Is there a way of exporting *all* modules, forms, class modules, etc. from a template to a folder? I am fed up of doing them one at a time.

Thanks.
Robie

[HansV]

Try this:

Code: Select all

Sub ExportAll()
    Dim strPath As String
    Dim vbc As Object
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            strPath = .SelectedItems(1)
            If Right(strPath, 1) <> "\" Then
                strPath = strPath & "\"
            End If
            For Each vbc In ActiveDocument.VBProject.VBComponents
                vbc.Export strPath & vbc.Name & ".txt"
            Next vbc
        Else
            MsgBox "No folder specified...", vbExclamation
        End If
    End With
End Sub

You can change ActiveDocument to ActiveDocument.AttachedTemplate, for example.

[Robie]

Try this:

Code: Select all

Sub ExportAll()
    Dim strPath As String
    Dim vbc As Object
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            strPath = .SelectedItems(1)
            If Right(strPath, 1) <> "\" Then
                strPath = strPath & "\"
            End If
            For Each vbc In ActiveDocument.VBProject.VBComponents
                vbc.Export strPath & vbc.Name & ".txt"
            Next vbc
        Else
            MsgBox "No folder specified...", vbExclamation
        End If
    End With
End Sub

You can change ActiveDocument to ActiveDocument.AttachedTemplate, for example.

That is fantastic Hans. Works like a charm and saved me a lot of time exporting each individual modules.

Thank you so much.

[Ivka]

Hans, thank you soooo much for your code!
I've been looking for it for several days! It's cool (and so are you) !

[ChrisGreaves]

Is there a way of exporting *all* modules, forms, class modules, etc. from a template to a folder? I am fed up of doing them one at a time.

Thanks.
Robie

Hi Robie.
Might one ask why you want to do this?
Cheers
Chris

[Charles Kenyon]

Is there a way of exporting *all* modules, forms, class modules, etc. from a template to a folder? I am fed up of doing them one at a time.

Thanks.
Robie

Hi Robie.
Might one ask why you want to do this?
Cheers
Chris

Don't know about Robie, but it is a quick way to back up the vba or transfer it. I have hundreds of macros I store in my normal.dotm in more than 10 modules. For the most part, they are never used from within the Word UI, but rather serve as the basis for code in other templates. Most are designated as "private" because I don't want them showing up in the macro lists.

[ChrisGreaves]

... but it is a quick way to back up the vba or transfer it. ...

Agreed.
But I'd use Rob Bovey's Code Cleaner for such a simple task.

I was curious as to whether Robie had a greater need that might be solved by existing utilities.

Cheers
Chris

[Charles Kenyon]

... but it is a quick way to back up the vba or transfer it. ...

Agreed.
But I'd use Rob Bovey's Code Cleaner for such a simple task.

I was curious as to whether Robie had a greater need that might be solved by existing utilities.

Cheers
Chris

Does it work in Word?

[ChrisGreaves]

Does it work in Word?

Well, yes.
At least, I have a version that works in MSWord2003. I have made it kick in whenever a version of my template changes.
e.g. Going from Playr017.dot to Player018.dot, it asks me if i want to export/import the code (i usually do!).

''' VBA Code Cleaner 4.4 © 1996-2001 by Rob Bovey,
''' all rights reserved. May be redistributed for free but
''' may not be sold without the author's explicit permission.

Right now I can't find a copy on the web, but if you want a version of my downloaded Word copy PM me.
Cheers
Chris


P.S. One of these links might work.

[Charles Kenyon]

Found one here.
https://www.add-ins.com/macro-products- ... a-code.htm

[ChrisGreaves]

Found one here.

Thanks Charles.
The one you found is (a) for Excel and (b) is a COM rather than an addin and (c) is for 232-bit only, right?

I am using one written in WordVBA, with the source visible - and hence adjustable - that runs in what I think is a 32-bit Word 2003. (Although Hans is waiting to set me straight on that claim(grin))

Cheers
Chris

[HansV]

There is a Word Code Cleaner available at the bottom of the following page. It is based on the one for Excel.

Combatting Template Bloat

The page says that it works in Word 97, 2000 and 2002, but although I haven't tested it, I see no reason why it wouldn't work in more recent versions.

[Charles Kenyon]

I've tried to get Bill Coan's Code Cleaner to work but haven't been able to get it to do so. It is an .exe file. I no longer remember how to adjust .com Add-Ins on menu versions of Word. I've asked Chris to send me the vba one that he has via private message.

[Jay Freedman]

I've tried to get Bill Coan's Code Cleaner to work but haven't been able to get it to do so. It is an .exe file. I no longer remember how to adjust .com Add-Ins on menu versions of Word. I've asked Chris to send me the vba one that he has via private message.

Charles, the Word Code Cleaner.exe file is just an installer made by (probably) PKZip. Rename it with a .zip extension and you can extract the contents: Word Code Cleaner.dot, Setup.doc, and Cleaner.hlp. All you really need is to extract the .dot file to the Startup folder, or use the Templates & Add-Ins dialog to add it to the current session. If you want to read the Cleaner.hlp file, you'll have to install the WinHlp program from https://support.microsoft.com/en-us/hel ... luded-or-h. To install it on Windows 10, you need the answer to https://answers.microsoft.com/en-us/win ... 8bed33265c.

[Charles Kenyon]

Thank you Jay. I extracted it and the commands show up under the Add-In tab.
I converted it to .dotm and added a QAT button.

[ChrisGreaves]

...a QAT button.

Cheers
Chris

[HansV]

QAT = Quick Access Toolbar, a feature in the ribbon version of Office applications.

S2066.png

[ChrisGreaves]

QAT = Quick Access Toolbar, a feature in the ribbon version of Office applications.

Oh.
One of the features in this new-fangled version of MS-Word.
Ta ever so.

[Robie]

Is there a way of exporting *all* modules, forms, class modules, etc. from a template to a folder? I am fed up of doing them one at a time.

Thanks.
Robie

Hi Robie.
Might one ask why you want to do this?
Cheers
Chris

Sorry, coming bit late to this. Have been away and not well after the holidays.

I only wanted a copy of the modules so that I could email them (which we are not allowed to do by the company) to myself (when working from home).

[HansV]

I hope you're better now!