Converter planilha para texto. Do excel para word.

Question

Utilizo a planilha excel (tanto 2003 como 2007) para descrever referência bibliográfica, para visualizar erros de descrição e manter um padrão de autor e etc... Após isso passava tudo para o word manualmente.

Tempos desses (12/2010) apareceu na barra de ferramentas um conversor de tabela (planilha) para texto de forma prática.

Bastava selecionar as colunas e celulas que pretendia converter e clicava nesse comando e pronto, o trabalho estava concluido.

Porém esse comando não aparece mais na barra e não localizo em nenhum local.

Alguém saberia me informar como recupero esse comando e ou onde ele fica "escondido".

O sistema operacional não foi alterado.

Grato

Answer 1

Execute essa rotina que adaptei do site do Dick Kusleika:

Sub CopyRangeToPlainTextOutlookAlignment()

Dim rCell As Range Dim rCol As Range Dim aMax() As Long Dim lCol As Long Dim lSpaces As Long Dim sOutput As String Dim rRow As Range Dim doClip As MSForms.DataObject Dim sTemp As String

If TypeName(Selection) = "Range" Then Set doClip = New MSForms.DataObject

ReDim aMax(1 To Selection.Columns.Count)

For Each rCol In Selection.Columns
  lCol = lCol + 1
  For Each rCell In rCol.Cells
    If Not rCell.EntireRow.Hidden Then
      sTemp = Trim(rCell.Text)
      If Len(sTemp) > aMax(lCol) Then aMax(lCol) = Len(sTemp)
    End If
  Next rCell
Next rCol

For Each rRow In Selection.Rows
  If Not rRow.Hidden Then
    lCol = 0
    For Each rCell In rRow.Cells
      lCol = lCol + 1
      sTemp = Trim(rCell.Text)
      lSpaces = Len(Space(aMax(lCol) - Len(sTemp)))
      Select Case rCell.HorizontalAlignment
        Case xlHAlignCenter
          sOutput = sOutput & Space(lSpaces \ 2 + lSpaces Mod 2) & \_
               sTemp & Space(lSpaces \ 2) & Space(2)
        Case xlHAlignLeft
          sOutput = sOutput & sTemp & Space(lSpaces) & Space(2)
        Case xlHAlignRight
          sOutput = sOutput & Space(lSpaces) & sTemp & Space(2)
        Case Else
          If IsNumeric(rCell.Value) Or IsDate(rCell.Value) Then
            sOutput = sOutput & Space(lSpaces) & sTemp & Space(2)
          Else
            sOutput = sOutput & sTemp & Space(lSpaces + 2)
          End If
      End Select
    Next rCell
    sOutput = RTrim(sOutput) & vbNewLine
  End If
Next rRow

doClip.SetText sOutput
doClip.PutInClipboard

End If

End Sub

Para utilizar essa rotina, basta selecionar um texto e executá-la. A tabela no formato de texto ficará na sua Área de Transferência (ou seja, com umCtrl+V você cola os valores no Word). É interessante que essa rotina inclusive preserva o alinha do texto ou número da tabela. Você pode adicionar ela naBarra de Ferramentas de Acesso Rápido, se quiser.

Observação: Você deve adicionar referência à bibliotecaMicrosoft Forms 2.0 Forms Library.

Link original desse código: http://www.dailydoseofexcel.com/archives/2010/12/14/outlook-plain-text-tables/

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Oi Nilson!

Uma outra maneira, além da maneira indicada pelo Felipe, seria selecionar a planilha no Excel  e copiar (com Ctrl + C, ou com o botão direito do mouse, por ex.), depois clicar com o botão direito do mouse no documento aberto do Word e escolher uma opção de colagem,  embora não seja possível copiar o número das linhas nem as letras das colunas, ainda é uma solução prática, rápida e muito simples. 

Espero ter ajudado,

renatoabc

Answer 3

Oi Nilson Tibúrcio!

Pessoalmente nunca utilizei este comando, mas você pode tentar ( no Excel 2007) clicar na barra de ferramentas de acesso rápido com o botão direito do mouse e escolher personalizar, ai você clica no comando que você deseja adicionar e o comando ficará disponível na barra de ferramentas de acesso rápido.

Eu tentei no Excel 2010 e constatei que não existe um comando para converter tabelas(planilhas) para texto, talvez exista no Excel 2007 e teha sido descontinuado no Excel 2010.

Minha dica seria tentar customizar a barra de ferramentas de acesso rápido, se o comando existir você pode adicioná-lo à barra de ferramentas de acesso rápido.

renatoabc