Завдання 1 Використання макросів у VBA

Технології Web 2.0

Технології Web 2.0 – поняття, яким користуються для позначення ряду технологій та послуг Інтернету, точніше його частини - всесвітньої павутини, відомої також як Веб. Принциповою відмінністю технології Web 2.0 від технології Web 1.0, є те, що її використання дає змогу не лише переглядати веб-ресурси мережі, а й завантажувати власні, здійснювати обмін цими ресурсами з іншими користувачами, діяти спільно з метою їхнього накопичення, брати участь в обговореннях та ін.

Форум – форма спілкування на сайті. Кожне повідомлення на форумі має свого автора, тему і власний зміст. Як правило, форуми підрозділяються на теми, і кожна ваша відповідь буде частиною загального відкритого обговорення певної теми. Коло тем форумів нічим не обмежено. Ще одна особливість форуму – необов'язково відповідати у реальному часі. Теми і відповіді зберігаються протягом необмеженого періоду часу. Багато форумів існують по многу років, і кілька років може йти обговорення однієї теми.

Блог(англ.blog - "мережевий журнал чи щоденник подій") – це веб-сайт, головний зміст якого - записи, зображення чи мультимедіа, що регулярно додаються. Для блогів характерні короткі записи тимчасової значущості.

Чат (англ. chat - "балчка") – мережевий засіб для швидкого обміну текстовими повідомленнями між користувачами інтернету у режимі реального часу. Зазвичай, під словом "чат" мається на увазі інтернет-ресурс з можливостями чату, чат-програма, рідше - сам процес обміну текстовими повідомленнями.

Количество абзацев в этом документе - 16.

Код макроса.

Private Sub CommandButton1_Click()

Dim k As Integer

Dim Text As String

Dim ZAGOLOVOK As Range

k = ActiveDocument.Paragraphs.Count

Text = "Количество абзацев в этом документе - " & k & "."

ActiveDocument.Paragraphs(k).Range.InsertParagraphAfter

ActiveDocument.Paragraphs(k + 1).Range.InsertBefore Text

Set ZAGOLOVOK = ActiveDocument.Range(Start:=0, End:=0)

With ZAGOLOVOK

.InsertBefore "Протоколы"

.Font.Name = "Arial"

.Font.Size = 24

.InsertParagraphAfter

End With

End Sub