Am Thu, 19 Oct 2006 22:32:02 UTC,  schrieb Jeffery B Paarsa
<JeffBPaarsa@Yahoo.com>  auf microsoft.public.word.vba.general :

 Here is a sample from a program which creates a new document and
then inserts fields in header and footer, namely {TILE} in the
header and '{PAGE} of {NUMPAGES}' in the footer:

<CODE>
     ':::::::::::::::::::::::::
     With newDoc.Sections(1)
      .Headers(wdHeaderFooterPrimary).Range.Fields.Add _
          Range:=.Headers(wdHeaderFooterPrimary).Range, _
          Type:=wdFieldTitle
      .Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment
_
          = wdAlignParagraphCenter
      '
      .Footers(wdHeaderFooterPrimary).Range.Fields.Add _
          Range:=.Footers(wdHeaderFooterPrimary).Range, _
          Type:=wdFieldPage
      .Footers(wdHeaderFooterPrimary).Range.Collapse _
          Direction:=wdCollapseEnd
      .Footers(wdHeaderFooterPrimary).Range.InsertAfter " von "
      ' here I have to redefine a range, so that the next field is
      ' inserted after the text and does not replace it:
      Set myRange = .Footers(wdHeaderFooterPrimary).Range
      myRange.Collapse Direction:=wdCollapseEnd
      .Footers(wdHeaderFooterPrimary).Range.Fields.Add _
          Range:=myRange, Type:=wdFieldNumPages
      .Footers(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment
_
          = wdAlignParagraphCenter
     End With
     ':::::::::::::::::::::::::
</CODE>

  you would have to code a

  .Headers(wdHeaderFooterPrimary).Range.Fields.Add _
      Range:=MyRange, Type:=wdFieldIncludeText, _
      Text:=.AttachedTemplate.Path _
            & Application.PathSeparator & "textfile.txt", _
      True

     
  Well, maybe not "wdHeaderFooterPrimary", since I understand that
you have various headers and footers. The "True" at the and creates
this "\* MERGEFORMAT" to preserve the formatting given to the field
resp. the range it is replacing or inserted into.

  Please note that I am also still a beginner and the above could
maybe be coded in a better way -- but I for myself just don't know
better. Always learning.

  My example above does not use a template, but creates everything
from scratch; you start with a template which just -- maybe -- needs
some editing.

  I think you could also set the ShowFieldCodes of the View on your
HeaderFooter-Object to True and then change the filename in the
INCLUDETEXT field by a Search/Replace.

  At the end, don't forget the .Fields.Update

Yours,
L.W.