Para se livrar dos espaços extras, você pode encontrar / substituir e digitar dois espaços na caixa de pesquisa e um espaço na caixa de substituição. Em seguida, basta executar isso mais e mais até que não encontre mais nada. No entanto, se você tiver agrupamentos intencionais de dois ou mais espaços, isso também os converterá em apenas um único espaço. Mas, normalmente, dois espaços não são necessários, mesmo entre as sentenças, a menos que você esteja usando uma fonte com espaçamento simples (consulte esta questão ).
Nota: Quando copio e colo coisas no Word (por exemplo, em páginas da Web ou documentos em PDF), descobri que posso evitar algumas das diferenças de formatação, certificando-me de que Eu só estou copiando e colando o texto sem formatação sem qualquer informação de formatação da fonte. Eu costumava fazer isso primeiro colando-o em um documento em branco do bloco de notas e recopiando do bloco de notas para o Word. No Word 2010, você pode pular essa etapa clicando com o botão direito do mouse e usando a opção "manter apenas o texto" nas Opções de Colagem. Isso pode não ajudar no seu caso, já que parece haver caracteres extras reais na origem da qual você está copiando.
Editar:
Notei que você mencionou a possibilidade de usar uma macro e escreveu uma. Aqui está o código do VBA:
Sub FixParagraph()
'
' FixParagraph Macro
'
'
Dim selectedText As String
Dim textLength As Integer
selectedText = Selection.Text
' If no text is selected, this prevents this subroutine from typing another
' copy of the character following the cursor into the document
If Len(selectedText) <= 1 Then
Exit Sub
End If
' Replace all carriage returns and line feeds in the selected text with spaces
selectedText = Replace(selectedText, vbCr, " ")
selectedText = Replace(selectedText, vbLf, " ")
' Get rid of repeated spaces
Do
textLength = Len(selectedText)
selectedText = Replace(selectedText, " ", " ")
Loop While textLength <> Len(selectedText)
' Replace the selected text in the document with the modified text
Selection.TypeText (selectedText)
End Sub
Essa macro substitui todos os retornos de carro e novas linhas no texto selecionado por espaços e, em seguida, elimina espaços repetidos. Assim, você apenas realça o texto que deseja corrigir e, em seguida, executa a macro. Só testei isso com o Word 2010, pois não tenho o Word 2007, mas acredito que ele também funcione em 2007.
Para obter o código de macro em seu documento no Word 2007, primeiro siga as instruções "Mostrar a guia Desenvolvedor" em esta página . Em seguida, siga as instruções "Escreva uma macro do zero" na mesma página (usei o nome FixParagraph
para minha macro acima). Depois de chegar ao editor de código, basta copiar o corpo do código acima. Há também instruções sobre como executar a macro na mesma página da Web.