bekbolsky

The Zen of Python

Автор: Тим Петерс

• Көріксізден гөрі көрікті жақсы.
• Жасырыннан гөрі айқын жақсы.
• Күрделіден гөрі қарапайым жақсы.
• Шиеленістен гөрі күрделі жақсы.
• Қабатталғаннан гөрі біркелкі жақсы.
• Тығыздан гөрі сирек жақсы.
• Оқылымдылықтың маңызы бар.

bekbolsky

Sub ЛишниеПробелы()
' DelSpace Макрос
'
'УДАЛЯЕМ пробел ПЕРЕД знаками пунктуации, ), % и концом абзаца
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " {1;}([.,:;\!\?\%)\^0013])"
        .Replacement.Text = "\1"

bekbolsky

Sub ПакетноеФорматирование()
'
' массовое форматирование документов, находящихся в одной папке
'
'
Dim myFile As String
Dim myDoc As Document
Dim path As String
Dim fDlg As FileDialog
Dim ext() As Variant