1 Тема от artpluss

  • artpluss
  • рядовой
  • Неактивен
  • Зарегистрирован: 12.05.2010
  • Сообщений: 3

Тема: Вставка разрывов строк

Здравствуйте!
Есть код

Sub insBreakPage() 
'Вставка разрывов строк после каждого 1-го слова "подпись___" 
Dim i As Long 
Selection.HomeKey Unit:=wdStory  'переходим в начало документа 
With Selection.Find 
   .ClearFormatting 
   .Replacement.ClearFormatting 
   .Forward = True 
   .Wrap = wdFindContinue 
   .MatchCase = True 'Учитываем регистр искомого слова 
   .Text = "подпись___" 'ищем слово 
   'Запускаем цикл поиска 
   Do While .Execute 
      i = i + 1   'считаем найденные слова 
      If i = 1 Then 
         Selection.Collapse wdCollapseEnd 
         Selection.InsertBreak wdLineBreak 
         Selection.InsertBreak wdLineBreak 
         i = 0 'обнуляем счетчик для нового отсчета 
      End If 
   Loop 
   MsgBox "Закончено" 
End With 
End Sub

подскажите пожалуйста как сделать так, чтобы когда найдено слово "подпись___" курсор переходил бы на конец строки и начинал делать разрыв с конца текущей строки, а не сразу после слова "подпись___"?

2 Ответ от Александр Б.

  • Александр Б.
  • генерал-майор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 16.02.2013
  • Сообщений: 275
  • Поблагодарили: 60

Re: Вставка разрывов строк

Может, после Selection.Collapse wdCollapseEnd вставить: 

Selection.EndKey Unit:=wdLine

Это команда соответствует нажатию клавиши End.

Мой шаблон/макросы для автоматической нумерации Word 2003, 2007, 2010 и т.д. (стили, названия, перекрестные ссылки, LISTNUM). Делюсь: http://vk.com/club_alex_bir

СайтАлександр Б.