A family of Microsoft word processing software products for creating web, email, and print documents.
In the footer, insert the following field
{ DOCVARIABLE filename }
and then run a macro containing the following code
Dim i As Long, j As Long
With ActiveDocument
.Variables("filename") = Left(.Name, InStr(.Name, ".") - 1)
For i = 1 To .Sections.Count
With .Sections(i)
For j = 1 To .Footers.Count
.Footers(j).Range.Fields.Update
Next j
End With
Next i
End With