Transfer of embedded macros after template is opened,

gmayor · #5 12-07-2016, 08:56 AM

You can use following macro in the template to write the macros the document requires, to the document, which must then be saved as a macro enabled document in order for those macros to work in the document.

The function copies the code from a text file, stored locally, to the document that requires the macros. This is essentially the process used in http://www.gmayor.com/interactive_multichoice.html, though that uses a password protected document to hold the code rather than a text file - the text file is quicker.

In the example below, the macro code clears the named module of the document, then writes the text from the text file to it.

Code:

Public Function AddVBACodeFromTXT(oDoc As Document, strSource As String, strModule As String)
Dim strLines As String
Dim i As Long, j As Long
Dim strCode As String
Dim iFile As Integer: iFile = FreeFile

Open strSource For Input As #iFile
strCode = Input(LOF(iFile), iFile)
Close #iFile

    i = oDoc.VBProject.VBComponents(strModule).CodeModule.CountOfLines
    oDoc.VBProject.VBComponents(strModule).CodeModule.DeleteLines 1, i
    oDoc.VBProject.VBComponents(strModule).CodeModule.AddFromString strCode
lbl_Exit:
    Exit Function
End Function

Sub Example()
    AddVBACodeFromTXT ActiveDocument, "E:\Path\Forum\Test\Code.txt", "ThisDocument"
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Newsletter created with template on Mac has many mistakes when opened on PC	neco23	Word	1	08-27-2015 09:53 PM
When creating new template from established template macros getting lost.	TechEd	Word	3	06-09-2014 07:22 PM
Word Template is not recognised when opened by double click. Creates new document.	stevewak	Word	8	03-19-2014 05:12 AM
Creating document from template but macros are still linked to template	webharvest	Word	0	07-16-2011 09:34 AM
Macros not working when template is emailed	EMH	Excel Programming	1	07-06-2011 09:24 AM