FileSaveAs and UpdateAllFields macros not working in new document

gmayor · #4 03-25-2015, 08:04 AM

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).

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can DocumentBeforeSave replace FileSaveAs	Macer	Word VBA	2	06-05-2015 10:03 PM
This macros are not working in office english version 2007	hans	Excel Programming	4	12-10-2011 07:03 AM
Macros not working when template is emailed	EMH	Excel Programming	1	07-06-2011 09:24 AM
Macros not working in word 2010	louise_chapman	Word VBA	3	10-25-2010 08:34 AM
FileSaveAs with Code	bsmith	Office	0	01-05-2006 08:43 AM