Тема: Перенос слов на новую строку.
Доброе время суток! Необходимо после набора текста (документа) выполнить его проверку и по результатам перенести на следующие строки слова состоящие из 3 и менее букв.
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Доброе время суток! Необходимо после набора текста (документа) выполнить его проверку и по результатам перенести на следующие строки слова состоящие из 3 и менее букв.
Попробуйте так (слова, состоящие из 3-х и менее символов выносятся на отдельную строку)
Sub tt()
Dim i As Long
With ActiveDocument.Range.Words
For i = .Count To 1 Step -1
If (Len(Trim(.Item(i).Text)) < 4) And AscW(Right(.Item(i).Text, 1)) <> 13 Then
.Item(i).InsertAfter (vbCrLf)
.Item(i).InsertBefore (vbCrLf)
End If
Next
End With
End Sub
А как определить что слово из 3-х букв стоит последним в строке и его нужно перенести на следующую строку?
В Вашем перво сообщении ни слова не было про то, что переносить необходимо не все слова из 3- символов, а только те, которые стоят в конце строки. Тем более, что при изменении форматирования текста, ширины полей и т.п. конец строки начнет "плавать".
Что касается поиска конца строки, как такового, посмотрите здесь http://wordexpert.ru/forum/viewtopic.php?id=122
Спасибо!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Перенос слов на новую строку.
Делать одну и ту же работу можно различными способами. Каждый человек старается найти для себя оптимальный по трудозатратам и времени. Наш сайт о Microsoft Office Word даст ответ про: спешить антоним. Если рассматривать работу в редакторе Microcoft Word, то найти оптимальные решения вам помогут на сайте и форуме Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: word 2007 рисование.
В первую очередь обратите внимание на верхний раздел, где, представлены ответы на вопросы и решения самых типичных проблем, с которыми сталкивается пользователь. На портале о Microsoft Office Word вы узнаете про: антонимы к слову оберегать словарь синонимов. Тут же список литературы, которая может вам пригодится.
В основных разделах обсуждаются вопросы, связанные с настройками программы, форматированием и оформлением текстов. На портале о Microsoft Office Word вы узнаете про: меняю в ворде цвет фона. Много внимания уделено автоматизации. На форуме вы найдете инструкции по созданию шаблонов, макросов, схемы автоматизации работы, полезные сочетания горячих клавиш. Наш сайт о Microsoft Office Word даст ответ про: перевести word 2007 в word 2003. Можно найти готовое решение или оставить заявку.