Text box continued on page...

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is there a way to put a footnote or something onto a textbox that tells what
page the next linked textbox is located on? I'm making a newsletter with a
story on the first page that continues on a different page.

Thanks in advance for your help.

Wes
 
Is there a way to put a footnote or something onto a textbox that tells what
page the next linked textbox is located on? I'm making a newsletter with a
story on the first page that continues on a different page.

Thanks in advance for your help.

Wes

Put a bookmark in the body text (not in the text box) where the
continuation text box is anchored. In the final line of the first text
box, place the continuation note and include a PageRef field
containing the name of the bookmark. Format it so it's distinct from
the text.

Fields inside text boxes don't update automatically. If you have only
a few text boxes, you can manually select each continuation note and
press F9 to update the fields. If there are many text boxes to update,
this macro should work, although I've sometimes seen odd results
(fields showing the wrong page numbers, when manual updates work
properly):

Sub UpdatePageRefsInTextBoxes()
Dim oTB As Shape
ActiveDocument.Repaginate
For Each oTB In ActiveDocument.Shapes
With oTB
If .Type = msoTextBox Then
.TextFrame.TextRange.Fields.Update
End If
End With
Next oTB
End Sub
 
Thanks!



Jay Freedman said:
Put a bookmark in the body text (not in the text box) where the
continuation text box is anchored. In the final line of the first text
box, place the continuation note and include a PageRef field
containing the name of the bookmark. Format it so it's distinct from
the text.

Fields inside text boxes don't update automatically. If you have only
a few text boxes, you can manually select each continuation note and
press F9 to update the fields. If there are many text boxes to update,
this macro should work, although I've sometimes seen odd results
(fields showing the wrong page numbers, when manual updates work
properly):

Sub UpdatePageRefsInTextBoxes()
Dim oTB As Shape
ActiveDocument.Repaginate
For Each oTB In ActiveDocument.Shapes
With oTB
If .Type = msoTextBox Then
.TextFrame.TextRange.Fields.Update
End If
End With
Next oTB
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top