Estou tentando copiar um intervalo de células de uma planilha do Excel 2010 e colá-las em uma tabela no AutoCAD LT 2016. Meu problema é que o Excel aplica informações de formatação a cada uma das células. O AutoCAD usa essa formatação para substituir seus estilos célula por célula, de modo que minha tabela não esteja em conformidade com os padrões de projeto.
O que eu gostaria de fazer é remover toda a formatação do arquivo Excel, como poderia ser feito no Excel <97. Caso contrário, se houvesse um utilitário de área de transferência que removesse a formatação da tabela (mas deixasse as informações de mesclagem de células), essa seria uma alternativa aceitável.
Tentei recortar e colar do Google Docs e do LibreOffice, mas o AutoCAD interpreta os objetos da área de transferência de maneira diferente e não cria uma tabela a partir dos dados quando colados.
Já vi algumas rotinas LISP que eliminam essa formatação no AutoCAD, mas como meu empregador executa o LT, elas não estão disponíveis para mim.
Alguma ideia?
Responder1
Para remover toda a formatação, selecione as células em questão e na faixa de opções clique:
Home > Editing > Clear > Clear Formats
Responder2
Solução alternativa barata e alegre:
Você já tentou copiar uma coluna no bloco de notas e depois copiar do bloco de notas para o Autocad?
Você pode até copiar a tabela inteira para o bloco de notas e depois para o autocad (não tenho, então não tentei), mas provavelmente apenas importará cada linha para uma célula com várias guias caracteres, e você terá que fazer isso coluna por coluna.
Presumo que você já tentou "colar valores" em outra planilha e depois copiar dessa planilha. Se você fizer isso, ele copiará "calibri, tamanho 10" ou qualquer que seja o estilo padrão do Excel definido em vez de texto simples, ou funciona?
Espero que um desses ajude
Responder3
Se você deseja limpar todos os formatos de uma planilha, mas manter a mesclagem de células, então:
- copie a planilha
- limpe todos os formatos na cópia(isso também desmembrará as células)
- mesclar novamente as células na cópia com base nas células mescladas no original
Esta pequena macro fará isso:
Sub qwerty()
Dim orig As Worksheet, r As Range
Dim neww As Worksheet
Set orig = ActiveSheet
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
Set neww = ActiveSheet
Cells.ClearFormats
For Each r In orig.UsedRange
If r.MergeArea.Address = r.Address Then
Else
neww.Range(r.MergeArea.Address).Merge
End If
Next r
End Sub
Responder4
- Copie do Microsoft Excel.
- Cole no LibreOffice Calc (Colar especial -> Texto não formatado).