A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » Tables
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Merging columns but not rows



 
 
Thread Tools Display Modes
  #1  
Old April 27th, 2004, 03:38 PM
Julie
external usenet poster
 
Posts: n/a
Default Merging columns but not rows

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
  #2  
Old April 28th, 2004, 04:37 AM
Doug Robbins - Word MVP
external usenet poster
 
Posts: n/a
Default Merging columns but not rows

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" wrote in message
...
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


  #3  
Old April 28th, 2004, 11:00 PM
Julie
external usenet poster
 
Posts: n/a
Default Merging columns but not rows

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

Many many thanks!
Julie


-----Original Message-----
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" wrote in

message
...
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


.

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 12:42 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.