Macro to add / update document version

[Kilroy]

This is what I use when I need to capture those types of details. How to make it happen for every document I'm not sure.

[CODE]Sub OnCloseAddFooter()

DimFilename AsString
DimSec As Section

Filename= ThisDocument.FullName

ForEach Sec InActiveDocument.Sections
WithSec.Footers(wdHeaderFooterPrimary)
.Range.InsertDateTime DateTimeFormat:="MM/dd/yyyy H:mm", InsertAsField:= _
True,DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern
.Range.Text = .Range.Text &Filename
.PageNumbers.Add
EndWith
NextSec

EndSub
[/CODE]