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

747
VELFR

У меня есть документ Word около 200 страниц. Текст, который я вставил из PDF-файла, почему-то потерял место. Как это исправить?

1
Когда вы вставляли текст из .PDF, вы щелкали правой кнопкой мыши и вставляли Special, выбирая конкретную операцию вставки? spikey_richie 6 лет назад 0
Я думаю, что вам нужен лучший способ (чем копировать / вставить) для извлечения текста из PDF. Можете ли вы поделиться PDF документом, чтобы мы могли поближе познакомиться? Edi 6 лет назад 0
Я чувствую, что пытаться исправить это в Word неправильно. Решение состоит в том, чтобы использовать другую программу для извлечения текста из PDF. Может быть, вам нужно использовать OCR или аналогичный. Dave 6 лет назад 1

1 ответ на вопрос

0
Dave

Это довольно интересно, но также не легко

Мой реальный ответ - предложить вам решить проблему, из-за которой 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?

Похожие вопросы