Управление документами Word и Excel на VBA - eDrive

9
Sub ИзменитьПервуюСтроку ()
Call СнятьФорматирование
Set выделено = Selection
With выделено.Find
.ParagraphFormat.FirstLineIndent = CentimetersToPoints (1.27)
.Text = ""
.Execute
End With
With Selection
.MoveLeft
.ParagraphFormat.FirstLineIndent = CentimetersToPoints (0)
.TypeText (vbTab)
End With
End Sub
Sub Язык ()
Структурное программирование в Word
‘ Иногда бывает, что функция проверки правописания вашего офиса
‘ “не заметила”, что вы переключили драйвер клавиатуры, и продолжает
‘ проверять русский язык как английский или наоборот. Эта подпрограмма
‘ поможет вам мгновенно исправить ошибку компьютера.
With Selection
If .LanguageID = wdRussian Then
.LanguageID = wdEnglishUS
Else
.LanguageID = wdRussian
End If
End With
End Sub
Sub ВыровнятьПоШирине ()
‘ Эта программа поможет вам выровнять по ширине выделенный фрагмент
‘ или весь текст. Процедура СнятьФорматирование была дана раньше.
Call ЧтоВыделять
Call СнятьФорматирование
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "ГРАНИЦА АБЗАЦА"
.Execute Replace:=wdReplaceAll
.Text = "^p^t"
.Replacement.Text = "АБЗАЦНЫЙ ОТСТУП"
.Execute Replace:=wdReplaceAll
.Text = "^p^w"
.Replacement.Text = "АБЗАЦНЫЙ ОТСТУП"
.Execute Replace:=wdReplaceAll