1 Тема от Michael

  • Michael
  • сержант
  • Неактивен
  • Зарегистрирован: 26.12.2009
  • Сообщений: 16

Тема: Подгонка межстрочного интервала на тонком уровне

Надо точно подгонять текст по размерам страницы. Например, вставили разрыв страницы, и надо, чтобы текст занял полностью всю страницу до разрыва.

При верстке в настольных издательских системах точная подгонка осуществляется выделением фрагмента текста и многократным нажатием комбинации клавиш для сокращения или увеличения межстрочного интервала (при малом шаге изменения).

В Ворде что-то похожее сделать тоже можно. Но, во-первых, шаг при использовании мышки будет 0,5. Меньше - только вручную с клавиатуры. Во-вторых, не виден сразу результат. Т.е. это нужно нажать Ок. Не понравилось - опять все с начала. У меня офис 2003.

Как задать комбинацию клавишь для шагов межстрочного интервала +/-0,1 для операций над выделенным фрагментом?

2 Ответ от viter.alex

  • Подгонка межстрочного интервала на тонком уровне
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

Re: Подгонка межстрочного интервала на тонком уровне

Вот так. Первый будет увеличивать, второй — уменьшать. Вешайте на клавиши и используйте

Sub IncreaseLineSpacing()
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceExactly
    .LineSpacing = .LineSpacing + 0.1
  End With
End Sub
Sub DecreaseLineSpacing()
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceExactly
    .LineSpacing = .LineSpacing - 0.1
  End With
End Sub
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от Michael

  • Michael
  • сержант
  • Неактивен
  • Зарегистрирован: 26.12.2009
  • Сообщений: 16

Re: Подгонка межстрочного интервала на тонком уровне

Спасибо, это как раз то, что надо.