Transpose Table in Word
Is There a Way to Transpose (Swap Rows and Columns) in Post-Ribbon Microsoft Word (Currently Using 2013)? for Example, in This Table, I Want the Top Headings...
Is there a way to transpose (swap rows and columns) in post-ribbon Microsoft Word (currently using 2013)?
For example, in this table, I want the top headings to go on the left (én, te, etc), and the left headings (van, megy, jön) go to the top (obviously with the data moved also)
I currenly copy and paste into Excel, copy and paste again but choose the special paste option : Transpose, then copy back to word. But is there a proper way to do this natively?
3 Answers
I think using Excel is the only way.
Try this macro:
Sub transpose01()
'
' transpose01 Macro
'
'
' to transpose rows and columns in a table
Dim NumCols As Long, NumRows As Long, RowCounter As Long, ColCounter As Long
Dim CellText As String
NumCols = ActiveDocument.Tables(1).Columns.Count
NumRows = ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=NumCols, NumColumns:=NumRows
RowCounter = 0
While RowCounter < NumRows
ColCounter = 0
While ColCounter < NumCols
CellText = ActiveDocument.Tables(1).Cell(RowCounter + 1, ColCounter + 1).Range.Text
CellText = Left(CellText, Len(CellText) - 2)
ActiveDocument.Tables(2).Cell(ColCounter + 1, RowCounter + 1).Range.InsertBefore CellText
ColCounter = ColCounter + 1
Wend
RowCounter = RowCounter + 1
Wend '
End Sub
Any experience with this: there maybe a fee after free trial?
Sarah Jenkins is a veteran tech journalist with over 12 years of experience covering artificial intelligence, mobile innovations, and digital ethics. Her insights have appeared in leading technology publications worldwide.
