Remove text from a range

Hi
I need this macro to merge cells and remove all text.

**********************************************
Sub MergeRangeAndRemoveText()
Dim rng As Range

Set rng = ActiveDocument.Range _
(Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)

rng.Cells.Merge

rng.Text = ""
End Sub
**********************************************

The merge works fine, but the text is not removed.

Thanks
Harold

Stefan
Mon Mar 03 03:49:39 PST 2008

Delete the text first, and then merge the cells:

Sub MergeRangeAndRemoveText()

Dim rng As Range
Dim i As Long, j As Long

For i = 5 To 6
For j = 3 To 5
ActiveDocument.Tables(1).Cell(Row:=i, Column:=j). _
Range.Text = ""
Next j
Next i

Set rng = ActiveDocument.Range _
(Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)

rng.Cells.Merge

End Sub

FWIW, working with ranges and table columns is tricky. The following code,
used on a document that has a table with at least six rows and more than
five columns, illustrates the problem:

Set rng = ActiveDocument.Range _
(Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)

rng.Select

rng.Font.Bold = True
Selection.Font.Name = "Courier New"

Note which cells will be bold and which will be in Courier New!

--
Stefan Blom
Microsoft Word MVP


"Harold Druss" wrote in message
news:U4udnePN_65QTVbanZ2dnUVZ_jSdnZ2d@comcast.com...
> Hi
> I need this macro to merge cells and remove all text.
>
> **********************************************
> Sub MergeRangeAndRemoveText()
> Dim rng As Range
>
> Set rng = ActiveDocument.Range _
> (Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
> End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)
>
> rng.Cells.Merge
>
> rng.Text = ""
> End Sub
> **********************************************
>
> The merge works fine, but the text is not removed.
>
> Thanks
> Harold
>

Tony
Mon Mar 03 04:13:01 PST 2008

Very interesting. It 'works' in Word 2007, but not in 2003. I didn't know
there had been a change in behaviour.

The Range you define includes cells (5,3), (5,4), (5,5), ..., (5, last) ,
(6,1), (6,2), ..., (6,5)

If you Select it (rng.Select) then just the block (5,3), (5,4), (5,5),
(6,3), (6,4), (6,5) is selected and it is this block that is merged - as you
already know.

After the merge the Range appears to be redefined (in 2003) which is why the
text in the merged cell is not deleted.

If you redefine it yourself you will be able to delete the text.

Sub MergeRangeAndRemoveText2()
Dim rng As Range

Set rng = ActiveDocument.Range _
(Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)

rng.Cells.Merge

Set rng = ActiveDocument.Range _
(Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
End:=ActiveDocument.Tables(1).Cell(5, 3).Range.End)

rng.Text = ""
End Sub


--
Enjoy,
Tony

"Harold Druss" <hdruss@comcast.net> wrote in message
news:U4udnePN_65QTVbanZ2dnUVZ_jSdnZ2d@comcast.com...
> Hi
> I need this macro to merge cells and remove all text.
>
> **********************************************
> Sub MergeRangeAndRemoveText()
> Dim rng As Range
>
> Set rng = ActiveDocument.Range _
> (Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
> End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)
>
> rng.Cells.Merge
>
> rng.Text = ""
> End Sub
> **********************************************
>
> The merge works fine, but the text is not removed.
>
> Thanks
> Harold
>

Harold
Mon Mar 03 11:55:42 PST 2008


"Harold Druss" <hdruss@comcast.net> wrote in message
news:U4udnePN_65QTVbanZ2dnUVZ_jSdnZ2d@comcast.com...
> Hi
> I need this macro to merge cells and remove all text.
>
> **********************************************
> Sub MergeRangeAndRemoveText()
> Dim rng As Range
>
> Set rng = ActiveDocument.Range _
> (Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
> End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)
>
> rng.Cells.Merge
>
> rng.Text = ""
> End Sub
> **********************************************
>
> The merge works fine, but the text is not removed.
>
> Thanks
> Harold

Hi Tony and Stefan
I should have mentioned I'm using Word 2003.

Thank you both for two working solutions.

I appreciate the help.

Harold

Harold
Thu Mar 06 02:44:36 PST 2008

Hi All
I cannot merge a cell at row 1, column 1
with a cell at row 2, column 1 using a range object.
I can only merge those two cells using selection method.

****************************************************
Dim rng As Range

Set rng = ActiveDocument.Range _

(Start:=ActiveDocument.Tables(1).Cell(1, 1).Range.Start, _
End:=ActiveDocument.Tables(1).Cell(2, 1).Range.End)

rng.Cells.Merge
****************************************************
Just curious
Harold

"Harold Druss" <hdruss@comcast.net> wrote in message
news:U4udnePN_65QTVbanZ2dnUVZ_jSdnZ2d@comcast.com...
> Hi
> I need this macro to merge cells and remove all text.
>
> **********************************************
> Sub MergeRangeAndRemoveText()
> Dim rng As Range
>
> Set rng = ActiveDocument.Range _
> (Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
> End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)
>
> rng.Cells.Merge
>
> rng.Text = ""
> End Sub
> **********************************************
>
> The merge works fine, but the text is not removed.
>
> Thanks
> Harold
>

Tony
Thu Mar 06 08:49:29 PST 2008

It's good to be curious.

Actually, the oddity is cells you _can_ merge with a range, rather than the
ones you can't.

When you select a range as you are doing, it (the Range, but not the
Selection - select the two cells in the UI and then look at
selection.cells.count versus selection.range.cells.count to get a flavour of
this) includes all cells from the first one, reading left to right, top to
bottom to the last one. This group of cells cannot (usually) all be merged.
When you get the result you want it is because Word is recognising the
discrepancy and taking special action to do what it thinks you must mean.
Word doesn't always manage it and sometimes you get an error. I don't know
all the circumstances and, as I pointed out before, it seems that some
behaviour has changed in 2007, but in general, merging cells is one of those
rare actions better taken with the selection than a range.

--
Enjoy,
Tony

"Harold Druss" <hdruss@comcast.net> wrote in message
news:TfudnSYo7KqJVlLanZ2dnUVZ_q6mnZ2d@comcast.com...
> Hi All
> I cannot merge a cell at row 1, column 1
> with a cell at row 2, column 1 using a range object.
> I can only merge those two cells using selection method.
>
> ****************************************************
> Dim rng As Range
>
> Set rng = ActiveDocument.Range _
>
> (Start:=ActiveDocument.Tables(1).Cell(1, 1).Range.Start, _
> End:=ActiveDocument.Tables(1).Cell(2, 1).Range.End)
>
> rng.Cells.Merge
> ****************************************************
> Just curious
> Harold
>
> "Harold Druss" <hdruss@comcast.net> wrote in message
> news:U4udnePN_65QTVbanZ2dnUVZ_jSdnZ2d@comcast.com...
>> Hi
>> I need this macro to merge cells and remove all text.
>>
>> **********************************************
>> Sub MergeRangeAndRemoveText()
>> Dim rng As Range
>>
>> Set rng = ActiveDocument.Range _
>> (Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
>> End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)
>>
>> rng.Cells.Merge
>>
>> rng.Text = ""
>> End Sub
>> **********************************************
>>
>> The merge works fine, but the text is not removed.
>>
>> Thanks
>> Harold
>>
>
>