Add text box to each page in a word doc

macropod · #1 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.

jakeic · #2 01-10-2014, 04:14 PM

Thanks a lot Macropod.

this is almost my final code:

Code:

Dim x As Long, Rng As Range, Shp As Shape
With ActiveDocument
 
  For x = 1 To .ComputeStatistics(wdStatisticPages)
    Set Rng = .GoTo(What:=wdGoToPage, Name:=x)
    Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
    Rng.Collapse wdCollapseStart
    Set Shp = .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
      Left:=0, Top:=0, Width:=100, Height:=40, Anchor:=Rng)
    With Shp
      .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
      .Left = wdShapeRight
      .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
      .Top = wdShapeTop
      .Fill.Visible = False
      With .TextFrame.TextRange
        .Font.Bold = True
        .Font.ColorIndex = wdBlue
        .Text = AlphaPortion & StrPre & (x + NumPortion) & vbCr & Me.TextBox2.Value & " " & Format(Now, "D MMM YYYY")
        .ParagraphFormat.SpaceAfter = 0
        Set Rng = .Paragraphs.First.Range
        With Rng
         .Font.ColorIndex = wdRed
        .End = .End - 1
          .Collapse wdCollapseEnd
        End With
 
      End With
    End With
  Next
End With
End Sub

however, there is a small bug for this code, when i run it, it seems it will first add text box to the last page, and then starting from the second page, until the last page again.

So the first page won't have any textbox, but the last page would have two, one cover over the other one.

Im not sure where did i do wrong?

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