| 1. Что? Зачем? |
| 2. Как внедрить макрос и назначить его выполнение клавиатуре? |
| 3. Преобразование из ASCII в UNICODE и обратно |
| 4. Увеличение / уменьшение межбуквенного интервала выделенного текста |
| 5. Увеличение / уменьшение растояния между абзацами |
| 6. Увеличение / уменьшение межстрочного интервала |
| 7. Последний предлог в строке |
| 8. Первый дефис в строке |
| 9. Создание вхождения указателя |
| 10. Поиск "ц" и "ч", после которых следует точка или запятая |
| 11. Удалить гиперссылку |
| 12. Вставка элемента оглавления |
| 13. Поменять дефис между цифрами на тире |
| 14. Поставить препинание после сноски |
| 15. Удаление пробела перед знаком сноски |
| 16. Поиск инициалов при фамилии и вставка неразравных пробелов |
| 17. Вспомогательные функции |
| 18. Причесывание текста |
Увеличение / уменьшение межбуквенного интервала выделенного текста
Sub ФонтШире()' ФонтШире Макрос
' Макрос записан 17.09.98
Dim sp As Single
If Selection.Font.Spacing = 9999999 Then ' Проверим одинаков ли spacing для выделенного текста
Selection.Font.Spacing = 0 ' Нет не одинаков. Сделаем его = 0
Else ' Да, одинаков
Selection.Font.Spacing = Selection.Font.Spacing + 0.1 ' Увеличим его на 1 em
End If
' Отобразим текущий spacing в строке состояния
StatusBar = "Межбукв интервал = " + Format$(Selection.Font.Spacing, "0.0")
End Sub
'******************************************************************************
Sub ФонтУже()
Dim sp As Single
If Selection.Font.Spacing = 9999999 Then
Selection.Font.Spacing = 0
End If
Selection.Font.Spacing = Selection.Font.Spacing - 0.1
StatusBar = " Межбукв интервал = " + Format$(Selection.Font.Spacing, "0.0")
End Sub