Add Page Numbers to Word Document Footer - Xtreme Visual Basic Talk

03-09-2012, 11:24 AM

jojo69

Freshman

Join Date: Oct 2008

Posts: 26

Add Page Numbers to Word Document Footer

Hi!

I am trying to add page numbers to the footer of my report.

I want for it to appear as:

Text Page

(Please)

The code I have is as follows:

Code:

 Dim currentFooter As HeaderFooter = oDoc.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary)


currentFooter.Range.InsertAfter(Today & "OMHSAS-MIS" & vbTab & vbTab & "Page ") 

currentFooter.Range.Collapse(WdCollapseDirection.wdCollapseEnd)

       
currentFooter.Range.Fields.Add(currentFooter.Range, WdFieldType.wdFieldPage, True)

My problem is the page number replaces the text.

I would be very grateful for any help.

Ijaz

03-13-2012, 04:58 PM

DennisW

Junior Contributor

Join Date: Mar 2006

Location: Östersund, Sweden

Posts: 268

Hi,
I don't have the knowledge of Word to guide You with. However, I guess You need to clear the footer first and then add the customized set up. The page number is probably the default value.

__________________
Kind regards,
Dennis

.NET & Excel | 2nd edition PED | MVP

Posting Rules

You may not post new threads

You may not post replies

You may not post attachments

You may not edit your posts

BB code is On

Smilies are On

[IMG] code is Off

HTML code is Off

Forum Rules