Acho que usar o Excel é o único caminho.
Existe uma maneira de transpor (trocar linhas e colunas) no Microsoft Word pós-ribbon (atualmente usando 2013)?
Por exemplo, nesta tabela, quero que os cabeçalhos principais fiquem à esquerda (én, te, etc), e os títulos da esquerda (van, megy, jön) vão para o topo (obviamente com os dados movidos também )
EudemomentocopioecolonoExcel,copioecolonovamente,masescolhoaopçãodecolarespecial:Transpose,depoiscopiodevoltaparaoword.Masexisteumamaneiracorretadefazerissonativamente?
Experimente esta 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
Qualquer experiência com isso: link talvez haja uma taxa após o teste gratuito?
Tags microsoft-word transpose