Border error message regarding pt size

L

Laura Kay

I'm trying to format borders in a table and the error messge "The measurement
must be between 1 pt and 31 pt" appears.

I've changed the pt size to 1 pt but it doesn't help. It's only in this one
document. If I cut and paste to a new document the borders function works
fine. Unfortunately, it's a huge document and I can't copy the whole thing
to a new document. Anyone have experience or a solution with this?
 
S

Suzanne S. Barnhill

The error message is referring not to the border weight but the "Distance
from text."
 
J

Jay Freedman

It isn't complaining about the width of the border. Somehow you've gotten a
bad setting for a page border.

In the Format > Borders and Shading dialog, go to the Page Border tab and
click the Options button at the lower right. Each of the four boxes in the
Margins group must be set to a number between 1 and 31 pt. (If this is set
wrong, it doesn't matter that the Page Border itself is set to None.)

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
D

David Henschel

Hi Jay, I am having the same error, however the error occurs when you try to get into the 'page borders' tab, and Word won't let me enter the tab to change the settings. Any idea on how to get around this? Thanks, Dave
 
L

Larry Dees

I am having the same error, however the error occurs when you try to get into
the 'page borders' tab, and Word won't let me enter the tab to change the
settings. Any idea on how to get around this?
 
J

Jean-Guy Marcil

Larry Dees was telling us:
Larry Dees nous racontait que :
I am having the same error, however the error occurs when you try to
get into the 'page borders' tab, and Word won't let me enter the tab
to change the settings. Any idea on how to get around this?

Try running this macro, you can change the distances (in points):

Sub SetPageBorderDistance()

With Selection.Sections(1)
With .Borders
.DistanceFromTop = 15
.DistanceFromLeft = 15
.DistanceFromBottom = 15
.DistanceFromRight = 15
End With
End With

End Sub

If you need help with using a macro:
http://word.mvps.org/faqs/macrosvba/CreateAMacro.htm
 
R

Rutabaga

Howdy,

My problem may be the same as others' in here. I had a light gray border
going down the entire length of my Word doc, but when I tried to get to the
Page Border tab in Borders and Shading, I was always confronted with the
message "the measurement must be between 1 pt and 31 pt". The only choice I
had was to close the Borders and Shading box without making any changes.

I was able to access the Page Border tab by choosing Format > Reveal
Formatting, expanding the Section formatting, then clicking Borders.
HOWEVER...

When I selected None in the Borders and Shading window, I still got the
"measurement must be between 1 and 31" message. To resolve this, I went to
the Art pulldown list and selected the apples to apply to the whole document,
then pressed OK. This gave me a border of apples around the whole doc, but I
was then able to re-open the Borders and Shading window and choose None
without any error messages.
 
K

kgaletto

I'm trying to format borders in a table and the error messge "The measurement
must be between 1 pt and 31 pt" appears.

I've changed the pt size to 1 pt but it doesn't help. It's only in this one
document. If I cut and paste to a new document the borders function works
fine. Unfortunately, it's a huge document and I can't copy the whole thing
to a new document. Anyone have experience or a solution with this?

Make sure you accept all changes to the document first. From your document click on Tools>Macro>Macro's and "Create" a new macro
Copy and paste the following into the new macro and run the macro:
Sub SetPageBorderDistance()

Selection.WholeStory
With Selection.Borders

.DistanceFromTop = 0.5
.DistanceFromLeft = 0.5
.DistanceFromBottom = 0
.DistanceFromRight = 0
End With
With Selection.Sections(1)
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With .Borders
.DistanceFrom = wdBorderDistanceFromPageEdge
.AlwaysInFront = True
.SurroundHeader = True
.SurroundFooter = True
.JoinBorders = False
.DistanceFromTop = 24
.DistanceFromLeft = 24
.DistanceFromBottom = 24
.DistanceFromRight = 24
.Shadow = False
.EnableFirstPageInSection = True
.EnableOtherPagesInSection = True
.ApplyPageBordersToAllSections
End With
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
End Sub
 
K

kgaletto

First accept all changes in the document. Then go to Tools > Macro > Macros... and click "Create" button.
Copy and paste the following into the macro area:
Sub SetPageBorderDistance()

Selection.WholeStory
With Selection.Borders

.DistanceFromTop = 0.5
.DistanceFromLeft = 0.5
.DistanceFromBottom = 0
.DistanceFromRight = 0
End With
With Selection.Sections(1)
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
With .Borders
.DistanceFrom = wdBorderDistanceFromPageEdge
.AlwaysInFront = True
.SurroundHeader = True
.SurroundFooter = True
.JoinBorders = False
.DistanceFromTop = 24
.DistanceFromLeft = 24
.DistanceFromBottom = 24
.DistanceFromRight = 24
.Shadow = False
.EnableFirstPageInSection = True
.EnableOtherPagesInSection = True
.ApplyPageBordersToAllSections
End With
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
End Sub


Run the Macro
 

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

Top