Транспонировать таблицу в Word

Question

Есть ли способ транспонировать (поменять местами строки и столбцы) в пост-ленте Microsoft Word (в настоящее время используется 2013)?

Например, в этой таблице я хочу, чтобы верхние заголовки шли слева (én, te и т.д.), А левые заголовки (van, megy, jön) - вверх (очевидно, с перемещением данных)

Я в настоящее время копирую и вставляю в Excel, копирую и вставляю снова, но выбираю специальный параметр вставки: «Транспонировать», затем копировать обратно в слово. Но есть ли правильный способ сделать это изначально?

Answer 1

Я думаю, что использование Excel является единственным способом.

Answer 2

Попробуйте этот макрос:

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

Answer 3

Любой опыт с этим:https://www.extendoffice.com/documents/word/1413-word-transpose-rows-and-columns-table.html есть ли плата за бесплатную пробную версию?