Need to resize 350 text boxes!!!!

[RM]

I finished a 350 pg book in publisher. After reading the first draft the
customer
wants to change the book size up an inch all around. How can I apply the same
text box size to all text boxes in the publisher file? I'm going to eat my
profit up on this one if I have to redo this all manually. PLEASE HELP!!

 

[Mary Sauer]

It would seem to me your client ought to perform this operation and re-submit. If the
margins are made larger, this will mean the book will have more pages, conversely if
the margins are smaller you will have less pages.
Are all the text boxes linked?
Create a new publication, link two text boxes with the corrected margin, in the book
publication, put the cursor in the first text box, file, select all, copy, paste into
the new publication, Publisher will automatically create text boxes and pages.
Good luck...
Your client ought to think about using Word, it is far more suitable for long
documents.

 

[Ed Bennett]

I finished a 350 pg book in publisher. After reading the first draft
the customer
wants to change the book size up an inch all around. How can I apply
the same text box size to all text boxes in the publisher file? I'm
going to eat my profit up on this one if I have to redo this all
manually.

Use a macro.

Alt+F11 opens the macro editor.

Sub ResizeTextBoxes()
Dim aShape As Shape
Dim aPage As Page
ThisDocument.BeginCustomUndoAction ("Resize All Text Boxes")
For Each aPage In ThisDocument.Pages
For Each aShape In aPage.Shapes
If aShape.HasTextFrame = msoTrue Then
aShape.Top = aShape.Top + InchesToPoints(0.5)
aShape.Left = aShape.Left + InchesToPoints(0.5)
aShape.Width = aShape.Width - InchesToPoints(1)
aShape.Height = aShape.Height - InchesToPoints(1)
End If
Next
Next
ThisDocument.EndCustomUndoAction
End Sub

(This code would normally cost £30 to have written by me, but I felt it was
simple enough that I would do it for free. Please feel free to contact me
by email at
the DOT nerd DOT uk AT gmail DOT com
if you want to help me get through my degree.
(Please do not post the "corrected" address to the newsgroup, I posted it
munged for a reason)

 

[Mary Sauer]

Hey Ed, if another poster needs this information, can I pass it on?

 

[Ed Bennett]

Hey Ed, if another poster needs this information, can I pass it on?

Sure thing

That macro should take every text box in the publication and shrink it by 1"
in both directions, and then move it 0.5" to the right and down. I haven't
tested it extensively, so it might not work.

 

[JoAnn Paules [MSFT MVP]]

But if you don't make the text smaller, aren't you going to run into another
problem?

 

[Ed Bennett]

But if you don't make the text smaller, aren't you going to run into
another problem?

Yeah, but that requires more coding or manual alteration.

 

[JoAnn Paules [MSFT MVP]]

Don't tell the OP I said this but I'm glad that I'm not doing that job.
(shhhhhhhhhhh!)

--

JoAnn Paules
MVP Microsoft [Publisher]

 

[Rob Giordano \(Crash\)]

Sounds like a billable change-order to me!


| Don't tell the OP I said this but I'm glad that I'm not doing that job.
| (shhhhhhhhhhh!)
|
| --
|
| JoAnn Paules
| MVP Microsoft [Publisher]
|
|
|
| | > JoAnn Paules [MSFT MVP] <[email protected]> was very recently heard
| > to utter:
| >> But if you don't make the text smaller, aren't you going to run into
| >> another problem?
| >
| > Yeah, but that requires more coding or manual alteration.
| >
| > --
| > Ed Bennett - MVP Microsoft Publisher
| >
|
|