microsoft.public.word.vba.general

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" 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
>