#1
|
|||
|
|||
Delete Empty Table Rows
Hi there,
I've been using a VBA macro to delete empty table rows that runs effectively in the document's body/content. Document as attached. However, I can't run the same VBA macro in the header that used textbox to contain the table rows. I've been trying many ways to make it work, but can't. Appreciate if anyone here can help me with this. Thank you in advance. |
#2
|
||||
|
||||
The simplest solution is to convert the text box to a frame. If you want to keep the space (and if you did why remove the rows in an unbordered table) set the frame height to exact - otherwise set it to auto so it will shrink (as in the attached). You can then loop through the story ranges and remove the empty rows, modifying your code to process the range rather than the document.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Thanks Gmayor, it works well. But it always gave run-time error '13' : Type mismatch after the macro ends.
When i debug, Set oStory = oShape.TextFrame is highlighted. Not sure what's wrong. |
#4
|
||||
|
||||
My fault, I sent you an unsaved earlier version
The sub should be Code:
Sub ProcessRanges() Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges DeleteEmptyRows oStory If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange DeleteEmptyRows oStory Wend End If Next oStory Set oStory = Nothing End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#5
|
|||
|
|||
It works perfect! Thank you gmayor!
|
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Macro to delete all empty rows from all tables | braddgood | Word VBA | 15 | 10-02-2015 01:54 PM |
Delete row with empty cel in a table | vibor | Word VBA | 9 | 05-03-2015 05:42 AM |
Delete All empty Rows - Print - Undo all Rows deleted | Bathroth | Word VBA | 1 | 10-01-2014 01:40 PM |
Creating VBA Code to Delete Empty Column in Table | Faugs | Word VBA | 5 | 08-07-2014 03:29 PM |
Macro to delete rows with all empty cells | ubns | Excel Programming | 2 | 08-14-2012 02:01 AM |