Статьи из блога

Принудительное разбиение строки с помощью макроса

Вопрос от Gojah:

Как создать принудительный разрыв строки (максимум 15 символов на строке) автоматически для всего текста?

Например, строку 111111111111111111 преобразовать в:

111

111

...

111

Для этой цели можно воспользоватся следующим макросом:

Sub razmer_stroki_15()
Const chunkSize = 15
Dim oRg As Range
Dim actualSize As Long
Set oRg = ActiveDocument.Range
With oRg
   .Collapse wdCollapseStart
   actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)
   Do While actualSize = chunkSize
      .InsertAfter vbCr
      .Collapse wdCollapseEnd
      actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)
   Loop
End With
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 2

  1. Евгений
    08.12.2008 в 14:02 | #1

    А почему бы просто не заменить "111" на "111^p"

  2. werrik
    02.03.2009 в 23:07 | #2

    Подскажите, как сделать принудительный разрыв после 4 и более слов в строке (в этом макросе символы, надо сделать слова, независимо от кол-ва в них символов). Сначала разбить строки, а потом собрать заново

Оставьте комментарий!

(обязательно)

^ Наверх