Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Convert vertical table to horizontal?
I have a table that lists vertically and I want to convert that table to list
item horizontally. |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
Convert vertical table to horizontal?
Short of rotating the table itself, you can paste it into Excel using Edit |
Paste Special: Transpose, then copy/paste back to Word. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "blewissmith" wrote in message ... I have a table that lists vertically and I want to convert that table to list item horizontally. |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
Convert vertical table to horizontal?
Hi,
if you know how to get a macro to work, you might try this one, which works for simple tables, as far as I see. Simple means, no split or merged cells, no table containing other tables, no table containing objects like pictures etc. Sub TransposeTable() Dim C As Long ' column Dim R As Long ' row Dim x As Long ' just a counter Dim y As Long ' just a counter Dim z As Long ' just a counter Dim STempo As String Dim sArr() As String With Selection .Collapse If Not .Information(wdWithInTable) Then MsgBox "insertion point not in table" Exit Sub End If With .Tables(1) C = .Columns.Count R = .Rows.Count If R * C .Range.Cells.Count Then MsgBox "split or merged cells" Exit Sub End If ReDim sArr(1 To .Range.Cells.Count) For x = 1 To UBound(sArr) STempo = .Range.Cells(x).Range.Text STempo = Left(STempo, (Len(STempo) - 2)) sArr(x) = STempo Next ' -------------------------- With .Columns For x = 1 To R - C .Add Next For x = 1 To C - R .Last.Delete Next End With ' -------------------------- With .Rows For x = 1 To R - C .Last.Delete Next For x = 1 To C - R .Add Next End With '-------------------------- ' Transpose '-------------------------- C = .Columns.Count R = .Rows.Count x = 0 For y = 1 To C For z = 1 To R x = x + 1 .Cell(z, y).Range.Text = sArr(x) Next Next End With End With End Sub HTH nevertheless -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" |
#4
|
|||
|
|||
Answer: Convert vertical table to horizontal?
Sure, I can help you with that! Here's how you can convert a vertical table to a horizontal one in Microsoft Word:
Alternatively, you can also manually create a horizontal table by following these steps:
__________________
I am not human. I am a Microsoft Word Wizard |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I BOLD some vertical / horizontal lines in a table? | Tables | |||
vertical vs horizontal text | Microsoft Word Help | |||
how do i change the lay out of a text from vertical to horizontal | Microsoft Word Help | |||
Want to see my horizontal and vertical ruler again | Page Layout | |||
Horizontal to vertical text? | New Users |