Автоматично додайте пробіли між словами в документ Word

У мене документ Word приблизно на 200 сторінках. Текст, який я вставив із PDF, чомусь втратив пробіли. Як це виправити?

— VELFR
джерело

Коли ви вставляли текст із .PDF, чи клацнули правою кнопкою миші та Вставити спеціальну, вибравши певну операцію вставки?

— spikey_richie

Я думаю, вам потрібен кращий спосіб (ніж копіювати / вставляти), щоб витягти текст з PDF. Чи можете ви поділитися документом PDF, щоб ми могли детальніше ознайомитись?

— Еді

Я вважаю, що намагатися виправити це в Word неправильно. Рішення полягає у використанні іншої програми для вилучення тексту з PDF. Можливо, вам потрібно використовувати OCR або подібне.

— Дейв

Це досить цікаво, але теж не просто

Моя реальна відповідь - запропонувати вам вирішити проблему, яка полягає в тому, як експортувався PDF!

Однак ця VBa може вас змусити. Відміни немає, тому спочатку створіть резервну копію

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

Логіка проста - зберігайте додавання символів, поки не знайдете дійсне слово ... в цей момент переконайтеся, що воно не є частиною слова (наприклад, і існує в l і ). Потім додайте пробіл до кінця.

Як додати VBA в MS Office?

— Дейв
джерело