Transpor tabela no Word

3

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?

    
por Jay 07.05.2013 / 19:32

3 respostas

1

Acho que usar o Excel é o único caminho.

    
por 07.05.2013 / 19:45
1

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
    
por 28.10.2017 / 13:18
0

Qualquer experiência com isso: link talvez haja uma taxa após o teste gratuito?

    
por 11.03.2018 / 23:11