Особенности набора плоскопечатного текста для незрячих [Никита Цейковец] (docx) читать постранично, страница - 4

подобное», «то есть» и других, желательно использовать между буквами с точками знак неразрывного пробела « », например, «т. д.», «т. п.», «т. е.» и так далее.
5. Инициалы также желательно писать через неразрывный пробел, например, «Чехов А. П.».
6. В качестве кавычек для текста на русском и родственных языках следует использовать французский вариант этих символов, например, «текст в кавычках». Разумеется, они же используются и для французского языка.
7. В качестве кавычек для англоязычного текста следует использовать английский вариант этих символов, например, “The text inside the quotes”. Кроме того, именно этот вариант кавычек наиболее распространён в языках, не имеющих собственных богатых типографских традиций, например, испанском, итальянском и прочих.
8. В качестве кавычек для текста на немецком и родственных языках следует использовать вариант этих символов традиционных для немецкой типографики, например, „Der Text innerhalb der Anführungszeichen“, хотя сейчас часто используется уже английский вариант кавычек.
Заставляем работать компьютер
Многие типографские символы, упомянутые выше, отсутствуют на стандартных раскладках клавиатуры и требуют для своего набора использования специальных команд, что усложняет и замедляет работу. Чтобы поощрить терпеливого читателя, добравшегося до этой части статьи, ниже будет приведён готовый код макроса на языке программирования Visual Basic for Applications, который предназначен для текстового процессора Microsoft Office Word.
С его помощью, насколько это возможно, будет реализована автоматическая типографская обработка текста, согласно вышеприведённым базовым правилам. После обработки текста этим макросом, будут автоматически расставлены знаки тире и дефисов, неразрывные пробелы в сокращениях вводных конструкций, знаки многоточия и французские кавычки, традиционные для русскоязычной типографики. Обработку инициалов и многоязычной типографики макрос не поддерживает.
' Макрос базовой типографской обработки текста
Sub TypographicMaster()
' Объявляем переменные с явной типизацией
Dim i As Integer
Dim sOriginal As Variant
Dim sReplacement As Variant
Dim rDocument As Range
' Задаём обработку всего документа
Set rDocument = ActiveDocument.Range
' Задаём массив исходных фрагментов для замены
sOriginal = Array("—", "–", "­", "ћ", "¬", _
" - ", " - ", "...", """", _
"т.д.", "т.п.", "т.е.", "т.к.", "т.н.", "т.о.", _
"т. д.", "т. п.", "т. е.", "т. к.", "т. н.", "т. о.", _
"Т.о.", "Т.к.", "Т.е.", "Т. о.", "Т. к.", "Т. е.")
' Задаём массив соответствующих заменяющих фрагментов
sReplacement = Array("-", "-", "-", "-", "-", _
" — ", " — ", "…", "«", _
"т. д.", "т. п.", "т. е.", "т. к.", "т. н.", "т. о.", _
"т. д.", "т. п.", "т. е.", "т. к.", "т. н.", "т. о.", _
"Т. о.", "Т. к.", "Т. е.", "Т. о.", "Т. к.", "Т. е.")
' Запрещаем обновление экрана
Application.ScreenUpdating = False
' Осуществляем циклический поиск с заменой
With rDocument.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = False
.Format = True
.MatchCase = True
' Цикл обработки каждого фрагмента
For i = LBound(sOriginal) To UBound(sReplacement)
.Text = sOriginal(i)
.Replacement.Text = sReplacement(i)
.Execute Replace:=wdReplaceAll
Next i
End With
' Разрешаем обновление экрана
Application.ScreenUpdating = True
' Подаём звуковой сигнал о завершении обработки документа
Beep
End Sub


Источник: http://tiflocomp.ru/docs/sighted_typography.php

--">