Group: microsoft.public.word.vba.general
From: =?Utf-8?B?R3Jlbmllcg==?=
Date: Monday, February 25, 2008 5:25 PM
Subject: Re: Update table cell in footer !

tried it both way and still does not work ...

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2,2).Range.Text = "updated on february 25"

Set rng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
With rng.Tables(1).Cell(1, 1).Range
.Text = "updated on february 25"
End With

any guess ?

Safety Articles | Usenet Groups | Usenet News | Bluegrass