Deleting multiples BLANK cells

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

delage - 30 Jan 2007 13:09 GMT

Hi, I have a very - veeery huge table, which became from an Excell worksheet.
But I have, in the past, removed the contents of several cells which are bank
now. As this document is in fact a label archive, now when I print it, there
is a lot of blank labels in the middle of the documet. I have tried to delent
ONLY the blank fields, but the only way I found is deleting one in eache
time, - and I have more that 300 blank cells!!! How can I do to delete the
blank cells, all in one time, maintaining the structure and shape of the
table, to be sure that labels will be perfectly printed in the future - but
without the blank labels?

Reply to this Message

Graham Mayor - 30 Jan 2007 13:28 GMT

See http://www.gmayor.com/convert_labels_into_mail_merge.htm then
http://www.gmayor.com/mail_merge_labels_with_word_xp.htm

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

> Hi, I have a very - veeery huge table, which became from an Excell
> worksheet. But I have, in the past, removed the contents of several
[quoted text clipped - 6 lines]
> be sure that labels will be perfectly printed in the future - but
> without the blank labels?

Reply to this Message

delage - 30 Jan 2007 13:40 GMT

Thank you, but it was not enough. Acctually, I have already "merged" the
document AND saver ad a simple word document - not "linked" to the original
excell arquive. Now, all I have is a HUGE table in a word document with a lot
of blank cells. And I cant "invert" the merge, returning to the excell,
because when I import the table to the excell, it goes as a list, with one
field over the other, in the same column...

> See http://www.gmayor.com/convert_labels_into_mail_merge.htm then
> http://www.gmayor.com/mail_merge_labels_with_word_xp.htm
[quoted text clipped - 9 lines]
> > be sure that labels will be perfectly printed in the future - but
> > without the blank labels?

Reply to this Message

Graham Mayor - 30 Jan 2007 14:13 GMT

Have you actually read the first link?

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

> Thank you, but it was not enough. Acctually, I have already "merged"
> the document AND saver ad a simple word document - not "linked" to
[quoted text clipped - 25 lines]
>>> to be sure that labels will be perfectly printed in the future - but
>>> without the blank labels?

Reply to this Message

delage - 30 Jan 2007 15:06 GMT

yes, thank you. It is perfect. I will try!

> Have you actually read the first link?
>
[quoted text clipped - 27 lines]
> >>> to be sure that labels will be perfectly printed in the future - but
> >>> without the blank labels?

Reply to this Message

Greg Maxey - 30 Jan 2007 13:56 GMT

I just threw this together so please test on a copy of your document
first:

Sub RefillTable()
Dim myArray() As String
Dim oTbl As Word.Table
Dim cCnt As Long
Dim i As Long
Dim txtCnt As Long
Dim oRng As Word.Range
Set oTbl = Selection.Tables(1)
cCnt = oTbl.Range.Cells.Count
ReDim myArray(cCnt - 1)
txtCnt = 0
For i = 1 To cCnt
Set oRng = oTbl.Range.Cells(i).Range
If oTbl.Range.Cells(i).Range.Text <> Chr(13) & Chr(7) Then
oRng.MoveEndWhile Cset:=Chr(13) & Chr(7), Count:=wdBackward
myArray(txtCnt) = oRng.Text
txtCnt = txtCnt + 1
oRng.Delete
End If
Set oRng = Nothing
Next
ReDim Preserve myArray(txtCnt)
For i = 0 To txtCnt
oTbl.Range.Cells(i + 1).Range.Text = myArray(i)
Next i
End Sub

> Hi, I have a very - veeery huge table, which became from an Excell worksheet.
> But I have, in the past, removed the contents of several cells which are bank
[quoted text clipped - 5 lines]
> table, to be sure that labels will be perfectly printed in the future - but
> without the blank labels?

Reply to this Message