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

8
Documents.Add.Content.Paste
End Sub
Sub СнятьФорматирование ()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.MatchCase = True
End With
End Sub
Sub СокращениеРасширениеВыделения ()
With Selection
End = End - 1
MsgBox "Сократил..."
.Extend ("R")
MsgBox "Расширил до R..."
.Expand Unit:=wdSentence
MsgBox "Расширил до конца предложения..."
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
MsgBox "и сместил курсор на букву влево."
End With
End Sub
Sub ОбъектнаяПеременнаяWord ()
Set что = Selection
что.Delete Unit := wdCharacter
что.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:=""
MsgBox "Вставил формулу…"
что.HomeKey wdLine, wdMove
MsgBox "Перешел влево..."
что.EndKey wdLine, wdExtend
MsgBox "Выделил до конца..."
что.EndKey Unit:=wdStory
MsgBox “и перешел в конец,”
что.TypeParagraph
MsgBox “открыв новый абзац”
End Sub
Sub ПеременнаяВместоОбъектаWord ()
Selection.MoveUp
Set что = Selection.Find
With что
.ClearFormatting
.Font.Name = "Times New Roman"
.Font.Size = 10
.Range.Case = wdTitleWord
.Execute FindText:="", ReplaceWith:=""
End With
MsgBox "Удалил!"
End Sub