#1
|
|||
|
|||
Run Time Error 5843 When Applying Border
I have a macro that applies a border as follows:
Code:
With Selection With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With End With |
#2
|
||||
|
||||
Your macro works with multiple pages of text. What else is on the page?
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
It seems to be a problem when there are a large number of short paragraphs in a row. For example, I have been able to reproduce the issue by pasting the following in a new Word doc (enough to cover two pages):
Code:
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Duis blandit diam at eros luctus, et porta risus pulvinar. Suspendisse potenti. Code:
.LineWidth = Options.DefaultBorderLineWidth Does this help pinpoint the issue? |
#4
|
||||
|
||||
Unfortunately not, but I can now repeat the issue.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#5
|
|||
|
|||
The specified line width is not valid for border line style wdLineStyleSingle, so this generates an error.
Without setting the line width, you don't get the expected result? You might try other border styles.
__________________
Backup your original file before doing any modification. |
#6
|
||||
|
||||
It doesn't matter what you set the line width to - the error still occurs.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#7
|
|||
|
|||
Yes, thanks. The error occurs only when there is a blank paragraph between paragraphs, precisely between the end of 2nd and start of the 3rd page.
__________________
Backup your original file before doing any modification. |
#8
|
|||
|
|||
Thank you both for your help. It’s unfortunate this bug exists, but at least the following works to approximate what I was going for:
Code:
With Selection.Borders .Enable = True .InsideLineStyle = False End With |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Word Error Message Run time Error 4605 | baes10 | Word VBA | 1 | 08-30-2018 02:37 PM |
Applying individual border sides to images when pasted into a table | Duvdev | Word VBA | 1 | 03-27-2014 03:12 AM |
Get Run-time Error 11 | Jamtart | PowerPoint | 2 | 08-31-2012 05:04 AM |
Does Word do this when applying Styles to a paragraph a second time? | Bobosmite | Word | 2 | 04-17-2012 02:13 PM |
Word Visual Basic error - run time error 504 | crazymorton | Word | 11 | 01-13-2012 04:32 AM |