FileSaveAs and UpdateAllFields macros not working in new document

[shawnee24]

Hi, I have a .docx document that I am doing a directory merge into. This document has both the FileSaveAs and UpdateAllFields macros in the footer to automatically update the file name each time it is saved as. However, after I finish the merge into a new document, while the macros are still there, they don't seem to run. I Save As the new file name and the file name field in the footer does not update to the new saved as name. I have tested the base document over and over again and these macros operate well. It's just after the merge is finished in the new document they don't run. I am very much a beginner in both the merge and macro tasks... Thanks in advance!

[gmayor]

There are questions
What do you mean by 'macros in the footer?' You can't have macros in a footer. You can have them act on a footer but then you say your document is DOCX format and that cannot store macros, so where have you stored the macros?
For macros to work on any document they must be stored in a global template. By default that would be the normal template.

It would help if you posted your FileSaveAs code so we can see what the macro does.

For an update all fields macro - take a look at the example code at http://www.gmayor.com/installing_macro.htm This will cover most situations - certainly fields in header/footers.

The FileSaveAs macro would have to either determine the name with which the document is to be saved, then write it to the footer, or apply it to a docvariable field in the footer, or it would have to save the document, update the filename field then save it again to store the new value.

[shawnee24]

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

[gmayor]

The reason that the field in the footer does not update is that the merge process changes the filename field that you are trying to update into plain text. It would therefore be better if you removed the filename field from the merge document, and then add it after the merge e.g. call the following macro to add the field to the merged document after you have saved it (and note that it will need to be saved again).

Sub AddFilename()
Dim oSection As Section
Dim oFooter As HeaderFooter
Dim oFld As field
Dim bFound As Boolean
Dim oRng As Range
    For Each oSection In ActiveDocument.Sections
        Set oFooter = oSection.Footers(wdHeaderFooterPrimary)
        For Each oFld In oFooter.Range.Fields
            If oFld.Type = wdFieldFileName Then
                bFound = True
                Exit For
            End If
        Next oFld
        If Not bFound Then
            oFooter.Range.InsertParagraphAfter
            Set oRng = oFooter.Range.Paragraphs.Last.Range
            oRng.ParagraphFormat.Alignment = wdAlignParagraphRight
            oRng.Fields.Add oRng, wdFieldFileName, " \p", False
            oRng.Fields.Update
        End If
    Next oSection
lbl_Exit:
    Exit Sub
End Sub

[shawnee24]

I've had a chance to test this finally and it does work well - thank you very much!! However (sorry), how would I be able to have just the file name and not the path?

Thanks for your help

[gmayor]

Change

oRng.Fields.Add oRng, wdFieldFileName, " \p", False

to

oRng.Fields.Add oRng, wdFieldFileName, , False