Как убрать висячие предлоги в Word?

Posted by obzor under VBA

Надо отредактировать большой объем текста, убрать висячие предлоги, союзы и т.д. с конца строки (Word 2013).

Есть такой вариант решения с помощью автозамены:

В «Найти» введите строку «([ ^s])([а-яА-Яa-zA-Z]{1;2}) ([а-яА-Яa-zA-Z])», в поле «Заменить на», введите строку «\1\2^s\3»

Предлоги, союзы приклеиваются с помощью неразрывного пробела к следующему слову.
Все работает хорошо, НО, приклеиваются они не только в конце строки, а по всему тексту.
Можно ли как-то сделать так чтобы это работала только с конечными символами???
Казанский

Попробуйте макрос:

Sub ВисячиеПредлоги1()
Dim s$, n&
  Selection.HomeKey Unit:=wdStory
  Do
    Selection.EndKey Unit:=wdLine
    If Selection.End + 1 >= ActiveDocument.Range.End Then Exit Do
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    s = Selection.Text
    If s = vbCr Then  'пустой абзац, выделение сместилось на строку вверх!
      Selection.MoveDown Unit:=wdLine, Count:=1
    ElseIf LCase$(Right$(s, 2)) Like "[a-zа-яё] " And (Len(s) = 2 Or Len(s) = 3) Then
      Selection.EndKey Unit:=wdLine
      Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.TypeText Text:=Chr(160) 'неразрывный пробел; происходит переход на сл. строку
      n = n + 1
      Selection.MoveUp Unit:=wdLine, Count:=1
    End If
    Selection.MoveDown Unit:=wdLine, Count:=1
  Loop
MsgBox "Выполнено замен: " & n, vbInformation
End Sub

тема на форуме

Похожие статьи

• Макрос пакетной конвертации docx в doc
• Как запретить Юзеру лезть в колонтитулы?
• Shape в группе. Как понять в VBA, что выделена не просто группа, но и Shape (объект на группе)?
• Слияние для нескольких строк (VBA)
• Выделение цветом нескольких фрагментов текста