Fügen Sie in einem Word-Dokument automatisch Leerzeichen zwischen Wörtern ein

884
VELFR

Ich habe ein Word-Dokument mit ca. 200 Seiten. Der Text, den ich aus einem PDF-Dokument eingefügt habe, verlor aus irgendeinem Grund Leerzeichen. Wie kann ich das beheben?

1
Wenn Sie den Text aus der PDF-Datei eingefügt haben, klicken Sie mit der rechten Maustaste und Einfügen, um einen bestimmten Einfügevorgang auszuwählen. spikey_richie vor 6 Jahren 0
Ich denke, Sie brauchen einen besseren Weg (als Kopieren / Einfügen), um Text aus PDF-Dateien zu extrahieren. Können Sie das PDF-Dokument freigeben, damit wir es uns genauer ansehen können? Edi vor 6 Jahren 0
Ich denke, der Versuch, das Problem in Word zu beheben, ist falsch Die Lösung besteht darin, ein anderes Programm zu verwenden, um den Text aus der PDF-Datei zu extrahieren. Möglicherweise müssen Sie eine OCR oder ähnliches verwenden. Dave vor 6 Jahren 1

1 Antwort auf die Frage

0
Dave

Das ist ziemlich interessant, aber auch nicht einfach

Meine wirkliche Antwort ist, dass Sie vorschlagen, das Problem zu beheben. So wurde das PDF exportiert!

Diese VBA kann Sie jedoch in Schwung bringen. Es gibt kein Undo, also erstelle ein Backup

Option Explicit Sub DoIt()  Dim maxChars As Integer maxChars = 30 'update for the biggest word you want to check for (max characters in the word)  Dim pos As Integer pos = 0  Dim total As Integer total = Len(Range.Text)  Do While (pos < Len(Range.Text))  Dim s As String s = ""  Dim wordToUse As String wordToUse = "" Dim i As Integer For i = 1 To maxChars  s = s + Mid(Range.Text, pos + i, 1)  If SpellCheck(s) = True Then wordToUse = s End If  Next i  pos = pos + Len(wordToUse) Dim lef As String Dim rig As String  lef = Trim(left(Range.Text, pos)) rig = Trim(Mid(Range.Text, pos + 1))  Range.Text = Trim(lef) + " " + Trim(Replace(rig, " ", " "))  If pos >= total Then Exit Do End If  Loop   End Sub   Function SpellCheck(SomeWord As String) As Boolean 'credit https://stackoverflow.com/a/10776225/1221410 SpellCheck = Application.CheckSpelling(SomeWord) End Function

Die Logik ist einfach - fügen Sie so lange Zeichen hinzu, bis Sie ein gültiges Wort finden ... Stellen Sie an dieser Stelle sicher, dass es nicht Teil eines Wortes ist (z. B. und in l und ). Fügen Sie dann etwas Leerzeichen am Ende hinzu.

Wie füge ich VBA in MS Office hinzu?

Verwandte Probleme