View Single Post
 
Old 03-25-2015, 06:05 AM
shawnee24 shawnee24 is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Mar 2015
Posts: 6
shawnee24 is on a distinguished road
Default

You are right - macro is not in the footer - said it wrong. I want the macro to execute a function in the footer. As well, I changed my document to .dotm yesterday after reading copious amounts of info online. Still not working. Here is exactly what I want to do - I have a "base" document that I am doing a directory merge into to produce 1 new document with all my data in a table format. Works perfectly. However, the base document has my macros, which are to update my file name in the footer when the new document is "saved as" (via print preview). This is not working. If I "save as" before executing the merge the correct doc name appears in the footer; however, if I were to "save as" again after the merge, it won't update. Here are the macros:

Sub UpdateAllFields()
Dim currentView As WdViewType
currentView = ActiveWindow.View
Options.UpdateFieldsAtPrint = True
ActiveWindow.View = wdPrintPreview
ActiveWindow.View = currentView
End Sub

Sub FileSaveAs()
Dim dlg As Dialog
Set dlg = Dialogs(wdDialogFileSaveAs)
dlg.Show
UpdateAllFields
End Sub


I am setting up a range of template documents that are schedules to legal documents and essentially are the same template; however, the data being merged into them changes, depending on the template. I have a team of users who will be doing the "mass production" of these documents and am trying to have them set up so there is continuity and uniformity to all the documents despite the number of people who will be using them. The only way to differentiate between all of these documents is to be sure the file name is accurate in each footer.
Thanks for your time
Reply With Quote