How to change the "includeText" field value in the Footer via VB/VBA

[kart...@googlemail.com]

Hi,

Im trying to change the "IncludeText" values in a word document
throguh VB (VBA) , I need to change lot of word documents (nearly
500) , I could change the values of the "includtext" fields in the
document body using the following

' /// after opened the document
lcode = WordDoc.Fields(i).Code
If Left(lcode, 12) = " INCLUDETEXT" Then
newCode = Replace(lcode, "V:\\", "C:\\")
WordDoc.Fields(i).Code.Text = newCode
WordDoc.Fields(i).Update
End If
' // save and close document and word objects

but this code is not changing the "includetext" in the
footer..

I dont know how to proceed now..can anyone help me here

Thanks