Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #4  
Old 04-27-2015, 02:42 PM
vibor vibor is offline Delete row with empty cel in a table Windows XP Delete row with empty cel in a table Office 2003
Novice
Delete row with empty cel in a table
 
Join Date: Feb 2015
Posts: 5
vibor is on a distinguished road
Default

Thank you Guessed and gmaxey,

The solution from gmaxey is working ( Whoow!).
Great great! Thanks.

I Have 2 tables, 1 with 4 and one with 3 coulombs.
So the code is:

HTML Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
 
'check table 11
Selection.GoTo What:=wdGoToBookmark, Name:="Nr11"
Do
If Len(Selection.Tables(1).Rows.Last.Range.Text) = 10 Then
Selection.Tables(1).Rows.Last.Delete
Else
Exit Do
End If
Loop
'Check table 15
Selection.GoTo What:=wdGoToBookmark, Name:="Nr15"
Do
If Len(Selection.Tables(1).Rows.Last.Range.Text) = 8 Then
Selection.Tables(1).Rows.Last.Delete
Else
Exit Do
End If
Loop
 
End Sub
Although this is working OK, I have still 2 problems.
1st. is the make up/cosmetic:
The inner horizontal lines of the table are gray, the borders and the vertical lines are black.
After the scratch the bottom line is grey. What can I do about it?

2nd.
There is another table in my document with 11 coulombs.
In coulomb 1 and 7 is always a number present.
How can I ignore coulombs 1 and 7?

I hope you can help me. It would be very nice.

GrtZ ViBoR
Reply With Quote
 

Tags
empty cell delete row



Similar Threads
Thread Thread Starter Forum Replies Last Post
Delete row with empty cel in a table 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 Delete empty cell and shift up Linh Word Tables 1 09-21-2014 01:52 PM
Creating VBA Code to Delete Empty Column in Table Faugs Word VBA 5 08-07-2014 03:29 PM
Delete lots of empty space between paragraphs. FieldTechnician Word 4 10-25-2013 01:14 PM
Delete row with empty cel in a table Macro to delete rows with all empty cells ubns Excel Programming 2 08-14-2012 02:01 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:54 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft