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

[kartechy]

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

 

[Jean-Guy Marcil]

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

This works:

Dim strField As String
Dim rgeFooter As Range
Dim i As Long

Set rgeFooter =
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

i = 1
For i = 1 To rgeFooter.Fields.Count
With rgeFooter.Fields(i)
strField = .Code
If InStr(1, strField, "INCLUDETEXT") > 0 Then
strField = Replace(strField, "V:\\", "C:\\")
.Code.Text = strField
.Update
End If
End With
Next