Add text box to each page in a word doc

macropod · #6 01-10-2014, 03:17 PM

Quote:

Originally Posted by jakeic

I amended it a little bit to fit my purpose better, I added a userform to obtain the reference information from the user.

then store the starting reference numerical number in variable: Myref
say the user input 100
myref = 100

and i would like to reference the first page as 100, the next one is 101... etc

There are at least three ways of handling this:
1. set the page StartingNumber to whatever you want. For example, use:

Code:

.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = myref

2. hard-code the page #s instead of using a field. For example, use:

Code:

.Text = "Ref. No.: " & StrPre & (i + myref - 1) & vbCr & "Signature " & Format(Now, "DDDD, D MMM YYYY")

and replace:

Code:

        Set Rng = .Paragraphs.First.Range
        With Rng
          .Font.ColorIndex = wdRed
          .End = .End - 1
          .Collapse wdCollapseEnd
        End With
        .Fields.Add Range:=Rng, Type:=wdFieldEmpty, Text:="PAGE \# 000", PreserveFormatting:=False

with:

Code:

.Paragraphs.First.Range.Font.ColorIndex = wdRed

3. add a calculation to the page# field code. Either of the above two should meets your needs, though.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Text disappears (but headings and text boxes ok) when printing 1 page of a document	msfordummies	Word	1	02-21-2013 10:28 PM
Macro to Add Text and Page Number to Top of Each Page Within Text	eslight	Word VBA	10	12-07-2012 08:18 PM
Selection of all Text for a specific page in word is spanning selection across pages	ramsgarla	Word VBA	9	12-05-2012 03:23 AM
2 page document printing problem, text from page 1 in layout of page 2 when printed	laurawether45	Word	1	08-02-2012 07:03 AM
MS Word, page goes to next page when entering data on previous page	munna94	Word	2	12-30-2010 08:12 AM