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. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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 | |
|
|