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

15
Sub Поиск ()
Selection.HomeKey Unit := wdStory
чтоИскать = InputBox (“Чего тебе надобно”)
Do
есть = Selection.Find.Execute (чтоИскать)
еще = MsgBox (“Еще”, vbYesNo)
Loop While еще = vbYes And есть = True
End Sub
Sub ОпределениеТипаWord ()
Dim переменная As Characters
Set переменная = Selection.Characters
MsgBox "В переменной типа Characters " & переменная.Count & " символов"
End Sub
Sub ПереопределениеТипаObjectWord ()
Dim переменная As Object
Set переменная = Selection.Characters
MsgBox "В переменной типа Characters " & переменная.Count & " символов"
End Sub
Sub ПеременнаяВместоОбъектаWord ()
Dim переменная As Object
Set переменная = ThisDocument.Sentences
With переменная
.Last = "12345"
.First = "Первая фраза"
End With
End Sub
Sub ИерархияОбъектовWord ()
Dim книга As Document, фраза As ParagraphFormat
Set книга = ThisDocument
With книга
Set фраза = .Paragraphs.Item (1).Format
With фраза
.LeftIndent = 3
.Alignment = wdAlignParagraphCenter
.LineSpacing = 1
End With
End With
End Sub
Sub Клавиатура ()
‘ Кому из вас не случалось начинать печатать при ошибочной
‘ раскладке клавиатуры — русской вместо английской или наоборот
‘ И потом, спохватившись, все стирать и начинать сначала. Теперь с этим
‘ будет покончено: данная программа автоматически сменит раскладку от
‘ позиции курсора до того места, где вы неверно переключили клавиатуру.
‘ В ней задействована известная вам функция ЧтоМенять.