Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Boa noite,


1 - Seria possível eliminar este parágrafo que é inserido a cada 9.900 caracteres?

Realmente encontrei o mesmo problema. Mas quando colei o texto concatenado em outro editor de texto, não existiu a quebra de parágrafo. Talvez seja alguma limitação (bug) atual no "processo de colar" do Writer.


2 - Seria possível editar a macro para que ela ignorasse os registros vazios ao invés de inserir espaços?

Segue a macro reescrita para "pular" células vazias.

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Option Explicit

Public Function MyConcatenate(ByVal myRange As Range)
   Dim vCell, vResult As String
   For Each vCell In myRange.Cells
      If vCell.Text <> "" Then
         vResult = vResult & " " & vCell.Text
      End If
   Next
   MyConcatenate = Mid(vResult, 2)
End Function


Atte,

Boa noite,


1 - Seria possível eliminar este parágrafo que é inserido a cada 9.900 caracteres?

Realmente encontrei o mesmo problema. problema quando colei como Texto sem formatação. Mas quando colei o texto concatenado em outro editor de texto, não existiu a quebra de parágrafo. Talvez seja alguma limitação (bug) atual no "processo de colar" do Writer. Writer.

Um solução que encontrei foi ir em Editar > Colar especial ... e escolher Texto formatado [RTF].


2 - Seria possível editar a macro para que ela ignorasse os registros vazios ao invés de inserir espaços?

Segue a macro reescrita para "pular" células vazias.

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Option Explicit

Public Function MyConcatenate(ByVal myRange As Range)
   Dim vCell, vResult As String
   For Each vCell In myRange.Cells
      If vCell.Text <> "" Then
         vResult = vResult & " " & vCell.Text
      End If
   Next
   MyConcatenate = Mid(vResult, 2)
End Function


Atte,