Headers and footers

[Joao_H]

I am trying to save and print reports of calculations of a program that make
adjustments. Doing that for a Word Document is fine because we can format the
text from VB .NET.

I have already all the results in a word document, but I would like to put a
Header and a Footer and page numbers on the document. However I don’t have
the finest idea how to make that!!

From VBA I can do that, but the instructions that put Header and Footer
automatically in VBA don’t work in VB .NET.

Do anyone now's how to do this from VB .NET?

Thanks

[Robin Tucker]

First, you need to get a reference to the word document, then you just use
the automation stuff as you would with VBA, but with some VB.NET syntax.
This example will create a new document and add peage numbers to the header,
aligned to the right. Make sure you add a reference to the Word object
library to your project and import the library at the top of your code.
btw: Word documents have headers and footers by default, they are just not
visible :).
Imports System.Runtime. InteropServices
Imports Word
Dim theWordApplicat ion as Word.Applicatio n
Dim theDocument as Word.Document

Try

' Create a new word application

theWordApplicat ion = New Word.Applicatio n

' Add a new document, based on this template

theDocument =
m_WordApplicati on.Documents.Ad d(Template:=CTy pe(__whatever_t he_template_it_ if_you_want_one __,
Object))

' Make the application invisible

theWordApplicat ion.Visible = False ' Make this true to see results while
debugging

' Add page numbers to the document.

Dim wordHeaderIndex As Word.WdHeaderFo oterIndex =
WdHeaderFooterI ndex.wdHeaderFo oterFirstPage

theWordApplicat ion.Sections.It em(1).Headers.I tem(wordHeaderI ndex).PageNumbe rs.Add
( _

PageNumberAlign ment:=
Word.WdPageNumb erAlignment.wdA lignPageNumberR ight, _
FirstPage:= True )

Catch Ex As Exception

' Failed.

Finally

' One thing about Interop, always Try/Catch and cleanup references.

Marshal.Release ComObject(theDo cument)
Marshal.Release ComObject(theWo rdApplication)

End Try