Merging columns but not rows

[Julie]

After I send a Power POint presentation to WORD (using
links then breaking links) is there a fast way to merge
the first two columns together so that the "slide 1"
titles aren't in their own column, but are in the same
column as the slide?

It works when I merge the two cells next to each other,
but I can't figure out how to do all of them at once to
save time.

Thanks

 

[Doug Robbins - Word MVP]

Use the following code in a macro:

Dim myrange As Range, i As Integer
For i = 1 To ActiveDocument.Tables(1).Rows.Count
Set myrange = ActiveDocument.Tables(1).Cell(i, 1).Range
myrange.End = ActiveDocument.Tables(1).Cell(i, 2).Range.End
myrange.Cells.Merge
Next i


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Julie]

It worked. that's the first time I've "written" a macro
& I even figured out how to run it!

Many many thanks!
Julie