Um die zusätzlichen Leerzeichen zu entfernen, können Sie ein Suchen / Ersetzen durchführen und zwei Leerzeichen in das Suchfeld und ein Leerzeichen in das Ersetzungsfeld eingeben. Dann führe das immer wieder durch, bis es nichts mehr findet. Wenn Sie jedoch beabsichtigte Gruppierungen von zwei oder mehr Leerzeichen haben, werden diese auch in nur ein Leerzeichen umgewandelt. Normalerweise werden jedoch auch zwischen den Sätzen keine zwei Leerzeichen benötigt, es sei denn, Sie verwenden eine Schrift mit einem Abstand (siehe diese Frage ).
Randbemerkung: Beim Kopieren und Einfügen von Dingen in Word (z. B. von Webseiten oder PDF-Dokumenten) habe ich festgestellt, dass ich etwas von der Formatierungswürde vermeiden kann, indem ich mich vergewissere, dass ich nur den reinen Text kopiere und einfügen ohne Formatierungsinformationen aus der Quelle. Ich habe das gemacht, indem ich es zuerst in ein leeres Notepad-Dokument eingefügt und dann aus dem Notizblock in Word kopiert habe. In Word 2010 können Sie diesen Schritt überspringen, indem Sie mit der rechten Maustaste klicken und die Option "Nur Text beibehalten" unter den Einfügeoptionen verwenden. Dies kann jedoch in Ihrem Fall nicht hilfreich sein, da in der Quelle, aus der Sie kopieren, tatsächlich zusätzliche Zeichen vorhanden sind.
Bearbeiten:
Ich habe bemerkt, dass Sie die Möglichkeit der Verwendung eines Makros erwähnt haben, und schrieb eines auf. Hier ist der VBA-Code:
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
Dieses Makro ersetzt alle Zeilenumbrüche und Zeilenumbrüche im ausgewählten Text durch Leerzeichen und entfernt dann wiederholte Leerzeichen. Sie markieren also einfach den zu korrigierenden Text und führen das Makro aus. Ich habe dies nur mit Word 2010 getestet, da ich kein Word 2007 habe, aber ich bin zuversichtlich, dass es auch 2007 funktionieren sollte.
Um den Makrocode in Word 2007 in Ihr Dokument zu übernehmen, folgen Sie zunächst den Anweisungen auf der Seite "Entwickler anzeigen" . Befolgen Sie dann die Anweisungen zum Schreiben eines Makros auf derselben Seite (ich habe den Namen FixParagraph
für mein Makro oben verwendet). Sobald Sie den Code-Editor aufgerufen haben, können Sie einfach den Hauptteil des obigen Codes kopieren. Es gibt auch Anweisungen, wie das Makro auf derselben Webseite ausgeführt wird.